Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для zion87

Старожил


Сообщения: 263
Благодарности: 69

Профиль | Отправить PM | Цитировать


VBScript это может делать, вот пример

Код: Выделить весь код
Dim oXL

Set oXL = WScript.CreateObject("Excel.Application")

oXL.Visible = false            'скрыть Excel 

oXL.WorkBooks.Add("C:\test.xlsx") 'добавить существующую книгу - описание колонок  

' ищем первую не заполненную строку 
' левая верхняя ячейка имеет координаты 1,1 в MS Office и 0,0 в Open Office
Row = 1                                           ' с какой строки начинаем поиск
Col = 1                                            ' какую колонку проверять

Do While oXL.Cells(Row, Col).Value > 0  ' проверяем ячейку строки  
  Row = Row + 1
Loop

a = oXL.Cells(Row, 1).Value                 ' читать значение ячейки 1 в строке Row

oXL.Cells(Row, 1).Value = "Имя"           ' записать строковые данные в ячейку 2 в строке Row
oXL.Cells(Row, 2).Value = "Фамилия"              ' записать числовые данные в ячейку 3 в строке Row

' выделение ячеек и форматирование выделенных
oXL.ActiveSheet.Range("A3:A100").Select
oXL.Selection.NumberFormat = "#,##0.00"

oXL.Visible = true                              ' показать Excel 

'oXL.WorkBooks.Close
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:19, 30-06-2013 | #2