Microsoft Excel er et regnearkprogram som lar deg lage regneark til å organisere og beregne data og grafer . Visual Basic 6 ( VB6 ) er en versjon av Visual Basic , som er programmeringsspråket og integrert utviklingsmiljø laget av Microsoft . Lage informasjon i Excel er enklere enn i VB6 , så det er noen ganger praktisk å importere data fra Excel til VB6. Det er flere måter å gjøre dette , men det enkleste er en linje med kode i Visual Basic som automatiserer prosessen . Instruksjoner
en
Start et nytt Visual Basic-prosjekt .
2
Legg ett tekstfelt og kommandoknapp til skjemaet.
3
Velg "Project Menu" og velg deretter " Referanser " alternativet . Derfra velge "Microsoft Excel Library "-linjen.
4
Skriv inn følgende kode .
Private Sub Command1_Click ( )
Dim objXLApp As Excel. søknad
Dim intLoopCounter As Integer
Set objXLApp = Ny Excel.Application
p Med objXLApp
Workbooks.Open . "C : \\ File.xls "
. Arbeidsbøker ( 1 ) . regneark ( 1 ) . Velg
For intLoopCounter = 1 To Cint ( . ActiveSheet.Cells.SpecialCells ( xlCellTypeLastCell ) . Row)
List1 . AddItem . Range (" A" & intLoopCounter )
Neste intLoopCounter
. Arbeidsbøker ( 1) . Lukk False
. Avslutt
End With
Set objXLApp = Ingenting
End Sub
5
Change "C : \\ File.xls " til Excel-filen navn. Dette vil nå importere data fra Excel regneark .