hola, saludos a todos necesito ayuda trato de abrir excel desde visual basic 6.0 y no me abre manda el siguiente numero de error 0 y no se que significa, deseo saber que pasa, este es el siguiente codigo que estoy usando y ya agregue la referencia por VB Microsoft Excel 11.0 Object Library
Private Sub cmdimprimir_Click()
On Error Resume Next
MsgBox ("paso")
Dim xlApp As Excel.Application
Dim xlLibro As Excel.Workbook
Dim xlHoja As Excel.Worksheet
'abrir programa Excel
Set xlApp = New Excel.Application
'xl.Visible = True
'abrir el archivo Excel (archivo en otra carpeta)
Set xlLibro = xlApp.Workbooks.Open _
("C:UsersYesenia HernandezDesktopFactura.xls", True, True, , "")
Select Case Err.Number
Case 91
MsgBox "!! No se pudo abrir Excel !!", 16, "Ocurrió un error" 'Indica que el objeto no se logró abrir
'Resume Salir
Case 429
Set appExcel = CreateObject("Excel.Application") 'Indica que Excel no está abierto y crea un objeto con aplication de Excel
Resume Next
Case 2302
sNivel = "!! El archivo ya se encuentra abierto !!" & vbCrLf & "Debe cerrarlo antes de continuar"
MsgBox sNivel, 16, "Ocurrió un error al abrir el archivo"
'Resume Salir
Case 3265
Resume Next
Case Else
MsgBox Err.Number & " - " & Err.Description
Err.Clear
'Resume Salir
End Select
End Sub
Por favor responderme a mi correo de yahoo
yesmabel2000@yahoo.es
