ワークブックのオープンについて

質問

VBAでの質問です。

あるTEXT001.txtをワークブックオープンし、
２つめのテキストファイルTEXT002.txtを開かれている同じワークブックの
二枚目のシートとして開きたいのですが、どのようにすればよいのか
どなたかご教示ねがえませんでしょうか？
よろしくお願いいたします。

回答No.1

imogasi

１）受け皿としてのファイル。
　　結果としてエクセルのファイルを作るのですから、「○○　　。ｘｌｓ」が、作る・残る（存在する）事になります。
　　３通り考えられます。
　　Ａ．既存のファイル「ＡＡＡ．ｘｌｓ」にする。
　　Ｂ．新規ブックの「Ｂｏｏｋ１．ｘｌｓ」にする。
　　Ｃ．テキストファイルの名前「ＢＢＢ．ｔｘｔ」で
　　　　「ＢＢＢ．ｘｌｓ」と言うブックを作ると同時に
　　　　　Ｓｈｅｅｔ１に当たるところへ「ＢＢＢ」と
　　　　　言うシート名のシートを作る。
（２）（１）のＡのやり方。
　　　Ａ．既存のファイル「ＡＡＡ．ｘｌｓ」を開く。
　　　Ｂ．TEXT001.txtを旧Ｄｏｓ時代のＢａｓｉｃの
　　　　　様に、Open "TEXT001.txt" For Input As #1
で開き、ワークシートSheet1のRange
にセットする。
　　　Ｃ．TEXT002.txtを同様にOpen "TEXT002.txt" For 　　Input As #２で開き、ワークシートSheet2の Rangeにセットする。Sheet1,Sheet2は空いているシ　　　　　ートであれば何処でも良い。
（３）（１）のＢのやり方。
　　　Ａ．新規のブックを開く。
　　　Ｂ．TEXT001.txtを旧Ｄｏｓ時代のＢａｓｉｃの
　　　　　様に、Open "TEXT001.txt" For Input As #1
で開き、ワークシートSheet1のRange
にセットする。
　　　Ｃ．TEXT002.txtを同様にOpen "TEXT002.txt" For 　　Input As #２で開き、ワークシートSheet2の Rangeにセットする。Sheet1,Sheet2は空いているシ　　　　　ートであれば何処でも良い。
（４）（１）のＣのやり方。
　　　Ａ．OpenText でTEXT001.txtを開く。ブック名も
　　　　　TEXT001.xlsにできるし、Sheet1に当たるシートは
　　　　　TEXT001というシート名になる。
　　　Ｂ．TEXT002.txtをOpen "TEXT002.txt" For 　　　　　Input As #２で開き、ワークシートSheet2の Rangeにセットする。Sheet2は空いているシ　　　　　　　　ートであれば何処でも良い。
結局（２）のＡ．Ｂ．と（３）Ａ．のやり方が判れば、どれでも出きることが判る。
（５）（２）のＡ．Ｂ　の例
Sub test01()
Workbooks.Open Filename:="C:\My Documents\AAA.xls"
Open "TEXT001.txt" For Input As #1
i = 1
While Not EOF(1)
Input #1, a, b, c, d
MsgBox i
Worksheets("sheet1").Cells(i, 1) = a
Worksheets("sheet1").Cells(i, 2) = b
Worksheets("sheet1").Cells(i, 3) = c
Worksheets("sheet1").Cells(i, 4) = d
i = i + 1
Wend
Close #1
ActiveWorkbook.SaveAs Filename:="TEXT001.xls"
End Sub
列数はa,b,c,dの４項目（４列）と仮定しました。
（６）（４）のＡ．のやり方
Sub test01()
Dim TextPath As String
TextPath = "c:\My Documents" & "\TEXT001.txt"
Workbooks.OpenText Filename:=TextPath, _
DataType:=xlDelimited, _
comma:=True, Space:=True, _
other:=True, otherchar:="#"
End Sub