HOME>TOP>アプリケーション

ファイルを開くダイアログボックスを表示するには？

キーワード>>GetOpenFilename・Open 

Point ：ファイルを開くダイアログを出してブックを開きたい。

Sub Test()
  Dim strFileName

    strFileName = Application. _
       GetOpenFilename("エクセルファイル (*.xls), *.xls")


   If strFileName <> False Then
    MsgBox "選択されたファイル: " & strFileName
  End If

End Sub

上の例では実際にファイルは開かれません。
ファイルを開くにはOpen メソッドを使用します。

Sub Test2()
   Dim strFileName

     strFileName = Application. _
        GetOpenFilename("エクセルファイル (*.xls), *.xls")

   If strFileName <> False Then
       Workbooks.Open strFileName
      '選択されたブックを開く
  End If

End Sub 

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。