Jak importować informacje z Excela do Visual Basic 6

Tworzenie informacji w Excelu jest łatwiejsze niż w VB6, więc czasami bardziej praktyczne jest importowanie informacji z Excela do VB6.

Krok 1

Rozpocznij nowy projekt Visual Basic.

Krok 2

Dodaj do formularza pole listy i przycisk polecenia.

Krok 3

Wybierz "Project Menu", a następnie wybierz opcję "References". Następnie wybierz "Bibliotekę Microsoft Excel".

Krok 4

Wprowadź następujący kod: Private Sub Command1_Click () Dim objXLApp As Excel.Application Dim intLoopCounter As Integer

Ustaw objXLApp = New Excel.Application

Za pomocą objXLApp .Workbooks.Open "C: \ File.xls" .Workbooks (1) .Worksheets (1). Wybierz

Dla intLoopCounter = 1 Do CInt (.ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell) .Row) List1.AddItem .Range ("Do" i intLoopCounter) Następny intLoopCounter

.Workbooks (1) .Zamknij fałsz .Kopiuj koniec z

Ustaw objXLApp = Nothing End Sub

Krok 5

Zmień "C: \ File.xls" na nazwę pliku Excel. Spowoduje to teraz zaimportowanie informacji z arkusza kalkulacyjnego Excel.