Εκκίνηση 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"
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα