Μετατροπή Excel σε PDF με χρήση VBScript

Για να μετατρέψετε ένα αρχείο Excel σε PDF:

  1. Χρησιμοποιήστε την ενέργεια Ορισμός μεταβλητής για να δημιουργήσετε μια νέα μεταβλητή που περιέχει τη διαδρομή του αρχείου Excel που θέλετε να μετατρέψετε. Σε αυτό το παράδειγμα, η μεταβλητή ονομάζεται ExcelFile.

    Η ενέργεια Ορισμού μεταβλητής που περιέχει τη διαδρομή του αρχείου Excel.

  2. Χρησιμοποιήστε μια δεύτερη ενέργεια Ορισμός μεταβλητής για να δημιουργήσετε μια μεταβλητή που περιέχει τη διαδρομή του αρχείου PDF που θέλετε να δημιουργήσετε. Σε αυτό το παράδειγμα, η μεταβλητή ονομάζεται PdfFile.

    Η ενέργεια Ορισμού μεταβλητής που περιέχει τη διαδρομή του αρχείου pdf.

  3. Αναπτύξτε την ενέργεια Εκτέλεση VBScript και συμπληρώστε τον ακόλουθο κώδικα.

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

    Η διαμορφωμένη ενέργεια "Εκτέλεση VBScript".