Pregunta: | 54967 - ERROR # 9 CON VB6 Y EXCEL 2000 |
Autor: | Milagros Maestre |
Hola, el sistema que estoy desarrollando genera reportes predeterminados en excel (es decir, ya tiene una estructura definida) todo sale bien cuando genero uno, pero cuando pido otro reporte (o el mismo que acabo de abrir) me genera un error. Lo mismo sucede cuando alguna hoja de excel esta abierta y no tiene nada que ver con el programa. El error que genera dice: Error #9: Subíndice fuera del intervalo. La linea de codigo que utilizo para abrir la hoja de calculo es el siguiente: On Error Resume Next Set objexcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then 'Si no se ejecuta Excel Set objexcel = CreateObject("Excel.Application") End If Err.Clear Set objexcel = GetObject(App.Path & "\TotalNomina.xls") objexcel.Visible = True On Error GoTo 0 Set objexcel1 = objexcel.Workbooks.Open(App.Path & "\TotalNomina.xls") Workbooks("TotalNomina.xls").Activate With objexcel1.ActiveSheet '''''''AQUI VA TODAS MIS LINEAS DE CODIGO End With Set objexcel = Nothing: Set objexcel1 = Nothing Espero que alguien me ayude y asi termino mi programa de una vez. Gracias... |