ＶＢＡでタブ区切りファイルを列区切りにしたい

ＶＢＡで秀丸のテキストファイルをエクセルに読み込むとき、タブ区切りがエクセルでは連続した文字列になってしまいます。
これを列に区切って読み込みたいのですがどうしたらいいですか？

読み込むプログラムは、「Ｅｘｃｅｌでお仕事！」のサンプルを使ったもので、ファイルを開く画面から選択する形です。コードは下記です。

' Applicationオブジェクト取得
Set xlAPP = Application ' (1)
' 「ファイルを開く」のフォームでファイル名の指定を受ける
xlAPP.StatusBar = "読み込むファイル名を指定して下さい。"
strFILENAME = xlAPP.GetOpenFilename(FileFilter:=cnsFILTER, _
Title:=cnsTITLE) ' (2)
' キャンセルされた場合は以降の処理は行なわない
If StrConv(strFILENAME, vbUpperCase) = "FALSE" Then Exit Sub ' (3)

' FreeFile値の取得(以降この値で入出力する)
intFF = FreeFile ' (4)
' 指定ファイルをOPEN(入力モード)
Open strFILENAME For Input As #intFF ' (5)

No.1 ベストアンサー 回答者： n-jun 回答日時： 2008/07/13 21:45

Sub の上に

Option　Base　1
を追加。

Dim v
を宣言して

' 行を加算しA列にレコード内容を表示(先頭は2行目)
v = Split(strREC, vbTab)
GYO = GYO + 1
Cells(GYO, 1).Resize(, UBound(v) + 1).Value = v
に変更

ではどうでしょうか？

この回答へのお礼

早速のご回答ありがとうございます。
例示されたコードをそのまま使うことができなかったのですが、
SplitとUBoundを使えば良いことがわかったので、それらを使って解決しました。
助かりました。お世話になりました。

お礼日時：2008/07/14 21:21