Excel VBA質問箱 IV

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

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


70226 / 76733 ←次へ | 前へ→

【11017】Re:テキストファイルの読み込み(処理速度...
質問  Cat  - 04/2/24(火) 15:15 -

引用なし
パスワード
   ▼とまと さん:
cc:Keinさん、Jakaさん、

 皆様。ご教授ありがとうございます。
 とても勉強になりました。

 すみません。今度は下記の件で質問があります。
よろしくお願い致します。

【テキストファイルについて】
各行に21個のデータがあります。そのデータの区切り方
は2種類あります。

<1>.タブで区切られている場合
<2>.スペースで区切られている場合
※<1>.<2>.の混在は無い

例)
AAA1   BB1  CC1  DD1   EE1  FF1 GG1  HH1 ・・・・
AAA2   BB2  CC2  DD2   EE2  FF2 GG2  HH2 ・・・・
AAA3   BB3  CC3  DD3   EE3  FF3 GG3  HH3 ・・・・
AAA4   BB4  CC4  DD4   EE4  FF4 GG4  HH4 ・・・・

【要望】
これら<1>.<2>.どちらのテキストファイルを読み込んでも、
エクセルシート上で、連続した「1セルに、1データ」形で
貼り付けられるようにコーディングしたいと思います。

下記の教えに従って試してみましたが、
上手く実行しません。

よろしくお願い致します。

>Array(1, 2)の 1 が列数を表してるので
>適宜列数分だけ増やしてみてください。
>
>
>Sub read3()
>
>  Dim wsPath As String
>  Dim wsFile_Name As String
>
>  wsPath = "C:\1\"
>  wsFile_Name = "test.txt"
> 
>  Workbooks.OpenText _
>    Filename:=wsPath & wsFile_Name, _
>    DataType:=xlDelimited, _
>    Comma:=True, _
>    FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2))
>
>End Sub

3 hits

【10992】テキストファイルの読み込み(処理速度効... Cat 04/2/22(日) 18:15 質問
【10996】Re:テキストファイルの読み込み(処理速度効... Kein 04/2/23(月) 0:45 回答
【10998】Re:テキストファイルの読み込み(処理速度効... とまと 04/2/23(月) 1:05 回答
【10999】Re:テキストファイルの読み込み(処理速度効... とまと 04/2/23(月) 1:08 回答
【11001】Re:テキストファイルの読み込み(処理速度効... Jaka 04/2/23(月) 10:31 回答
【11002】Re:テキストファイルの読み込み(処理速度効... とまと 04/2/23(月) 11:17 回答
【11017】Re:テキストファイルの読み込み(処理速度... Cat 04/2/24(火) 15:15 質問
【11020】Re:テキストファイルの読み込み(処理速度... アイエネス 04/2/24(火) 16:04 回答
【11024】Re:テキストファイルの読み込み(処理速度... Cat 04/2/24(火) 16:37 質問
【11026】Re:テキストファイルの読み込み(処理速度... アイエネス 04/2/24(火) 16:48 発言
【11041】Re:テキストファイルの読み込み(処理速度... Cat 04/2/24(火) 20:15 お礼

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