Come convertire un file di Excel a PDF Attraverso VB6

April 8

Come convertire un file di Excel a PDF Attraverso VB6


file Adobe PDF sono protetti i documenti è possibile distribuire ai lettori su Internet. È possibile convertire diversi tipi di file in PDF per proteggere il vostro lavoro venga copiato o modificato. Questi file possono essere convertiti on-the-fly utilizzando la programmazione Visual Basic. Questo è utile quando si hanno documenti sul vostro server web che si desidera proteggere e distribuire on-line. Visual Basic ha librerie interni utilizzati per convertire il file di Excel a PDF.

istruzione

1 Crea il tuo collegamento con il foglio di calcolo Excel. Questo viene fatto utilizzando un oggetto di connessione che include il driver di Excel. Il codice seguente crea la connessione di Excel:

conn fioco come ADODB.Connection
CONNSTRING Dim As String
CONNSTRING = "Driver = {Driver Microsoft Excel (* .xls)}; DriverId = 790; Dbq = ExcelFile.xls;"
conn.ConnectionString = CONNSTRING

2 Recuperare le informazioni dal foglio di lavoro di Excel. In questo esempio, tutte le informazioni dal foglio di calcolo di Excel è preso per convertire l'intero file al PDF. Il codice seguente copia tutti i dati di Excel:

sql = "SELECT * FROM sheet1"
excel_records = recordset.Open SQL, con,, adLockOptimistic, adCmdText

Sostituire "Sheet1" con il nome del foglio di calcolo nel file.

3 Creare il file PDF. È necessario prima avviare la classe PDF e specificare il file per il quale il contenuto viene trasferito. Il codice seguente crea e apre il file:

pdf fioco come nuovo mjwPDF
pdf.PDFTitle = "Excel per la conversione PDF"
pdf.PDFFileName = "converted.pdf"

4 Salvare le informazioni di Excel al file PDF. Il seguente codice trasferisce i dati di Excel:

pdf.PDFTextOut excel_records.ToString

5 Chiudere il file PDF Excel e di liberare le risorse utilizzate per aprirli. Questo è un bene per le prestazioni del server e consente di liberare tutte le serrature del sistema operativo sui file. Il seguente codice rilascia i file:

Set pdf = Nothing
Set conn = Nothing