ファイル選んでもらって、そのファイルをベースに処理をしたいケースも出てくるかと思います。
ファイルを開くダイアログを開くのは簡単です。
詳細はヘルプファイルを見てもらうとして、
Dim varPATH as Variant varPATH = Application.GetOpenFilename( _ FileFilter:="エクセルファイル(*.xls),*.xls", _ FilterIndex:=1, _ Title:="処理対象ファイルの選択", _ MultiSelect:=False _ ) If varPATH <> False Then ' ここにファイル名を使用した処理を書く End If
こんな感じですか。