Workbooks.OpenText Filename:="файл.txt", _
Origin:=866, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= False, Space:=False, Other:=True, OtherChar:="|",_
FieldInfo:=Array( Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 1),_ Array(5, 1), Array(6, 1), Array(7, 1),Array(8, 1),Array(9, 1),_
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1),_ Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1),_ Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1),_ Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1),_ Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 2), Array(34, 1)),_ DecimalSeparator:=",", TrailingMinusNumbers:=False
Ну это всё хорошо, теперь эту радость перенёс в VBS файл, получилось вот что:
Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Visible = True
objXL.Workbooks.Add
objXL.Workbooks.OpenText "файл.txt", 3, 1, 1, 0, False, False, False, False, False, True, "|", FieldInfo:=Array( _
Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, 1), Array(6,_ 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1),_ Array(12, 1), Array(13, 1), Array(14,1), Array(15, 1), Array(16, 1),_
Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1),_ Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1),_ Array( 27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1),__ Array(32, 1), Array(33, 2), Array(34, 1)), _
",",False
В отладчике после запуска видим ошибку:
Microsoft Office Excel: метод OpenText из класса Workbooks завершен неверно. Сам же Excel открылся в окне и не ругнулся.
Кто нибудь знает в чем причина ошибки и как надо правильно написать такое вот открытие текстового файла ? Из-за этой ошибки совсем не хочется писать отдельный VBA скрипт..
