Cómo importar información de Excel a Visual Basic 6

Crear información en Excel es más fácil que en VB6 por ello en ocasiones es más práctico importar información de Excel a VB6.
Por robert kohnke

Paso 1

Inicia un nuevo proyecto Visual Basic.


Paso 2

Agrega un cuadro de lista y un botón de comando a la forma.


Paso 3

Selecciona “Project Menu” (Menú de proyecto) y después selecciona la opción de “References” (Referencias). A partir de ahí, selecciona “Microsoft Excel Library” (Biblioteca de Microsoft Excel).


Paso 4

Ingresa el siguiente código: Private Sub Command1_Click() Dim objXLApp As Excel.Application Dim intLoopCounter As Integer

Set objXLApp = New Excel.Application

With objXLApp .Workbooks.Open "C:\File.xls" .Workbooks(1).Worksheets(1).Select

For intLoopCounter = 1 To CInt(.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row) List1.AddItem .Range("A" & intLoopCounter) Next intLoopCounter

.Workbooks(1).Close False .Quit End With

Set objXLApp = Nothing End Sub


Paso 5

Cambia “C:\File.xls” al nombre de tu archivo Excel. Esto ahora importará la información desde tu hoja de cálculo Excel.