Πώς να μετατρέψετε XLS σε PDF Μέσω Visual Basic 6

Visual Basic 6 , ή VB6 , είναι ένα event-driven γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft που χρησιμοποιείται για να επιτρέψει την ανάπτυξη των γραφικών διεπαφών χρήστη , τα στοιχεία ελέγχου ActiveX και εφαρμογές . Ένα αρχείο PDF είναι ένα ευέλικτο έγγραφο συμβατό με τα περισσότερα λειτουργικά συστήματα που μπορείτε να χρησιμοποιήσετε για να μοιράζονται και να διανέμουν αρχεία, όπως αρχεία XLS . Μέσα από μια σειρά από προτροπές της εντολής , μπορείτε να μετατρέψετε το αρχείο XLS σας σε ένα αρχείο PDF σε VB6 . Οδηγίες
Η 1

Εκκίνηση VB6 προγραμματιστή σας . Πληκτρολογήστε την ακόλουθη εντολή για να δημιουργήσετε μια σύνδεση μεταξύ VB6 και Excel:

Dim conn Όπως ADODB.Connection

Dim connstring Όπως String

connstring = "Driver = { Microsoft Excel Driver ( *. xls ) } ? driverID = 790 ? dbq = ExcelFile.xls ? . "

conn.ConnectionString = connstring

Πατήστε το πλήκτρο" Enter " 2

Πληκτρολογήστε την ακόλουθη εντολή για να ανοίξει το φύλλο Excel :

sql = "SELECT * FROM sheet1 "

excel_records = recordset.Open sql , con , , adLockOptimistic , adCmdText

Αντικαταστήστε το " φύλλο 1 " με το όνομα του φύλλου του Excel . Πατήστε " . Enter"
εικόνων 3

Δημιουργήστε ένα αρχείο σε μορφή PDF, πληκτρολογώντας την ακόλουθη εντολή :

Dim pdf Όπως New mjwPDF

pdf . PDFTitle = " Excel με τη μετατροπή PDF "

pdf.PDFFileName = " converted.pdf "

Πατήστε "Enter ".
Η 4

Πληκτρολογήστε την ακόλουθη εντολή για να αποθηκεύσετε XLS αρχείο σας σε μορφή PDF :

pdf.PDFTextOut excel_records.ToString

Press " . Enter"
Η
εικόνων