PDA

Показать полную графическую версию : [решено] работа с excel через батник


NibelungXXX
30-06-2013, 14:48
подскажите, как задать переменной значение в батнике, и записать его в excel?

например в батнике есть переменные:
имя
фамилия
надо чтобы имя записалось в 1.1 ячейку, а фамилия в 1,2 ячейку

zion87
30-06-2013, 15:19
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

NibelungXXX
30-06-2013, 19:45
спасибо




© OSzone.net 2001-2012