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
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 Respuesta
Respuesta de Eduardo Saligari
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.
¿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
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.
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
Muchas Gracias
