VBA 外部テキスト読込 先頭の「0」の存在

質問

こんばんは。
エクセル2003 VBAについて質問いたします。
エクセルのシートにタブ切りテキストを読み込みしたいと思います。
ただ読み込みする訳ではなく、データには先頭に数字の「0」から始まる数字もあり、普通に読み込めばその先頭の数字が消えてしまい
その「0」も表示したまま読み込みたく思います。

参考にしたソースは（下記
Sub TestMacro1()
Dim Fname As Variant
On Error Resume Next
ActiveSheet.QueryTables(1).Delete 'QueryTableがあったら削除
On Error GoTo 0
Fname = Application.GetOpenFilename( _
"テキストファイル (*.txt; *.csv),*.txt;*.csv", 1, "OpenTextFile")
If VarType(Fname) = vbBoolean Then Exit Sub
'-------------------細かいオプションは、記録マクロから取り出してください。---
With ActiveSheet.QueryTables.Add( _
Connection:="TEXT;" & Fname, _
Destination:=Cells(1, 1))
.AdjustColumnWidth = False '列幅の自動調整
.TextFileCommaDelimiter = True 'カンマ切り
.Refresh BackgroundQuery:=False 'バックグラウンドの再入力（一回きり）
.TextFileTabDelimiter = True 'タブデリミタあり
End With
'-------------------
ActiveSheet.QueryTables(1).Delete
End Sub

なのですが、二行目の部分しか型を指定してなく、Stringにもしてみましたが先頭に付く数字の「0」が消えてしまいます。
他に変更する場所がありますでしょうか？

ご教授いただければ幸いです。
何卒、よろしくお願いいたします。

回答No.1

nao-y · ベストアンサー

外部データの読み込みを手動でされたことはありますか？

手動で進めていくと、途中で各項目のデータ型を指定できます。
その動きをマクロ記録されれば解るんじゃないでしょうか。

お礼

ありがとうごじました。
少しやってみます。