Microsoft Excel is een spreadsheet programma waarmee je rekenbladen maken te organiseren en berekenen van gegevens en grafieken . Visual Basic 6 ( VB6 ) is een versie van Visual Basic , dat is de programmeertaal en geïntegreerde ontwikkelomgeving gemaakt door Microsoft . Het creëren van gegevens in Excel is makkelijker dan in VB6 , dus is het soms praktisch om gegevens uit Excel naar VB6 importeren. Er zijn verschillende manieren om dit te doen , maar de eenvoudigste is een regel code in Visual Basic die het proces automatiseert . Instructies
1 Start een nieuw Visual Basic project . Kopen van 2 Voeg een listbox en opdracht knop aan het formulier .
3 Selecteer " Project Menu " en selecteer vervolgens de optie 'Referenties' . Van daar , kies de " Microsoft Excel Library " lijn .
4 Voer in de volgende code . Private Sub Command1_Click
( ) Dim objXLApp
als Excel . toepassing Dim intLoopCounter
als Geheel Set
objXLApp = Nieuwe Excel.Application
Met objXLApp
Workbooks.Open . " C : \\ file.xls " . Werkmappen ( 1 ) op . Werkbladen ( 1 ) . Selecteer
intLoopCounter = 1 To CInt ( . ActiveSheet.Cells.SpecialCells ( xlCellTypeLastCell ) . Row ) op Twitter Lijst1 . AddItem . Range ( " A " & intLoopCounter ) op Twitter Volgende intLoopCounter
. werkmappen ( 1 ) . Close False
. Quit End of met < br Set > objXLApp = Nothing
End Sub
5 Verander de " C : \\ file.xls ' om uw Excel-bestand naam . Dit zal nu de gegevens van uw Excel-spreadsheet te importeren .
|
