Visual Basic 6 er programmeringsspråket og integrert utviklingsmiljø distribueres av Microsoft. Språket er populær for sin rask programutvikling , og automatisering evner. VB6 programmerere er i stand til å programmere og automatisere en rekke Microsoft-programmer , inkludert Microsoft Office og særlig Microsoft Excel. Programmerere er i stand til å referanseobjekter knyttet til Excel i sin VB6 kode , noe som gjør dem i stand til å automatisere , lese og skrive til programmet . Skrive VB6 kode tar litt kunnskap om programmering syntaks , når kunnskap er ervervet , tar du skriver til Excel i VB6 kode bare noen få skritt og linjer med kode for å følge. Instruksjoner
en

Åpen Visual Basic 6 og velg " Standard EXE " fra det nye prosjektet listen.
2

Gå til toppen menylinjen , klikk på " Project" og deretter klikk på "Legg Module ". Dette vil legge til en standard kodemodul inn VB6 prosjektet .
3

skriv eller kopier og lim inn følgende kode i modulen , ifølge Mike Rosenblum av Xtreme VB Talk.
< p> Sub WriteToExcel ( )

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

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

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

Sett oExcel = Ny Excel.Application

oExcel.Visible = sant

Dim oRng1 Som Excel.Range

Dim oRng2 Som Excel.Range

Set OWB = oExcel.Workbooks . Legg

Set OWS = oWB.Worksheets ( " Ark1 ")

Set oRng1 = oWS.Range ( "A1" )

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

oRng1.Value = " Hello World "

Ring oRng1.Copy (Destination : = oRng2 )

oWB.SaveAs ( " Hello World.xls " ) '< - Resultater lagret her

Opprydding :

Set OWS = Ingenting
p Hvis ikke OWB Er Ingenting Deretter oWB.Close

. Set OWB = Ingenting

oExcel.Quit

sett oExcel = Ingenting

End Sub

kode referanser Microsoft Excel-objekter , og deretter bruker den tilkoblingen for å åpne Microsoft Excel , og deretter skrive ordet "Hello World" i celle A1 og området B2 : E5 . Da dokumentet er lagret som "Hello World.xls " på datamaskinen og fortsetter å lukke ut Microsoft Excel.
4

Trykk " F5 " for å kjøre programmet .