Запуск файлов и их сохранение - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - Запуск файлов и их сохранение (http://forum.oszone.net/showthread.php?t=178371)

Запуск файлов и их сохранение

Суть в следующем. Есть папка с кучей файлов excel. Мне необходимо чтобы скрипт, находясь в папке на уровень выше, запустил все файлы excel в указанной папке, и просто их сохранил и закрыл. И так по порядку все файлы. Имена файлов произвольны и количество тоже. Спасибо.

Код:

#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 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

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

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

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.

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

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

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

Цитата:

Цитата Pozia

чтобы он искал эксели во всех папках что находятся на одном уровне с самим скриптом, и вложенных в этих папках папки »

Код:

#include <Array.au3>



$aExcel = _FileSearch(@ScriptDir, '*.xlsx', 1)

_ArrayDisplay($aExcel)





Func _FileSearch($sPath, $sFileMask = '*', $iFlag = 0, $iSubdir = 1)

    ;фильтры для поиска нужно указывать через ;

    ;$iFlag = 0 - Файлы и папки (по умолчанию)

    ;$iFlag = 1 - Только файлы

    ;$iFlag = 2 - Только папки

    ;$iSubdir = 1 - Искать во всех подкаталогах (по умолчанию). Возвращает полные пути.

    ;$iSubdir = 0 - Искать только в самой папке. Возвращает только имена файлов(папок).

    Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib, $sSubdir, $aMasks



    If StringRight($sPath, 1) == '\' Then

        $sPath = StringTrimRight($sPath, 1)

    EndIf

    If $iSubdir Then

        $sSubdir = ' /S /B'

    Else

        $sSubdir = ' /B'

    EndIf

    Switch $iFlag

        Case 1

            $sAttrib = ' /A-D'

        Case 2

            $sAttrib = ' /AD'

        Case Else

            $sAttrib = ' /A'

    EndSwitch



    $sOut = StringToBinary('0' & @CRLF, 2)

    $aMasks = StringSplit($sFileMask, ';')



    For $i = 1 To $aMasks[0]

        $hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '"' & $sSubdir & $sAttrib, @SystemDir, @SW_HIDE, 6)

        While 1

            $sRead = StdoutRead($hDir, False, True)

            If @error Then

                ExitLoop

            EndIf

            If $sRead <> "" Then

                $sOut &= $sRead

            EndIf

            Sleep(2)

        WEnd

    Next

    $aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)

    If @error Then

        Return SetError(1)

    EndIf

    $aOut[0] = UBound($aOut) - 1

    Return $aOut

EndFunc   ;==>_FileSearch

_FileSearch().

madmasles, что то я не допру как этим добром пользоваться. Запустил, нашлись мои эксели. Выбрал. Нажал внизу кнопку. И ничего...

Цитата:

Цитата Pozia

Запустил, нашлись мои эксели »

Выбирать ничего не надо. _ArrayDisplay($aExcel) только чтобы показать, что нашли. Можно его убрать вместе с #include <Array.au3> . Дальше, наверное, так, как у Вас раньше было:

Код:

;...

