| |
▼とまと さん：
cc：Keinさん、Jakaさん、
皆様。ご教授ありがとうございます。
とても勉強になりました。
すみません。今度は下記の件で質問があります。
よろしくお願い致します。
【テキストファイルについて】
各行に２１個のデータがあります。そのデータの区切り方
は２種類あります。
<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>.どちらのテキストファイルを読み込んでも、
エクセルシート上で、連続した「１セルに、１データ」形で
貼り付けられるようにコーディングしたいと思います。
下記の教えに従って試してみましたが、
上手く実行しません。
よろしくお願い致します。
>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
|
|
Cat
- 04/2/24(火) 15:15 -
