セルで指定した名前のテキストファイルをインポートするマクロの作り方

例：
A1セルに5,B1セルに1を入力。（5月１日を表しています）
その後マクロを実行し、0501.txtという5月1日に相当する
テキストファイルをインポートするというものです。

該当のフォルダ内には各日付ごとのテキストファイルが
複数存在しており、インポートしたいテキストファイル
をエクセルファイルのセル上で指定するのが目的です。
インポートするファイル名を固定しないというマクロの
作り方がわかりません。
どうぞよろしくお願いします。

No.2 回答者： merlionXX 回答日時： 2007/05/30 14:01

Sub TEST01()

Dim fn As String
With ActiveSheet
fn = Format(.Range("A1"), "00") & Format(.Range("B1"), "00") & ".txt"
End With
Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & fn
End Sub

とりあえず開くところまで。

No.1 回答者： hana-hana3 回答日時： 2007/05/30 13:51

Fname にファイル名が入ります。

Dim Fname As String

Fname = Format(Range("A1"), "00")
Fname = Fname & Format(Range("B1"), "00")
Fname = Fname & ".txt"

MsgBox Fname