ファイルを開く画面

ファイルを開く画面（ダイアログボックス）を表示して、ファイル名を取得します。

Option Explicit

Sub FileOpenDlg_Click()
	Dim filename As String

	filename = FileOpenDlg("c:\")
	If filename <> "" Then
		MsgBox filename
	End If
End Sub

' ファイルを開く画面（ダイアログボックス）を表示して、ファイル名を取得
Function FileOpenDlg(base As String) As String
	Dim filename As Variant
	Dim i As Long
	Dim wb As Workbook

	If base <> "" Then
		' 初期表示フォルダを変更
		ChDir base
	End If

	' ファイルを開くダイアログを表示します
	'   FileFilter:ファイルの候補を指定 (ファイル フィルター文字列) します
	'   Title:ダイアログ ボックスのタイトルを指定します。
	'   省略すると "ファイルを開く" になります
	filename = Application.GetOpenFilename( _
		FileFilter:="Excelファイル,*.xls*,テキストファイル,*.txt," & _
		"CSVファイル,*.csv,すべてのファイル,*.*", _
		title:="開きたいファイルを選んでね")

	If filename = False Then
		' キャンセル処理
		Exit Function
	End If

	FileOpenDlg = filename
End Function