Visual Basic 6 är det programmeringsspråk och integrerad utvecklingsmiljö distribueras av Microsoft . Språket är populär för dess snabb utveckling , och kapacitet automation . VB6 programmerare kan programmera och automatisera ett antal Microsoft-program , inklusive Microsoft Office och i synnerhet Microsoft Excel . Programmerare kan referensobjekt rörande Excel i sin VB6 kod , som gör det möjligt för dem att automatisera , läsa och skriva till programmet . Skriva VB6 kod tar lite kunskap om sin programmering syntax , när kunskap förvärvas , tar skriver till Excel i din VB6 kod bara några steg och rader kod för att följa . Instruktioner
1
Öppna Visual Basic 6 och välj " Standard EXE " från det nya projektet listan .
2
Gå till menyraden , klicka på " Projekt " och sedan klicka på " Lägg till modul . " Detta kommer att lägga till en standard kod modul i VB6 projektet .
3
Skriv eller kopiera och klistra in följande kod i modulen , enligt Mike Rosenblum av Xtreme VB Talk .
Sub WriteToExcel ( ) katalog
Dim oExcel som Excel.Application ' < - *** Hänvisning till Excel Application objektet ***
Dim OWB som Excel.Workbook " < - - *** Hänvisning till Excel-arbetsbok objektet ***
Dim OWS som Excel.Worksheet ' < - *** Hänvisning till Excel-kalkylblad objektet ***
Set oExcel = Ny Excel.Application
oExcel.Visible = Sant
Dim oRng1 Som Excel.Range
Dim oRng2 As Excel.Range
Set OWB = oExcel.Workbooks . Lägg
Set OWS = oWB.Worksheets ( " Blad1 " ) katalog
Set oRng1 = oWS.Range ( " A1 " ) katalog
Set oRng2 = oWS.Range ( " B2 : E5 " ) katalog
oRng1.Value = " Hello World "
Call oRng1.Copy ( Destination : = oRng2 ) katalog
oWB.SaveAs ( " Hej World.xls " ) ' < - Resultat sparas här
Rengöring :
Set OWS = Nothing
p Om inte OWB är ingenting Sedan oWB.Close
. set OWB = Nothing
oExcel.Quit
set oExcel = Nothing
End Sub
kod referenser Microsoft Excel- objekt och använder sedan detta sammanhang att öppna Microsoft Excel och sedan skriva ordet " Hello World " i cell A1 och området B2 : E5 . Då det sparar dokumentet som " Hej World.xls " på din dator och fortsätter att stänga Microsoft Excel .
4
Tryck " F5 " för att köra programmet .
