RE:Como leer datos de Excel desde Visual Basic
Debes de Activar la Referencia Microsoft Excel 9.0 Object Library ademas debes de tener un Archivo Creado, en esta caso el archivo se llama Prueba.xls
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Private Sub cmdExcel_Click()
On Error GoTo Errores
Dim vlRuta As String
Dim I As Integer
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\Prueba.xls"
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.Worksheets(1) 'Hoja 1
With mySheet
I = I + 1
Do While .Cells(I, 1) <> ""
Combo1.AddItem .Cells(I, 1) 'Leemos los datos apartir de la celda 1 y metemos la informacion a un combo
I = I + 1
Loop
End With
Combo1.ListIndex = 0
MsgBox "Proceso Terminado", vbInformation
xlApp.Quit
Set xlApp = Nothing
Errores:
If Err.Number <> 0 Then
xlApp.Quit
Set xlApp = Nothing
MsgBox Err.Description, vbCritical, CStr(Err.Number)
Err.Clear
End If
End Sub