Преобразование Excel в PDF с помощью VBScript

Чтобы преобразовать файл Excel в PDF:

1. Используйте действие Задать переменную, чтобы создать новую переменную, содержащую путь к файлу Excel, который вы хотите преобразовать. В этом примере переменная называется ExcelFile.

   

2. Используйте второе действие Задать переменную, чтобы создать переменную, содержащую путь к файлу PDF, который вы хотите создать. В этом примере переменная называется PdfFile.

   

3. Разверните действие Запустить VBScript и заполните следующий код.

   Dim Excel
   Dim ExcelDoc
   
   'Opens the Excel file'
   Set Excel = CreateObject("Excel.Application")
   Set ExcelDoc = Excel.Workbooks.open("%ExcelFile%")
   
   'Creates the pdf file'
   Excel.ActiveSheet.ExportAsFixedFormat 0, "%PdfFile%" ,0, 1, 0,,,0
   
   'Closes the Excel file'
   Excel.ActiveWorkbook.Close
   Excel.Application.Quit