Nwlapcug.com


Come convertire un File Excel in PDF attraverso VB6

Come convertire un File Excel in PDF attraverso VB6


File Adobe PDF sono documenti protetti è possibile distribuire ai lettori su Internet. È possibile convertire diversi tipi di file in PDF per proteggere il proprio lavoro venga copiato o modificato. Questi file possono essere convertiti on-the-fly utilizzando Visual Basic programming. Questo è utile quando si dispone di documenti sul server web che si desidera proteggere e distribuire online. Visual Basic ha le librerie interne utilizzate per convertire file Excel in PDF.

Istruzioni

1

Creare la connessione al foglio di calcolo Excel. Questa operazione viene eseguita utilizzando un oggetto di connessione che include il driver di Excel. Il codice seguente crea la connessione di Excel:

Dim conn As ADODB. Connessione
Dim connstring As String
connString = "Driver = {Microsoft Excel Driver (*. xls)}; DriverId = 790; DBQ=ExcelFile.xls;"
conn. ConnectionString = connstring

2

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

SQL = "selezionare * da sheet1"
excel_records = recordset. Aprire sql, con, adLockOptimistic, adCmdText

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

3

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

Pdf Dim mjwPDF As New
PDF. PDFTitle = "Excel alla conversione del PDF"
PDF. PDFFileName = "converted.pdf"

4

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

PDF. PDFTextOut excel_records. ToString

5

Chiudere i file Excel e PDF per rilasciare le risorse utilizzate per aprirli. Questo è buono per le prestazioni del server e libera qualsiasi sistema operativo blocchi sui file. Il seguente codice rilascia i file:

Impostare pdf = Nothing
Set conn = Nothing