Como importar informações do Excel para o Visual Basic 6

Criar informações no Excel é mais fácil do que no VB6, portanto, às vezes é mais prático importar informações do Excel para o VB6.

Passo 1

Inicie um novo projeto do Visual Basic.

Passo 2

Adicione uma caixa de listagem e um botão de comando ao formulário.

Passo 3

Selecione "Menu Projeto" e selecione a opção "Referências". De lá, selecione "Biblioteca do Microsoft Excel".

Passo 4

Digite o seguinte código: Private Sub Command1_Click () Dim objXLApp As Excel.Application Dim intLoopCounter As Integer

Definir objXLApp = Novo Excel.Application

Com objXLApp .Workbooks.Abra "C: \ File.xls" .Workbooks (1) .Fichas de trabalho (1) .Selecione

Para intLoopCounter = 1 Para CInt (.ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell) .Row) List1.AddItem .Range ("Para" & intLoopCounter) Próximo intLoopCounter

.Workbooks (1) .Fechar False .Quit Fim Com

Definir objXLApp = Nothing End Sub

Passo 5

Alterar "C: \ File.xls" para o nome do seu arquivo do Excel. Isso agora importará as informações da sua planilha do Excel.