Programación General > Visual Basic 6.0 e inferiores

 abrir excel desde visual basic 6.0

(1/1)

yesemabel:
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

m0skit0:
¿Qué mensaje te da el error 0?

yesemabel:
hola, no me lanza ningún mensaje sino que hace como si fuera abrir y no abre el excel entonces muestra en una ventanita nada mas el numero 0 sin descrpción

m0skit0:

--- Cita de: "yesemabel" ---"C:UsersYesenia HernandezDesktopFactura.xls"
--- Fin de la cita ---
¿Estás seguro de que la ruta está bien?

Navegación

[0] Índice de Mensajes