Cum se importă informații din Excel în Visual Basic 6

Crearea informațiilor în Excel este mai ușoară decât în VB6, deci este uneori mai practic să imporți informații din Excel în VB6.

Pasul 1

Porniți un nou proiect Visual Basic.

Pasul 2

Adăugați o casetă listă și un buton de comandă în formular.

Pasul 3

Selectați "Meniu proiect" și apoi selectați opțiunea "Referințe". De acolo, selectați "Biblioteca Microsoft Excel".

Pasul 4

Introduceți următorul cod: Private Sub Command1_Click () Dim objXLApp Ca Excel.Application Dim intLoopCounter As Integer

Setați objXLApp = Noua aplicație Excel.Application

Cu objXLApp .Workbooks.Open "C: \ File.xls" .Carte de lucru (1) .File de lucru (1) .Select

Pentru intLoopCounter = 1 Pentru a CInt (.ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell) .Ro) List1.AddItem .Range ("To" & intLoopCounter) Următorul intLoopCounter

(1). Închidere falsă

Setați objXLApp = Nothing End Sub

Pasul 5

Modificați "C: \ File.xls" la numele fișierului dvs. Excel. Aceasta va importa acum informațiile din foaia de calcul Excel.