Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustenie nového projektu jazyka Visual Basic .
2
Pridať jeden listbox a príkazové tlačidlo do formulára .
3
Vyberte " Projekt Menu " a potom zvoľte " Odkazy " možnosť voľby . Odtiaľ , vybrať " Microsoft Excel Knižnica " riadok .
4
zadajte v nasledujúcom kóde .
Private Sub Command1_Click ( ) klipart
Dim objXLApp As Excel . aplikácia
Dim intLoopCounter As Integer
Set objXLApp = New Excel.Application
S objXLApp
Workbooks.Open " C : \\ File.xls " .
. zošity ( 1 ) . listy ( 1 ) . Vyberte klipart
intLoopCounter = 1 až CInt ( . ActiveSheet.Cells.SpecialCells ( xlCellTypeLastCell ) . Row )
Hárok1 . AddItem . Range ( " a " a intLoopCounter )
Ďalšie intLoopCounter
. zošity ( 1 ) . Zatvorte False klipart
. Ukončite
End With
Set objXLApp = Nothing
End Sub
5
Zmena " C : \\ File.xls " na meno súboru programu Excel . To sa teraz importovať dáta z tabuľky programu Excel .
Copyright © počítačové znalosti Všetky práva vyhradené