Visual Basic 6 er det programmeringssprog og integreret udviklingsmiljø indsat af Microsoft. Sproget er populær for sin hurtig applikationsudvikling og automatisering kapaciteter. VB6 programmører er i stand til at programmere og automatisere en række Microsoft-programmer , herunder Microsoft Office og i særdeleshed Microsoft Excel. Programmører er i stand til referenceobjekter vedrørende Excel i deres VB6 kode, som gør dem i stand til at automatisere, læse og skrive til programmet. Skrivning VB6 kode tager nogle viden om dens programmering syntaks , når den viden er erhvervet , tager skriver til Excel i din VB6 koden kun et par skridt og linjer af kode til følge. Instruktioner
1

Open Visual Basic 6 og vælg " Standard EXE " fra det nye projekt listen.
2

Gå til den øverste menubjælke , klik på " Project" og derefter klik på "Tilføj Module ". Dette vil tilføje en standard kode modul i VB6 projekt.
3

Skriv eller kopiere og indsætte følgende kode i modulet , ifølge Mike Rosenblum af Xtreme VB Talk.
< p> Sub WriteToExcel ()

Dim oExcel Som Excel.Application '< - *** Henvisning til Excel Application objekt ***

Dim OWB Som Excel.Workbook ' < - - *** Henvisning til Excel Workbook objekt ***

Dim OWS Som Excel.Worksheet '< - *** Henvisning til Excel-regneark objekt ***

Set oExcel = Ny Excel.Application

oExcel.Visible = Sand

Dim oRng1 Som Excel.Range

Dim oRng2 As Excel.Range

Set OWB = oExcel.Workbooks . Tilføj

Set OWS = oWB.Worksheets ( " Ark1 " )

Set oRng1 = oWS.Range ( "A1" )

Set oRng2 = oWS.Range ( " B2: E5 " )

oRng1.Value =" Hello World "

Call oRng1.Copy ( Destination: = oRng2 )

oWB.SaveAs ( " Hello World.xls " ) '< - Resultaterne gemt her

Oprydning :

Set OWS = Nothing
p Hvis ikke OWB Er Ingenting Så oWB.Close

. Set OWB = Nothing

oExcel.Quit

Set oExcel = Nothing

End Sub

kode referencer Microsoft Excel objekter, og bruger derefter den forbindelse til at åbne Microsoft Excel , og derefter skrive ordet " Hello World" i celle A1 og rækkevidde B2: E5 . Så gemmer dokumentet som " Hello World.xls " på din computer og provenuet til at lukke Microsoft Excel.
4

Tryk på " F5 " for at køre programmet.
< Br >