Excel VBA質問箱 IV

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

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


2632 / 13645 ツリー ←次へ | 前へ→

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

【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

【66823】Re:タブ区切りのテキストデータをエクセ...
発言  Jaka  - 10/10/8(金) 9:18 -

引用なし
パスワード
   データ → 外部データの取り込み → データの取り込み
をお試しください。

【66826】Re:タブ区切りのテキストデータをエクセ...
お礼  Tacchi  - 10/10/8(金) 12:32 -

引用なし
パスワード
   ▼Jaka さん:

ありがとうございました

教えてもらったとおりやってみました
こういうやり方があることをはじめて知りました

マクロの記録を通して、少し手を加えながら作成しました
お蔭様で問題が解決しました
ありがとうございました


>データ → 外部データの取り込み → データの取り込み
>をお試しください。

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