![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
大変お世話になっています。
サーバ上にあるファイルを更新する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(エクセル)
-
-
4
エクセルマクロで、別のブックが開いているかを判定したいのですが。
その他(Microsoft Office)
-
5
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
6
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
7
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
8
VBAでCSVファイルが使用中かどうかの確認
Visual Basic(VBA)
-
9
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
10
VBでファイルが開かれているかどうかを確認したい
Visual Basic(VBA)
-
11
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
12
エクセルVBAが途中で止まります
Visual Basic(VBA)
-
13
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
14
Excel VBA でファイルが開かれているか確認する
Excel(エクセル)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
18
バックグラウンドのプロセスのエクセルを閉じる方法
Visual Basic(VBA)
-
19
Excelvbaの 編集のためロックされています について
Excel(エクセル)
-
20
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELファイルに誰がアクセスし...
-
《エクセルVBA》「他の人が該当...
-
VBAでサーバーにアクセスするに...
-
Webでのファイルアップロードに...
-
ブラウザの戻るボタンでの動き...
-
HTML5のFileAPIでファイルの存...
-
ホームページ上でvlookup関数の...
-
CGIでソースがそのままでてしま...
-
画像アップ時のエラー
-
ASP(IIS?)のエラーについて
-
ASPから既存のexcelブックを開...
-
CGIが動作しません。
-
.htaccessを2つ以上設置した場合
-
perlからphpを実行して結果を得...
-
Perlプログラム上でアラートを表示
-
ftpでuploadのとき上書きとする...
-
FTPにて553エラー
-
iframeの中から、親frameのURL...
-
ロリポップサーバでのWeb拍手cg...
-
カタカナを英語やフランス語に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELファイルに誰がアクセスし...
-
《エクセルVBA》「他の人が該当...
-
VBAでサーバーにアクセスするに...
-
VBScriptで、ファイルから任意...
-
JAVAで別サーバーのファイルの...
-
vbでFTPサーバーに対して、サー...
-
空のファイル
-
エックスサーバー上へファイル...
-
アクセス拒否について・・・・
-
Perl 別ドメインのファイル存在...
-
Windows XPでアクセス制限
-
HPで流す音楽
-
フリーの新着情報CGIを探してい...
-
ファイルアップ(入力→確認→ア...
-
web上で音声を聞けるようにする...
-
URLに~/cgi-bin/~を隠す方法
-
ラジオボタンのグループ化
-
FTPにて553エラー
-
CGIでソースがそのままでてしま...
-
ApacheでのCGIについての質問
おすすめ情報