Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15465 / 76807

←次へ　｜　前へ→


	【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

≪