If $aExcel[0] Then

    For $i = 1 To $aExcel[0]

        $sFile = $aExcel[$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

Else

    MsgBox(16, 'Error', 'Нет файлов')

EndIf

Попробуйте так, по идее, быстрее должно работать.

Код:

$aExcel = _FileSearch(@ScriptDir, '*.xlsx', 1)



If $aExcel[0] Then

    $oExcel = ObjCreate('Excel.Application'); Запускаем экземпляр Excel

    $oExcel.AskToUpdateLinks = False

    For $i = 1 To $aExcel[0]

        $oExcel.WorkBooks.Open($aExcel[$i]); Открываем файл Excel'ем

        $oExcel.ActiveWorkBook.UpdateLinks; Обновляем ссылки

        $oExcel.ActiveWorkBook.Save; Сохраняем файл

    Next

    $oExcel.Application.Quit; Выходим из Excel

    MsgBox(64, 'Info', 'Обработано ' & $aExcel[0] & ' файлов Excel')

Else

    MsgBox(16, 'Error', 'Нет файлов')

EndIf



Func _FileSearch($sPath, $sFileMask = '*', $iFlag = 0, $iSubdir = 1)

    ;фильтры для поиска нужно указывать через ;

    ;$iFlag = 0 - Файлы и папки (по умолчанию)

    ;$iFlag = 1 - Только файлы

    ;$iFlag = 2 - Только папки

    ;$iSubdir = 1 - Искать во всех подкаталогах (по умолчанию). Возвращает полные пути.

    ;$iSubdir = 0 - Искать только в самой папке. Возвращает только имена файлов(папок).

    Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib, $sSubdir, $aMasks



    If StringRight($sPath, 1) == '\' Then

        $sPath = StringTrimRight($sPath, 1)

    EndIf

    If $iSubdir Then

        $sSubdir = ' /S /B'

    Else

        $sSubdir = ' /B'

    EndIf

    Switch $iFlag

        Case 1

            $sAttrib = ' /A-D'

        Case 2

            $sAttrib = ' /AD'

        Case Else

            $sAttrib = ' /A'

    EndSwitch



    $sOut = StringToBinary('0' & @CRLF, 2)

    $aMasks = StringSplit($sFileMask, ';')



    For $i = 1 To $aMasks[0]

        $hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '"' & $sSubdir & $sAttrib, @SystemDir, @SW_HIDE, 6)

        While 1

            $sRead = StdoutRead($hDir, False, True)

            If @error Then

                ExitLoop

            EndIf

            If $sRead <> "" Then

                $sOut &= $sRead

            EndIf

            Sleep(2)

        WEnd

    Next

    $aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)

    If @error Then

        Return SetError(1)

    EndIf

    $aOut[0] = UBound($aOut) - 1

    Return $aOut

EndFunc   ;==>_FileSearch

madmasles, мне идея со списком ваша понравилась. А могли бы вы подправить так, чтобы я в списке выбирал какие файлы сохранить?

Цитата:

Цитата Pozia

чтобы я в списке выбирал какие файлы сохранить? »

Завтра попробую сделать.

Pozia,
То, что у меня получилось, в прикрепленном архиве. Вроде работает, проверял на Windows XP SP3 32 и Windows 7 SP1 32, Office 2003. Пытался написать здесь, но ругается, говорит, что слишком много символов. :)

PS
~~Поменяйте в скрипте на 14-ой строке $sExt = '*.xls' на $sExt = '*.xlsx', а то я на 2003 проверял.~~
Не надо, я добавил функцию на проверку версии, должно само определить.

Добавил вариант (3_Excel.7z) с возможностью изменения папки поиска файлов.

madmasles, при попытке скомпилировать выскакивает ошибка на winAPIE.au3. типа не может открыть. Это какая то добавка которой у меня нет?

Pozia,
Забыл дать ссылку: Расширение стандартной AutoIt библиотеки WinAPI.au3. :sorry:

madmasles, разобрался. Клева работает. Спасибо за помощь. Очень упростили мои мучения. По ходу юзания появилась еще хотелка. Если не сложно, сделайте вверху над всеми птичками еще одну общую птичку, которой можно было бы снять со всего или на все повесить. Если файлов много, а нужно выбрать несколько, то так будет удобнее. И если это возможно, сделайте возможность сортировки если нажимать вверху по Имя файла или Папка файла. Спасибо!!!

Pozia,
Птичку сделал, сортировку добавил, только не по нажиманию по заголовку ListView, а перед заполнением таблицы.

Цитата:

Цитата madmasles

а перед заполнением таблицы. »

что то не догоню где это. можно скрин?

madmasles, а чтобы в уже скомпилированом exe менять сортировку никак нельзя?

Цитата:

Цитата madmasles

sshot-33.png »

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

Pozia,
Тестируйте. Сортировка должна идти по той колонке, по которой кликните.

Еще немного изменил. :)

madmasles, в 5-ом небольшой глюк. Снимаю птичку с "Снять все" и нажимаю любую сортировку, и при этом везде появляются птички а на "Снять все нет".
В 6-ом при запуске ошибка выскакивает Line -1: Error: Unknown function name.

Цитата:

