ファイルが既に開いているかの状態をチェックして取得するにはどうしたらよいか？ 削除
| Message#1 2015年2月7日(土)05時41分 From: sakai |
| ExcelのVBAでファイルが既に開いているかの状態をチェックして取得するにはどうしたらいいでしょうか？ 以下はサンプルのVBAコードです。 If〜Thenの部分でエラーが起きていますが、ここを見ても分かりませんでした。 開いているファイル名を取得して比較してもいいですし、読み取りファイルがある場合はそちらとファイル名の比較でもなんでもかまいません。 ようはそれが分かるようなVBAコードにしたいのですが、私の知識ではここまでが限界です。 有志の方々力を貸してください。 Sub Sample() Dim App As Object Dim MyFileName As String Set App = CreateObject("Excel.Application") MyFileName = "C:\Users\test.xlsm" With App .Workbooks.Open Filename:=MyFileName .Visible = True If .ReadOnly Then MsgBox "こちらは既に開いているファイル●●になります。" App.Quit '既に開いているファイルがあれば閉じる End If End With End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
