TestFileName="C:\test\テストブック.xls"  '開くときの事を考えて、フルパス入力。
Dim TESTBOOK
Dim wb As Workbook, flag As Boolean
 For Each wb In Workbooks'既に開いているブックをループ
  If wb.Name = Dir(TestFileName) Then 'ファイル名が同じだったら
                      '(Dirはファイル名のみ)
   Set TESTBOOK = wb'TESTBOOKにブックを設定。
   flag = True
   Exit For
  End If
 Next wb
 If flag = True Then 'すでに開かれていたらメッセージ
  MsgBox "すでに開かれています"
 Else 'すでに開かれていなかったら、開きます。
  Set TESTBOOK = Workbooks.Open(TestFileName)
 End If

前へ 次へ

この情報が含まれているまとめはこちら

【VBA】フォルダからファイル読み込み、ファイル選択画面【マクロ】

Excelでファイルを読み込む方法。単体ブックを読み込むもよし、複数ブックを読み込むも良し。ファイル選択ダイアログもあるよ!そしてフォルダ選択もできるようにするよ!(どんどん追記していく予定)

このまとめを見る