Créez votre connexion à la feuille de calcul Excel. Ceci est fait en utilisant un objet de connexion qui comprend le pilote Excel. Le code suivant crée la connexion Excel:
Dim conn As ADODB.Connection
ConnString Dim As String
connString = "Driver = {Microsoft pilote Excel (* .xls)} - DriverID = 790- Dbq = excelfile.xls-"
conn.ConnectionString = connString
Récupérer les informations de la feuille de calcul Excel. Dans cet exemple, toutes les informations de la feuille de calcul Excel est prise pour convertir le fichier au complet le PDF. Les copies de code suivants toutes les données Excel:
sql = "* SELECT FROM sheet1"
excel_records = Recordset.Open sql, con, adLockOptimistic, adCmdText
Remplacer "Sheet1" avec le nom de votre feuille de calcul dans le fichier.
Créez le fichier PDF. Vous devez d'abord ouvrir la classe PDF et spécifier le fichier dont le contenu est transféré. Le code suivant crée et ouvre le fichier:
Pdf Dim As New mjwPDF
pdf.PDFTitle = "Excel à la conversion PDF"
pdf.PDFFileName = "converted.pdf"
Enregistrer les informations Excel pour le fichier PDF. Le code suivant transfère vos informations Excel:
pdf.PDFTextOut excel_records.ToString
Fermez le fichiers Excel et PDF pour libérer les ressources utilisées pour les ouvrir. Cela est bon pour les performances du serveur et libère tous les verrous du système d'exploitation sur les fichiers. Le code suivant libère les fichiers:
Set pdf = Nothing
Set conn = Nothing