[romfus]

Что то удалось сделать но не CMD а VBS. Но открыть я могу лишь один файл, как открыть сразу все файлы xls?

Код:

Dim oXL

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

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

oXL.WorkBooks.Open("D:\IVC\Operators\Printer\1.xls") 'добавить существующую книгу - описание колонок  

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

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

oXL.Cells(Row, 6).Value = "street"           ' записать строковые данные в ячейку 2 в строке Row

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

oXL.WorkBooks.Close