Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako previesť súbor programu Excel do PDF cez VB6

súborov Adobe PDF sú chránené dokumentov , môžete distribuovať čitateľom na internete . Môžete previesť niekoľko typov súborov do formátu PDF k ochrane vašej práce pred kopírovať alebo upravovať . Tieto súbory môžu byť prevedené na - the - fly pomocou jazyka Visual Basic programovanie . To je výhodné , keď máte dokumenty na Vašom webovom serveri , ktorý chcete chrániť a distribuovať on - line . Visual Basic má internú knižnice používané previesť súbor programu Excel do formátu PDF . Pokyny dovolená 1

Vytvorte si pripojenie k tabuľke programu Excel . To sa vykonáva pomocou objekt pripojenia , ktorý obsahuje ovládač Excel . Nasledujúci kód vytvorí spojenie programu Excel :

Dim conn Ako ADODB.Connection

Dim connstring As String

connstring = " Driver = { Microsoft Excel Driver ( . * Xls ) } ; DriverId = 790 ; DBQ = excelfile.xls ; "

conn.ConnectionString = connstring
2

Načítať informácie z pracovného hárka programu Excel . V tomto prípade , všetky informácie z tabuľky programu Excel je prijatá previesť celý súbor do formátu PDF . Nasledujúci skopíruje kód všetky dáta programu Excel :

sql = " SELECT * FROM Hárok1 "

excel_records = recordset.Open sql , con , , adLockOptimistic , adCmdText

Nahradiť " Hárok1 " s názvom vašej tabuľky v súbore .
3

Vytvoriť súbor PDF . Najprv je potrebné začať triedu PDF a určite súbor , ktorého obsah je prenesený . Nasledujúci kód vytvorí a otvorí súbor :

Dim pdf As New mjwPDF

pdf.PDFTitle = " Excel ku konverzii PDF "

pdf.PDFFileName = " converted.pdf "
4

Uloženie informácií programu Excel do súboru PDF . Nasledujúci kód odovzdáva svoje informácie Excel :

pdf.PDFTextOut excel_records.ToString
5

Zavrite Excel a PDF súbory uvoľniť prostriedky používané na ich otvorenie. To je dobré pre výkon servera a uvoľnia všetky operačný systém zámky na súboroch . Nasledujúci kód uvoľní súbory :

Set pdf = Nothing

Set conn = Nothing

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené