[kaster]

Код:

#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

[FlatX007]

Код:

;~  AutoIt Version: 3.3.6.0

#include <Excel.au3>

OnAutoItExitRegister('_ExitScr')

Global $DIR_LOAD_FILE = @ScriptDir & '\Xls'
Global $DIR_SAVE_FILE = @ScriptDir & '\Save'
DirCreate($DIR_SAVE_FILE)

$iSearch = FileFindFirstFile($DIR_LOAD_FILE & '\*.xls')
If (@error) Then Exit

While 1

    $iFile = FileFindNextFile($iSearch)
    If @error Then ExitLoop
    ConsoleWrite($DIR_LOAD_FILE & '\' & $iFile & @CRLF)
    $oExcel = _ExcelBookOpen($DIR_LOAD_FILE & '\' & $iFile)
    If Not (@error) Then _ExcelBookSaveAs($oExcel, $DIR_SAVE_FILE & '\' & $iFile, 'xls')
    _ExcelBookClose($oExcel)

WEnd

Func _ExitScr()

    FileClose($iSearch)

EndFunc   ;==>_ExitScr

[Pozia]

kaster, а как еще сделать чтобы скрипт нажимал кнопку "Обновить", которая возникает при запуске файла? Фото прилагаю

[kaster]

Попробуй так

Код:

#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.UpdateLinks; Обновляем ссылки
	$oExcel.ActiveWorkBook.Save; Сохраняем файл
	$oExcel.Application.Quit; Выходим из Excel
	$oExcel = 0; Освобождаем переменную
Next

[Pozia]

kaster, не обнавляется

[Iska]

Pozia, я бы попробовал так:

Код:

…
$oExcel = ObjCreate('Excel.Application')
$oExcel.AskToUpdateLinks = False
…

AskToUpdateLinks Property True if Microsoft Excel asks the user to update links when opening files with links. False if links are automatically updated with no dialog box. Read/write Boolean.

[Pozia]

Iska, только сейчас появилась возможность проверить. Вроде помогло. Спсибо

[Iska]

Pozia, ясно. Спасибо, что отписались.

[Pozia]

Iska, вплотную сейчас работаю с этим скриптом. Надоедает его все время модифицировать. Теперь он у меня такой:

Код:

#include <file.au3>

$sTarPath1 = @ScriptDir & '\Звездочка'
$sTarPath2 = @ScriptDir & '\Муфта втулочно пальцевая\Параметры'
$sTarPath3 = @ScriptDir & '\Муфта цепная\Параметры'
$sTarPath4 = @ScriptDir & '\Редуктор\Параметры'
$sTarPath5 = @ScriptDir & '\РМ_1'
$sTarPath6 = @ScriptDir & '\Шкив'
$sTarPath7 = @ScriptDir & '\Электродвигатель'

$aExcelFiles1 = _FileListToArray($sTarPath1, '*.xlsx', 1); Фильтр на файлы xls. Если формат *.xlsx то ставим соответствующий фильтр
For $i = 1 to $aExcelFiles1[0]
	$sFile = $sTarPath1 & '\' & $aExcelFiles1[$i]
	$oExcel = ObjCreate('Excel.Application'); Запускаем экземпляр Excel
	$oExcel.AskToUpdateLinks = False
	$oExcel.WorkBooks.Open($sFile); Открываем файл Excel'ем
	$oExcel.ActiveWorkBook.UpdateLinks; Обновляем ссылки
	$oExcel.ActiveWorkBook.Save; Сохраняем файл
	$oExcel.Application.Quit; Выходим из Excel
	$oExcel = 0; Освобождаем переменную
Next

$aExcelFiles2 = _FileListToArray($sTarPath2, '*.xlsx', 1); Фильтр на файлы xls. Если формат *.xlsx то ставим соответствующий фильтр
For $i = 1 to $aExcelFiles2[0]
	$sFile = $sTarPath2 & '\' & $aExcelFiles2[$i]
	$oExcel = ObjCreate('Excel.Application'); Запускаем экземпляр Excel
	$oExcel.AskToUpdateLinks = False
	$oExcel.WorkBooks.Open($sFile); Открываем файл Excel'ем
	$oExcel.ActiveWorkBook.UpdateLinks; Обновляем ссылки
	$oExcel.ActiveWorkBook.Save; Сохраняем файл
	$oExcel.Application.Quit; Выходим из Excel
	$oExcel = 0; Освобождаем переменную
Next

$aExcelFiles3 = _FileListToArray($sTarPath3, '*.xlsx', 1); Фильтр на файлы xls. Если формат *.xlsx то ставим соответствующий фильтр
For $i = 1 to $aExcelFiles3[0]
	$sFile = $sTarPath3 & '\' & $aExcelFiles3[$i]
	$oExcel = ObjCreate('Excel.Application'); Запускаем экземпляр Excel
	$oExcel.AskToUpdateLinks = False
	$oExcel.WorkBooks.Open($sFile); Открываем файл Excel'ем
	$oExcel.ActiveWorkBook.UpdateLinks; Обновляем ссылки
	$oExcel.ActiveWorkBook.Save; Сохраняем файл
	$oExcel.Application.Quit; Выходим из Excel
	$oExcel = 0; Освобождаем переменную
Next

$aExcelFiles4 = _FileListToArray($sTarPath4, '*.xlsx', 1); Фильтр на файлы xls. Если формат *.xlsx то ставим соответствующий фильтр
For $i = 1 to $aExcelFiles4[0]
	$sFile = $sTarPath4 & '\' & $aExcelFiles4[$i]
	$oExcel = ObjCreate('Excel.Application'); Запускаем экземпляр Excel
	$oExcel.AskToUpdateLinks = False
	$oExcel.WorkBooks.Open($sFile); Открываем файл Excel'ем
	$oExcel.ActiveWorkBook.UpdateLinks; Обновляем ссылки
	$oExcel.ActiveWorkBook.Save; Сохраняем файл
	$oExcel.Application.Quit; Выходим из Excel
	$oExcel = 0; Освобождаем переменную
Next

$aExcelFiles5 = _FileListToArray($sTarPath5, '*.xlsx', 1); Фильтр на файлы xls. Если формат *.xlsx то ставим соответствующий фильтр
For $i = 1 to $aExcelFiles5[0]
	$sFile = $sTarPath5 & '\' & $aExcelFiles5[$i]
	$oExcel = ObjCreate('Excel.Application'); Запускаем экземпляр Excel
	$oExcel.AskToUpdateLinks = False
	$oExcel.WorkBooks.Open($sFile); Открываем файл Excel'ем
	$oExcel.ActiveWorkBook.UpdateLinks; Обновляем ссылки
	$oExcel.ActiveWorkBook.Save; Сохраняем файл
	$oExcel.Application.Quit; Выходим из Excel
	$oExcel = 0; Освобождаем переменную
Next

$aExcelFiles6 = _FileListToArray($sTarPath6, '*.xlsx', 1); Фильтр на файлы xls. Если формат *.xlsx то ставим соответствующий фильтр
For $i = 1 to $aExcelFiles6[0]
	$sFile = $sTarPath6 & '\' & $aExcelFiles6[$i]
	$oExcel = ObjCreate('Excel.Application'); Запускаем экземпляр Excel
	$oExcel.AskToUpdateLinks = False
	$oExcel.WorkBooks.Open($sFile); Открываем файл Excel'ем
	$oExcel.ActiveWorkBook.UpdateLinks; Обновляем ссылки
	$oExcel.ActiveWorkBook.Save; Сохраняем файл
	$oExcel.Application.Quit; Выходим из Excel
	$oExcel = 0; Освобождаем переменную
Next

$aExcelFiles7 = _FileListToArray($sTarPath7, '*.xlsx', 1); Фильтр на файлы xls. Если формат *.xlsx то ставим соответствующий фильтр
For $i = 1 to $aExcelFiles7[0]
	$sFile = $sTarPath7 & '\' & $aExcelFiles7[$i]
	$oExcel = ObjCreate('Excel.Application'); Запускаем экземпляр Excel
	$oExcel.AskToUpdateLinks = False
	$oExcel.WorkBooks.Open($sFile); Открываем файл Excel'ем
	$oExcel.ActiveWorkBook.UpdateLinks; Обновляем ссылки
	$oExcel.ActiveWorkBook.Save; Сохраняем файл
	$oExcel.Application.Quit; Выходим из Excel
	$oExcel = 0; Освобождаем переменную
Next

Могли бы вы его подправить так, чтобы он искал эксели во всех папках что находятся на одном уровне с самим скриптом, и вложенных в этих папках папки? Сейчас выскакивает ошибка, если в какой либо папке, прописанной в скрипте, нет экселя.