Цитата Pozia

и при этом везде появляются птички а на "Снять все нет". »

Поправлю.

Цитата:

Цитата Pozia

В 6-ом при запуске ошибка выскакивает Line -1: Error: Unknown function name. »

А про какую функцию SciTE в консоли так пишет?

Pozia,
Сортировку исправил, поменял файлы (5_Excel.7z и 6_Excel.7z, см.выше)

Цитата:

Цитата madmasles

А про какую функцию SciTE в консоли так пишет? »

в аттаче

И последняя хотелка. Сделайте по умолчанию чтобы при запуске была сортировка по папкам

Цитата:

Цитата Pozia

в аттаче »

У Вас какая версия AutoIt? У меня 3.3.6.1. Если у Вас другая, советую обновить, а то у Вас много чего работать не будет.

Цитата:

Цитата Pozia

Сделайте по умолчанию чтобы при запуске была сортировка по папкам »

В конце функции _Get_Array_To_LV($s_Path, $s_Ext) поменяйте

Код:

;...

_ArraySort($a_Return_Array)

;на

_ArraySort($a_Return_Array, 0, 0, 0, 1)

;...

спасибо. все классно работает.

madmasles, нужна еще ваша помощь. Если не сложно доделайте скрипт с учетом следующего:
1. Необходима возможность запуска нужного файла эксель из списка двойным кликам по нему в списке.
2. Необходимо, чтобы окно было поверх всех, и допустим снизу имелась бы птичка для снятия поверх всех.
3. Для лучшего визуального восприятия хотелось бы, чтобы групы экселев лежащих в разных конечных папках отличались по цвету: допустим серый-белый-серый... фон.

Спасибо !!!

Pozia,
Пробуйте.
Если дважды кликнуть по файлу, должен открыться файл, если по папке - папка. Разный цвет у меня работает, но скорость упала.

на первый взгляд все пучком. спасибо

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

Суть проблемы:
Есть главный файл эксель находящийся по пути d:\work\DM.xlsx.
По пути d:\work\SolidWorks\ лежит куча файлов эксель которые ссылаются на DM.xlsx, то есть берут из него данные. Когда я запускаю ваш скрипт, то указываю файлы из d:\work\SolidWorks\ и он их прекрасно пересохраняет, то есть цифры в нем меняются на те, что в DM.xlsx. Раньше у меня все файлы эксель из d:\work\SolidWorks\ ссылались на клетки в d:\work\DM.xlsx по координатам. И все было хорошо. Сейчас возникла необходимость клеткам эксель в файле DM.xlsx присвоить имена, и ссылки в файлах по пути d:\work\SolidWorks\ сейчас ссылаются на имена клеток. И теперь скрипт начал портить файлы эксель что находятся в d:\work\SolidWorks\, а именно при запущенном файле DM.xlsx не запускаются файлы из d:\work\SolidWorks\. Выскакивает ошибка :

Код:

В книге "Вал l.xlsx" обнаружено coдepжимoe^ которое не удалось прочитать. Попробовать восстановить содержимое книги? Если вы доверяете источнику этой книги, нажмите кнопку "Да".

Отмечу, данный глюк справедлив ТОЛЬКО при работе по пути :\work\. При других путях все ОК. Проблема в том, что очень большое количество других рабочих файлов завязано на этот путь. Менять путь большая проблема для меня и потеря недели времени на исправление. ВРЕМЕНИ катастрофически нет.

Заметил, что в вашем скрипте 15 слов с именем Work. Мне кажется, что в этом косяк, какая то нестыковка. Можно ли как то подправить скрипт?

Прошу помощи у всех, если автор скрипта не откликнется. Большое спасибо заранее.

После ночи ковыряния понял в чем проблема. Опять же, не в путях. Проблема в большом количестве именованных клеток в файле DM.xlsx.

Вопрос по переделки скрипта от madmasles с целью исключения конфликта имен остается открытым (

Pozia,
У меня Office 2003 и мне не удалось повторить Вашу ошибку, так что я пас.

madmasles, а по другому как то ваш скрипт можно переписать? то есть вложитьб какой нить другой алгоритм или еще чего?