ブックをひらかずにテキストファイルを取り込む
エクセルのブックを開かずにテキストファイルを取り込みたいのですが、対象のテキストファイルは
タブで分かれています。
本を見て
下記のプロシージャを使用したいのですが、
テキストが取り込まれるブックに郵便番号と言うシートを作成してもうまく取り込めません。
テキストはタブで区切られたテキストで ７列のデータです。
下記のものを開こうとすると、7列でデータが入るのですが、タブでデータが区切られてこないのです。
データが続いて一つのセルに入ってしまい、
うまく設定できません。
何がいけないのでしょうか？
宜しくお願いします。
Sub ReadTxt()
Dim myTxtFile As String
Dim myBuf(7) As String
Dim i As Integer, j As Integer
Application.ScreenUpdating = False
myTxtFile = ActiveWorkbook.Path & "\Fuji.txt"
Worksheets("郵便番号").Activate
Open myTxtFile For Input As #1
Do Until EOF(1)
Input #1, myBuf(1), myBuf(2), myBuf(3), myBuf(4), _
myBuf(5), myBuf(6), myBuf(7)
'データをセルに展開する
i = i + 1
For j = 1 To 7
Cells(i, j) = myBuf(j)
Next j
Loop
Close #1
End Sub
お礼
参考になります。ありがとうございます。 これはそれぞれのシートごとに、この（１）（２）（３）の操作を行なうことになりますが、それらも一度に行なうことが出来ないでしょうか。 もし、ご存知でしたら、お願いします。