Есть папка "С:\Excel". В ней несколько документов Excel 2003 с заранее неизвестными именами. Нужно по расширению получить список этих файлов и сохранить их под тем же именами в формате .dbf.
Пока написал скрипт для сохранения одного файла в формате .dbf:
Код: Выделить всё
set objExcel = CreateObject ("Excel.Application")
objExcel.Visible = false
objExcel.Workbooks.Open("С:\Excel\Таблица.xls")
objExcel.Workbooks(1).SaveAs "С:\Excel\Таблица.dbf", 11,,,,false
objExcel.Application.Quit