Avviare il programmatore VB6 . Digitare il seguente comando per creare un collegamento tra VB6 e Excel :
Dim conn come ADODB.Connection
Dim connString As String
connString = " Driver = { Microsoft Excel driver ( * . xls ) } ; DriverId = 790 ; Dbq = excelfile.xls ; ».
conn.ConnectionString = connString
Premere" Enter "
2
Digitare il seguente comando per aprire il tuo foglio di Excel :
sql = "SELECT * FROM sheet1 "
excel_records = Recordset.Open sql , con, , adLockOptimistic , adCmdText
sostituire " foglio 1" con il nome del tuo foglio di Excel . Premere il tasto " Enter ".
3
Creare un file in formato PDF digitando il seguente comando :
Dim pdf As New mjwPDF
pdf . PDFTitle = " Excel a PDF conversione"
pdf.PDFFileName = " converted.pdf "
premere "Invio ".
4
Digitare il seguente comando per salvare il file XLS in formato PDF : . " Enter"
pdf.PDFTextOut excel_records.ToString
Press
software © www.354353.com