Написал небольшой макрос сохранения файла в pdf формате
Затем решил прибегнуть к приему, который на форуме мне показывали ранее, перевести код на vbs и добавить скрипт в меню правой кнопки мыши, получилось так
Данный скрипт отрабатывает, но только при открытом файле, т.е. я запускаю файл, который нужно пересохранить и потом перетаскиваю его на иконку скрипта и он срабатывает.
Как модифицировать код, чтобы скрипт воспринимал группу файлов, без открытия последних? и можно ли средствами vbs пересохранять в pdf - картинки?
пробовал так, но у данного объекта нет таких свойств
Код |
---|
Sub r() Dim PathX, PDFname On Error Resume Next PathX = ActiveWorkbook.Path SetXXX = CreateObject("Scripting.FileSystemObject") PDFname = XXX.GetBaseName(ActiveWorkbook.Name) ChDir PathX ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFname, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub |
Затем решил прибегнуть к приему, который на форуме мне показывали ранее, перевести код на vbs и добавить скрипт в меню правой кнопки мыши, получилось так
Код |
---|
Dim XL Set XL = GetObject(, "Excel.Application" ) XL.ActiveSheet.ExportAsFixedFormat 0, , 0, True, False,,,True |
Данный скрипт отрабатывает, но только при открытом файле, т.е. я запускаю файл, который нужно пересохранить и потом перетаскиваю его на иконку скрипта и он срабатывает.
Как модифицировать код, чтобы скрипт воспринимал группу файлов, без открытия последних? и можно ли средствами vbs пересохранять в pdf - картинки?
пробовал так, но у данного объекта нет таких свойств
Код |
---|
With CreateObject("Scripting.FileSystemObject") For Each X In wscript.arguments .ExportAsFixedFormat 0, , 0, True, False,,,True Next End With |