Chuyển đổi Excel sang PDF bằng VBScript

Để chuyển đổi tệp Excel sang PDF:

1. Sử dụng hành động Đặt biến để tạo một biến mới chứa đường dẫn của tệp Excel mà bạn muốn chuyển đổi. Trong ví dụ này, biến có tên ExcelFile.

   

2. Sử dụng tác vụ Đặt biến thứ hai để tạo biến chứa đường dẫn của tệp PDF mà bạn muốn tạo. Trong ví dụ này, biến có tên PdfFile.

   

3. Triển khai hành động Chạy VBScript và điền mã sau đây.

   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