Hur konvertera en Excel-fil till pdf via VB6

Adobe PDF- filer är skyddade dokument som du kan dela ut till läsare på Internet . Du kan konvertera flera filtyper till PDF för att skydda ditt arbete kopieras eller redigeras . Dessa filer kan konverteras on- the-fly med hjälp av Visual Basic-programmering . Detta är fördelaktigt då du har dokument på din webbserver som du vill skydda och distribuera på nätet. Visual Basic har interna biblioteken används för att omvandla din Excel-fil till PDF
1
Skapa din anslutning till . Excel- kalkylbladet . Detta görs med en anslutning objekt som innehåller Excel föraren . I följande kod skapas i Excel anslutning :

Dim conn Som ADODB. Connection

Dim connstring As String

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

conn. ConnectionString=connstring
2

hämta information från Excel- kalkylblad . I detta exempel är all information från Excel- kalkylbladet som vidtagits för att konvertera hela filen till PDF . Följande kod kopierar alla Excel-data :

sql=” SELECT * FROM Tabell1 ”

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

Ersätt ” Blad1 ” med namnet på kalkylbladet i filen .
3
Skapa PDF- fil . Du måste först inleda PDF klassen och ange filen där innehållet överförs . I följande kod skapas och öppnar filen:

Dim PDF som New mjwPDF

pdf. PDFTitle=” Excel till PDF konvertering ”

pdf . PDFFileName=” converted. pdf ”
4 .
Spara Excel- informationen till PDF-filen . Följande kod överför dina Excel- information .

pdf. PDFTextOut excel_records. ToString
5
Stäng Excel och PDF -filer att frigöra de resurser som används för att öppna dem . Detta är bra för serverns prestanda och frigör alla lås operativsystem på filerna . Följande kod släpper filerna :

Set pdf=Inget

Set conn=Nothing