'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.