Hvordan skrive til Excel fra VB6

Visual Basic 6 er programmeringsspråk og integrert utviklingsmiljø distribueres av Microsoft. Språket er populær for sin rask programutvikling, og automasjon evner. VB6 programmerere er i stand til å programmere og automatisere en rekke Microsoft-programmer, inkludert Microsoft Office og spesielt Microsoft Excel. Programmerere er i stand til å referere objekter 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 kjennskap til programmering syntaks; når kunnskap er ervervet, skrive til Excel i VB6 kode tar bare noen få skritt og linjer med kode for å følge.

Bruksanvisning

1 Åpne Visual Basic 6 og velg "Standard EXE" fra den nye prosjektlisten.

2 Gå til toppmenyen, klikk på "Project" og deretter "Legg Module." Dette vil legge til en standard kodemodul inn i VB6 prosjektet.

3 Skriv eller kopier og lim inn følgende kode i modulen, ifølge Mike Rosenblum av Xtreme VB Talk.

Sub WriteToExcel ()

Dim oExcel As Excel.Application ' <-- *** Reference to Excel Application object***

Dim OWB Som Excel.Workbook '& lt; - *** Henvisning til Excel arbeidsbok objekt ***

Dim OWS Som Excel.Worksheet '& lt; - *** Henvisning til Excel regneark objekt ***

Sett oExcel = Ny Excel.Application

oExcel.Visible = True

Dim oRng1 Som Excel.Range

Dim oRng2 Som Excel.Range

Sett OWB = oExcel.Workbooks.Add

Sett OWS = oWB.Worksheets ( "Ark1")

Sett oRng1 = oWS.Range ( "A1")

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

oRng1.Value = "Hello World"

Ring oRng1.Copy (Destination: = oRng2)

oWB.SaveAs ( "Hello World.xls") '& lt; - Resultater lagret her.

Rydde opp:

Set oWS = Nothing

Hvis ikke OWB Er Ingenting Deretter oWB.Close

Sett OWB = Nothing

oExcel.Quit

Sett oExcel = Nothing

End Sub

Koden refererer Microsoft Excel dokument, og deretter bruker den forbindelse å åpne Microsoft Excel, og deretter skrive ordet "Hello World" i celle A1 og området B2: E5. Deretter lagrer det dokumentet som "Hello World.xls" på datamaskinen, og fortsetter å lukke ut Microsoft Excel.

4 Trykk "F5" for å kjøre programmet.