Come importare le informazioni da Excel a Visual Basic 6

La creazione di informazioni in Excel è più semplice rispetto a VB6, quindi a volte è più pratico importare informazioni da Excel a VB6.

Passaggio 1

Avvia un nuovo progetto di Visual Basic.

Passaggio 2

Aggiungi una casella di riepilogo e un pulsante di comando al modulo.

Passaggio 3

Seleziona "Menu Progetto" e quindi seleziona l'opzione "Riferimenti". Da lì, selezionare "Libreria Microsoft Excel".

Passaggio 4

Immettere il seguente codice: Sottocomando privato1_Click () Dim objXLApp As Excel.Application Dim intLoopCounter As Integer

Imposta objXLApp = Nuova Excel.Application

Con objXLApp .Workbooks.Open "C: \ File.xls" .Workbooks (1) .Worksheets (1) .Seleziona

Per intLoopCounter = 1 To CInt (.ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell) .Row) List1.AddItem .Range ("To" & intLoopCounter) Avanti intLoopCounter

.Workbooks (1). Chiudi False. Fine Con

Imposta objXLApp = Nothing End Sub

Passaggio 5

Cambia "C: \ File.xls" nel nome del tuo file Excel. Questo ora importerà le informazioni dal tuo foglio di calcolo Excel.