|
タブ区切りのテキストデータを
任意のエクセルに読込みたいのですが、いまいちわからなく困っています
今は下記のようにコードを記述してあります
全部で37列あり、必要な項目だけを読み込みしていますが、
今のコードだと、新規ブックに表示されるような形になっています
それを、既存のエクセル(任意)に取込たいのですが、どうしたら
うまくいくのでしょうか?
ご教授お願いします
Sub タブ区切りtext読込()
Dim DeskTopPath As String
Dim shellobject As IWshRuntimeLibrary.WshShell
Set shellobject = New IWshRuntimeLibrary.WshShell
DeskTopPath = shellobject.SpecialFolders("Desktop")
Debug.Print DeskTopPath
Workbooks.OpenText Filename:=DeskTopPath & "\LIST.txt", _
DataType:=xlDelimited, _
textqualifier:=xlTextQualifierNone, _
tab:=True, fieldinfo:=Array(Array(1, 9), Array(2, 1), Array(3, 9), Array(4, 9), Array(5, 2), _
Array(6, 9), Array(7, 9), Array(8, 9), Array(9, 9), Array(10, 9), _
Array(11, 1), Array(12, 2), Array(13, 9), Array(14, 9), Array(15, 9), _
Array(16, 9), Array(17, 9), Array(18, 9), Array(19, 9), Array(20, 9), _
Array(21, 9), Array(22, 9), Array(23, 9), Array(24, 9), Array(25, 9), _
Array(26, 9), Array(27, 1), Array(28, 9), Array(29, 9), Array(30, 9), _
Array(31, 9), Array(32, 9), Array(33, 9), Array(34, 9), Array(35, 9), _
Array(36, 9), Array(37, 9))
End Sub
|
|