
大変お世話になっています。
サーバ上にあるファイルを更新するVBAを作りました。
該当ファイルはあらかじめ閉じられていて、オープンして処理終了後保存して閉じるという仕様になっているのですが、そのファイルは複数人が使用するもののため、「閉じている」ことを前提としたVBAにもかかわらず、ファイルが開いている可能性があります。
そこで、一番最初に「ファイルが開かれていたら何もせずに終了する」という判断をしたいのですが、いい方法はあるでしょうか。
過去の質問を検索したところ、
If .ReadOnly Then
’処理を行わない
Else
’処理を行う
End If
という書き方があるようですが、VBAを使わない場合でも「他の人が使用中です。読み取り専用で開きますか?」というメッセージが自動で出てしまうため、これを出さずに強制終了できると嬉しいです。
達人の皆様、どうかお知恵をかして下さいませ。
No.2ベストアンサー
- 回答日時:
こんにちは。
>過去の質問を検索したところ、
>If .ReadOnly Then
それは正しい回答だったのでしょうか?
ダミーのバイナリ編集をすればよいのではありませんか?既に開いていれば、エラーが返りますので、それでチェックできます。
サンプル:
Sub BookEnableEdit()
Dim MyPath As String
Dim myFno As Integer
Const Fname As String = "test.xls" 'ファイル名
MyPath = \\サーバー名\共有フォルダ & "\"
If Dir(MyPath & Fname) <> "" Then
myFno = FreeFile
On Error Resume Next
Open MyPath & Fname For Binary Lock Read Write As #myFno
Close #myFno
End If
If Err.Number > 0 Then
MsgBox "ブックは開いています", vbInformation
Exit Sub
End If
On Error GoTo 0
End Sub
この回答への補足
いつもお世話になっております。
例によって、参考書と首っ引きでコードを読ませていただきました。
そこでテストしてみようと思ったところ、MyPath~の所でなぜかコンパイルエラーになってしまうのですが…
ファイルをオープンする時の、サーバ名から指定しているコードの、ファイル名より前の部分をそのままコピペしたのですが、それがよくないのでしょうか。
No.4
- 回答日時:
たびたびすみません。
>If Dir(MyPath & Fname) → If Dir(MyPath)
>としても大丈夫ですよね?
ご指摘のとおりです。
こんにちは。
お陰様で、無事今回の一連の作業は終了しました。
教えて頂いたコードは、今の私には、一人では絶対に書けなかったと思います。
本当に助かりました。ありがとうございました。
No.3
- 回答日時:
>サーバ名から指定しているコードの、ファイル名より前の部分をそのままコピペしたのですが
MyPath = "\\サーバー名\共有フォルダ" & "\"
すみません。"" 「クォーテーション」が入っていませんでした。
ただ、コピーしたものをそのまま、
'Const Fname As String = "" 'ファイル名
↑これは使わないで、
以下に、貼り付けてよいです。
MyPath = "\\サーバー名\共有フォルダ\test.xls"
ありがとうございます!無事機能を追加することができました!
それですみません、一点だけ確認させて頂きたいのですが、「'Const Fname ~」の部分を削除したということは、例えばここの行などは「 & Fname」を削除して、
If Dir(MyPath & Fname) → If Dir(MyPath)
としても大丈夫ですよね?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
ExcelVBAで今開いているユーザ情報を取得できますか?
Visual Basic(VBA)
-
【Excel VBA】書き込み先ブックが既に開かれてた場合の処理
Visual Basic(VBA)
-
-
4
Excelvbaの 編集のためロックされています について
Excel(エクセル)
-
5
エクセルマクロで、別のブックが開いているかを判定したいのですが。
その他(Microsoft Office)
-
6
サーバー上にあるファイルの使用者名の表示
その他(Microsoft Office)
-
7
読み取り専用ファイルを上書き保存するには?
Visual Basic(VBA)
-
8
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
9
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
10
ファイルやフォルダの有無、他のユーザーの使用状況を調べたい
Visual Basic(VBA)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
エクセルで誰が今開いているか調べる方法。
Excel(エクセル)
-
13
Excel VBA Windowsにログインしているユーザ名
Excel(エクセル)
-
14
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
15
【VBA】ワークブックを開く時にエラーが出る場合と出ない場合の違いは?
Excel(エクセル)
-
16
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
17
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
18
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
19
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
20
VBAでCSVファイルが使用中かどうかの確認
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】実行時エラー '424':...
-
エクセルのVBAで集計をしたい
-
【マクロ】数式を入力したい。...
-
【マクロ】【配列】3つのシー...
-
【マクロ】元データと同じお客...
-
【マクロ】【相談】Excelブック...
-
他のシートの検索
-
【画像あり】オートフィルター...
-
Office2021のエクセルで米国株...
-
vba テキストボックスとリフト...
-
【マクロ】左のブックと右のブ...
-
エクセルシートの見出しの文字...
-
【関数】3つのセルの中で最新...
-
【マクロ】excelファイルを開く...
-
LibreOffice Clalc(またはエク...
-
エクセルの複雑なシフト表から...
-
空白のはずがSUBTOTAL関数でカ...
-
【関数】=EXACT(a1,b1) a1とb1...
-
【マクロ】【画像あり】❶ブック...
-
5単位で繰り上げしたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELファイルに誰がアクセスし...
-
《エクセルVBA》「他の人が該当...
-
VBAでサーバーにアクセスするに...
-
VBScriptで、ファイルから任意...
-
C# ファイル削除のエラーコード
-
FTPでのアップロード後
-
C言語でCGI
-
パスワードつきページの作り方
-
vbでFTPサーバーに対して、サー...
-
ファイルがアップロードされず...
-
最新の状態を誤って過去の状態...
-
スタイルシートが反映されません
-
CGIファイルとplファイル
-
tplファイルのプレビューの方法
-
Subversionとは?
-
PDFファイルアップロード時にOS...
-
文字色の付いたメールを送りたい
-
サーバー上のフォルダ削除が出...
-
PHPでカウンターを作りたい
-
実行および文字列の受け渡し
おすすめ情報