Δημιουργία σύνδεσης σας στο υπολογιστικό φύλλο Excel . Αυτό γίνεται χρησιμοποιώντας ένα αντικείμενο σύνδεσης που περιλαμβάνει τον οδηγό του Excel . Ο παρακάτω κώδικας δημιουργεί τη σύνδεση του Excel :
Dim conn Όπως ADODB.Connection
Dim connstring Όπως String
connstring = "Driver = { Microsoft Excel Driver ( *. Xls ) } ? driverID = 790 ? dbq = ExcelFile.xls ? "
conn.ConnectionString = connstring 2
Ανακτήστε τις πληροφορίες από το φύλλο εργασίας του Excel . Σε αυτό το παράδειγμα , όλες οι πληροφορίες από το υπολογιστικό φύλλο του Excel για τη μετατροπή του ολόκληρο το αρχείο σε PDF. Οι παρακάτω κώδικας αντιγράφεται όλα τα δεδομένα του Excel :
sql = "SELECT * FROM sheet1 "
excel_records = recordset.Open sql , con , , adLockOptimistic , adCmdText
Αντικατάσταση " Φύλλο1 "με το όνομα του φύλλου σας στο αρχείο .
εικόνων 3
Δημιουργήστε το αρχείο PDF . Θα πρέπει πρώτα να κινήσει τη κατηγορία PDF και να καθορίσετε το αρχείο για το οποίο το περιεχόμενο μεταφέρεται . Ο παρακάτω κώδικας δημιουργεί και ανοίγει το αρχείο :
Dim pdf As New mjwPDF
pdf.PDFTitle = " Excel με τη μετατροπή PDF "
pdf.PDFFileName = " converted.pdf "
Η 4
Αποθηκεύστε τις πληροφορίες του Excel στο αρχείο PDF . Ο ακόλουθος κώδικας μεταφέρει τις πληροφορίες σας Excel :
pdf.PDFTextOut excel_records.ToString
5
Κλείστε το Excel και τα αρχεία PDF για να απελευθερώσει τους πόρους που χρησιμοποιήθηκαν για να τα ανοίξετε . Αυτό είναι καλό για τις επιδόσεις του διακομιστή και ελευθερώνει όλα τα κλειδώματα του λειτουργικού συστήματος στα αρχεία . Ο κώδικας που ακολουθεί απελευθερώνει τα αρχεία :
Set pdf = Τίποτα
Ορισμός conn = Τίποτα
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα