ファイルを開くのウィンドウを表示し、選択したファイルを開く

ここで開こうとしているのはテキストファイル。

--------------------------------------------------------------------------------------------------------

Sub Sample1()
    'Dim OpenFileName As String
'    OpenFileName = Application.GetOpenFilename("テキストファイル (*.txt),*.txt")
 '   Workbooks.Open OpenFileName

    Dim vntFileName As Variant

    'ファイルを開くダイアログを開きます

    vntFileName = _
        Application.GetOpenFilename( _
             FileFilter:="テキストファイル (*.txt),*.txt" _
           , FilterIndex:=1 _
           , Title:="データを選択する" _
           , MultiSelect:=False _
            )

    'ファイルが選択されているときは
    '選択したファイルをWorkbooks.Openメソッドで開きます

    'If vntFileName <> False Then
    '   Workbooks.Open Filename:=vntFileName
    'End If
   

'選択したファイル名をmsgboxに表示

    MsgBox vntFileName & "を開きました"

End Sub