|
▼Cat さん、keinさん こんばんは
作成してる間にkeinさんからレスが
ちょうど同じことをしてたのでUPしておきます
OpenText メソッドで試してみました。
こちらの作成したテストデータではけっこう
速くファイルを開くことができました。
後はコピーなどして所定の位置に貼り付ければ
よいかと思います。
ところでファイルはカンマ区切りでしょうか?
違ったら自動記録してComma:=Trueのところを
書き換えてみてください。
FieldInfo:=Array(Array(1, 2))
のところはなくてもいいのかもしれないのですが
書いておくと速かったので乗せておきます。
見当違いならごめんなさい。
Sub read2()
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))
End Sub8888
|
|