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

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

Аватара для kaster

Старожил


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

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


Код: Выделить весь код
#include <file.au3>
$sTarFolder = 'Excel'; Название папки с Excel файлами
$sTarPath = @ScriptDir & '\' & $sTarFolder
$aExcelFiles = _FileListToArray($sTarPath, '*.xls', 1); Фильтр на файлы xls. Если формат *.xlsx то ставим соответствующий фильтр
For $i = 1 to $aExcelFiles[0]
	$sFile = $sTarPath & '\' & $aExcelFiles[$i]
	$oExcel = ObjCreate('Excel.Application'); Запускаем экземпляр Excel
	$oExcel.WorkBooks.Open($sFile); Открываем файл Excel'ем
	$oExcel.ActiveWorkBook.Save; Сохраняем файл
	$oExcel.Application.Quit; Выходим из Excel
	$oExcel = 0; Освобождаем переменную
Next

-------
Русское сообщество пользователей AutoIt
autoit@conference.jabber.ru - Конференция на jabber.ru

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

Отправлено: 00:52, 17-06-2010 | #2