Πώς να μετατρέψετε ένα αρχείο Excel σε PDF Μέσω VB6

Τα αρχεία Adobe PDF προστατεύεται έγγραφα μπορείτε να διανείμετε στους αναγνώστες του Διαδικτύου. Μπορείτε να μετατρέψετε διάφορους τύπους αρχείων σε PDF για να προστατεύσετε την εργασία σας από την αντιγραφή ή επεξεργασία . Αυτά τα αρχεία μπορούν να μετατραπούν on-the - fly χρησιμοποιώντας τη Visual Basic. Αυτό είναι ευεργετικό όταν έχετε τα έγγραφα για τον web server σας, που θέλετε να προστατεύσετε και να διανέμει μέσω του διαδικτύου . Visual Basic έχει τις εσωτερικές βιβλιοθήκες που χρησιμοποιούνται για να μετατρέψετε το αρχείο του Excel σε PDF . Οδηγίες
Η 1

Δημιουργία σύνδεσης σας στο υπολογιστικό φύλλο 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 = Τίποτα
Η
εικόνων