'Debes de Activar la Referencia
'Microsoft Excel 9.0 Object Library
'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.ActiveSheet
'Suponiendo que los datos los tienes a partir de la columna A1
With mySheet
I = I + 1
Do While .Cells(I, 1) <> ""
Combo1.AddItem .Cells(I, 1)
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
Saludos te mando el ejemplo completo a tu correo por si acaso.
