Avviare un nuovo progetto di Visual Basic .
2
Aggiungi una casella di riepilogo e il pulsante di comando alla maschera .
3
selezionare "Menu Progetto" e quindi selezionare l' opzione "Riferimenti" . Da lì , prendere la linea "Microsoft Excel Library" .
4
Inserire nel codice seguente .
Private Sub Command1_Click ( ) Dim
objXLApp come Excel . applicazione
Dim intLoopCounter As Integer
objXLApp = New Excel.Application
objXLApp
Workbooks.Open . "C : \\ File.xls "
. Cartelle di lavoro (1). fogli di lavoro (1). Seleziona
intLoopCounter = 1 To CInt ( . ActiveSheet.Cells.SpecialCells ( xlCellTypeLastCell ) . Row ) per
List1 . . Campo AddItem ( " A" & intLoopCounter ) per
Successivo intLoopCounter
. Cartelle di lavoro ( 1) . Chiudi False
. Quit
End With < br
Set> objXLApp = Nothing End Sub
5
Cambia il "C : \\ File.xls " per il nome del file di Excel . Questo sarà ora importare i dati dal foglio di calcolo Excel .
software © www.354353.com