Agregar una nueva hoja excel en vb6

Amigo estoy haciendo una reporte el cual quiero que la información lo ponga separado por un código (ruc) en cada hoja.
cuando lleno la primera me sale bien,
cuando agrego una nueva hoja ( Set Obj_Libro = Obj_Excel.sheets.Add() ) y le pongo como hoja activa me sale el error 438 el Objeto no admite esta propiedad,
Me podrías ayudar a solucionar este problema
Gracias
Este es el código
 nHojas = 1
 ' -- Crear nueva instancia de Excel
  Set Obj_Excel = CreateObject("Excel.Application")
  Set Obj_Libro = Obj_Excel.Workbooks.Add(1)
  Do While Obj_Excel.sheets.Count > 1
     Obj_Excel.sheets(1).Delete
     Loop
     Do While rs_HE.EOF = False
        If nHojas > 1 Then
           Set Obj_Libro = Obj_Excel.sheets.Add()
        End If
 '  Aqui me sale el error despues de agreagar la segunda hoja
        Set Obj_Hoja = Obj_Libro.activesheet
        obj_Excel.activewindow.displayGridlines = False
        Obj_Excel.activewindow.displayzeros = False
        cRuc = rs_HE("ruc")
        Obj_Excel.sheets(1).Name = rs_HE.Fields("RUC")
        Obj_Hoja.Cells(1, 1) = rs_HE.Fields("RAZONSOCIAL")
        Obj_Hoja.Cells(1, 20) = "Fecha :" & CStr(Date)
        Obj_Hoja.Cells(1, 20).HorizontalAlignment = 5 ' xlHAlignLeft
        Obj_Hoja.Cells(3, 1) = "Codigo"
        nFila = 5
        Do While rs_HE("ruc") = cRuc
           Obj_Hoja.Cells(nFila, 1) = rs_HE.Fields("Codigo")
           ' demas datos    .....
           rs_HE.MoveNext
        Loop
        ' -- Pone el excel visible
        Obj_Excel.Visible = True
        nHojas = nHojas + 1
    Loop
1

1 respuesta

Respuesta
1
¿Por qué borrar las hojas si son más de 1?
¿Por qué no crear el objeto ya con la cantidad de hojas necesarias, haciendo una revisión de cuantos tipos de RUC tienes?
Tienes bien el concepto, pero haz que el libro a la hora de crear el objeto ya tenga la cantidad de hojas necesarias.
Te recomiendo contar la cantidad de RUC's que tienes antes de crear el objeto.
Si te fui de ayuda, por favor valora y cierra la pregunta, así de esa manera, puedo ayudar a más personas.
Si tienes dudas me lo haces saber.
Gracias por contestar,
si puedo obtener la cantidad de ruc, inclusive ya lo hice, de esa manera, peor como activo las hojas donde voy poner los datos, ahí esta mi problema, porque creo las hojas y los datos se ponen en la primera hoja.
Gracias pro tu apoyo
Te dejo un ejemplo de como trabajar con Excel, si bien es para otro fin el ejemplo te enseña como seleccionar la hoja activa.
Link:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/297-dao-exportar-excel-access.htm
Si te fui de ayuda, por favor valora y cierra la pregunta, así de esa manera, puedo ayudar a más personas.
Si tienes dudas me lo haces saber.
Gracias, hay cosas que no sabia, los probare muchas gracias, todavía no encuentro la solución a mi pregunta, le di solución de otra forma, pero seguiré investigando
Muchas Gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas