Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15392 / 76734 ←次へ | 前へ→

【66821】タブ区切りのテキストデータをエクセルへ読込む
質問  Tacchi  - 10/10/8(金) 8:37 -

引用なし
パスワード
   タブ区切りのテキストデータを
任意のエクセルに読込みたいのですが、いまいちわからなく困っています

今は下記のようにコードを記述してあります
全部で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
0 hits

【66821】タブ区切りのテキストデータをエクセルへ読込む Tacchi 10/10/8(金) 8:37 質問
【66823】Re:タブ区切りのテキストデータをエクセル... Jaka 10/10/8(金) 9:18 発言
【66826】Re:タブ区切りのテキストデータをエクセル... Tacchi 10/10/8(金) 12:32 お礼

15392 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free