| |
▼庄司 さん：
こんばんは。
>こんばんは。質問失礼します。
>Array関数でカンマ区切りのテキストデータを開こうとしていますが、
>Array(Array(1, 2), Array(2, 1), ･･････
>という風にひとつひとつ指定せずに、
>全部を文字列で開きたいときに、全てを一気に指定というのは
>できるのでしょうか？
上記の配列をループで作成してしまう方法は？？
Sub test()
Dim idx As Long
Dim myarray(0 To 19) As Variant
' ↑一行が20列の場合
For idx = LBound(myarray()) To UBound(myarray())
myarray(idx) = Array(idx + 1, 2)
Next
Workbooks.OpenText Filename:= _
"D:\カンマ区切りTxt\samp.txt", _
Origin:=932, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, _
Comma:=True, _
Space:=False, _
Other:=False, _
FieldInfo:=myarray()
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
