Black_Lung
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужно сделать чтобы это работало через VBS
Код:
Sub Macro1()
Workbooks.OpenText Filename:="D:\xxx.txt", Origin:=1251, _
StartRow:=8, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(13 _
, 1), Array(35, 1)), TrailingMinusNumbers:=True
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Columns("A:C").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Row = 2
While Cells(Row, 2).Value <> "xxx"
Row = Row + 1
Wend
RowC = Row - 1
Range(Cells(1, 1), Cells(RowC, 3)).Select
Selection.Copy
Set NewBook = Workbooks.Add
NewBook.Activate
ActiveWorkbook.Sheets(1).Paste
ActiveWorkbook.SaveAs "D:\book2.xls"
End Sub
|
VBS стандартный для XP sp3
Пока получилось только открыть файл считать ячейку сохранить и закрыть.
Все то что я нашел про Workbooks на MSDN в моем VBSe не работает,пробовал и вскобках и так он принимает только имя файла остальные парамитры нет. Чтонибудь типа Range(Cells(1, 1), Cells(RowC, 3)).Select в VBS тоже не работает.
....
Все получилось. Все дело в том что VBS не понимает параметров типа xlFixedWidth. Вместо них нужно правильные ставить цифры, вот так гиморно получилось открыть файл с параметрами.
Код:
xlApp.Workbooks.OpenText "D:\xxx.txt",1251,8,2,1,0,0,0,0,0,0,0,Array(Array(0, 1), Array(13 _
, 1), Array(35, 1)),null,null,null,1
|
в конце нужно ставить именно 'null' если 0 то не работает
Но с Selection всеже не разобрался.
Дайте ссылку по Excel на VBS. где хотябы список всех правильных параметров xl... для VBA методов
В форуме MSDN такие вопросы если задают то шлют...
|
Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 16:02 12-02-2009 | Исправлено: Black_Lung, 17:48 12-02-2009 |
|
