19/12/08 16:57:19.39 om5egmGHx.net
' 指定ファイルをOPEN(入力モード)
Dim cDir As String
Dim srcName As String
srcName = "C:\test"
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = srcName
.Show
If .SelectedItems.Count = 0 Then Exit Sub
srcName = .SelectedItems(1)
End With
Set TS = FSO.OpenTextFile(srcName, ForReading, False)
' 2行目から開始
ファイル名指定の箇所だけ一部書き換えてみたので試してみて
ちなみにこの手のcsv読み込み作業は一からvbaでスクラッチするよりも今やQueryTable使った方が早いと思うので、暇があったら調べるといいよ