Visual Basic - Problemas facturas en excel desde vb6

Life is soft - evento anual de software empresarial
   
Vista:

Problemas facturas en excel desde vb6

Publicado por apacheco FERPA@ati.es (63 intervenciones) el 12/08/2011 11:44:09
Buenos dias:

Estoy haciendo un proyecto VB6 de facturacion en el cual me exigen guardar la facturas en Excel (2003 y 2007) y Pdf, mediente una factura modelo.

El problema que tengo es que la primera factura que genero funcion perfecta, pero a partir de la segundo da error al seleccionar los rangos que utilizo para poner varias celdas en negrita .... etc .

Parto de una factura (Excel) con formato predefinido que la proceso de la siguiente forma:

dim objExcel as Object
dim objLibro as Object
dim objHoja as Object

Abro la factura predefinida.

Set objExcel = CreateObject("Excel.Application")
Set objLibro = objExcel.Workbooks.Open("Fcatura.xls")
Set objHoja =objLibro.Woeksheets(1)

Genero la factura correctamente con los datos pertinentes y marco algunas lineas en negrita mediante

Range("A10:B15).Select
Selection.Font.Bold = True

La guardo con otro nombre (objLibro.SaveAs ......)

La imprimo en Pdf (objLibro.PrintOut .... )

Ralentizo el proceso 5 segundos (application.wait (Now + TimeValue("0:0:5"))

Cierro el libro (objLibro.Close )

Salgo del Excel (objExcel.Application.Quit)

Inicializo los objetos utilizados por este orden

Set objHoja = Nothinh
Set objLibro = Nothing
Set objExcel = Nothing

HASTA AQUI TODO PERFECTO TANTO EN EXCEL COMO EN PDF.

Comienza la segunda factura

Abro de nuevo la factura (mascara).

Set objExcel = CreateObject("Excel.Application")
Set objLibro = objExcel.Workbooks.Open("Fcatura.xls")
Set objHoja =objLibro.Woeksheets(1)

Cuando llego a

Range("A10:B15).Select

Cuando ejecuta Selection.Font.Bold = True da error por que Selection = Nothing, es decir no ha seleccionado nada.

Como tengo abierta la hoja Excel para seguir el procedimiento VEO QUE SI SE HA REALIZADO LA SELECCION, es decir excel presenta remarcadas dichas celdas.


¿ALGUIEN PUEDE DECIRME COMO RESOLVERLO?

Siempre he sido "enemigo" de las hojas de calculo pero despues de estos problemas cada vez lo soy mas.

Con lo facil que es hacer los informes con Crystal Reports.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problemas facturas en excel desde vb6

Publicado por Christian cmc1476@hotmail.com (666 intervenciones) el 15/08/2011 20:02:12
Range("A10:B15).Select
Selection.Font.Bold = True


-------------------------------------------------

Le falta cierre de comillas (quizas fue error de tipeo al escribirlo aca).
Mas alla de eso te sugiero que escribas todos los objetos y no solo selection, osea

objLibro.Selection.Range("A10:B15")

a ver que onda ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problemas facturas en excel desde vb6

Publicado por apacheco (63 intervenciones) el 16/08/2011 10:05:37
Gracias por tus consejo.

Si las comillas de cierre fue un lapsus
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar