Jak importovat informace z aplikace Excel do jazyka 6

Vytvoření informací v aplikaci Excel je jednodušší než ve VB6, takže je někdy praktičtější importovat informace z aplikace Excel do VB6.

Krok 1

Spusťte nový projekt jazyka.

Krok 2

Do formuláře přidejte seznam a příkazové tlačítko.

Krok 3

Vyberte "Nabídka projektu" a vyberte možnost "Odkazy". Odtud vyberte "Knihovna Microsoft Excel".

Krok 4

Zadejte následující kód: Private Sub Command1_Click () Dim objXLApp Jako Excel.Application Dim intLoopCounter As Integer

Nastavit objXLApp = Nový Excel.Application

S objXLApp .Workbooks.Open "C: \ File.xls" .Workbooks (1). Pracovní listy (1) .Vyberte

Pro intLoopCounter = 1 do CInt (.ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell) .Row) List1.AddItem .Range ("To" & intLoopCounter) Další intLoopCounter

.Workbooks (1). Zavřít falešný

Nastavit objXLApp = Nothing End Sub

Krok 5

Změňte "C: \ File.xls" na název souboru aplikace Excel. Nyní budete importovat informace z tabulky aplikace Excel.