Comador 203 Опубликовано 6 Марта 2012 FANAT, вместо * указывай номер архива, в итоге у тебя в файле должно быть три строки. Неважно – сколько у тебя друзей. Важно - сколько из них помогут тебе в трудную минуту и сколько вспомнят о тебе когда им хорошо. "Худ" и "Умное выпадание частей монстров" для Народной солянки Поделиться этим сообщением Ссылка на сообщение
Comador 203 Опубликовано 22 Апреля 2016 (изменено) Ребята нужна помощь. Есть огромное количество файлов с расширением *.xls, которые находятся в текущей папке, а так же в подпапках. В наличие есть небольшой VBS-скрипт, который "пересохраняет" эти в файлы в *.xlsx Set app = CreateObject("Excel.Application") Set fso = CreateObject("Scripting.FileSystemObject") strPath = "." strPath = "." Set fld = fso.GetFolder(strPath) For Each fil In fld.Files If Right(fil.Name, 3) = "xls" Then Set wbk = app.Workbooks.Open(fil) app.DisplayAlerts = False wbk.SaveAs fil & "x", 51 wbk.Close False End If Next app.Quit но он обрабатывает только файлы в корне папки. Что нужно подправить, чтобы он охватывал и подпапки? P.S. запуск скрипт производится через батник. Изменено 22 Апреля 2016 пользователем Comador Неважно – сколько у тебя друзей. Важно - сколько из них помогут тебе в трудную минуту и сколько вспомнят о тебе когда им хорошо. "Худ" и "Умное выпадание частей монстров" для Народной солянки Поделиться этим сообщением Ссылка на сообщение
