Чтение файла .txt и формирование Excel [D5]
Виктор © (2008-09-22 09:37:00)
Как этот макрос написать в Delphi?
Workbooks.OpenText
Filename:="Y:\BBTWork\dos\BS12D_StringGrid8.txt", Origin _
:=1251, StartRow:=1,
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False,
Tab:=False, Semicolon:=False, Comma:= _
False, Space:=False, Other:=True,
OtherChar:="~", FieldInfo:=Array( _
Array(1, 1), Array(2, 1), Array(3,
1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), _
Array(8, 1), Array(9, 1),
Array(10, 1), Array(11, 1)), TrailingMinusNumbers:=True
Columns("B:B").EntireColumn.AutoFit
Vlad Oshin (2008-09-22 10:51:00) [1]
http://www.archival.ru/?q=node/42
Наверх 
ЧАТ |
Орешник |
|
