Ole con excel

14/10/2003 - 16:44 por Jose lara | Informe spam

Desarrollo en VB6.0:
agrege la referencia (Dll) excel 9.0 para trabajar ole

Tengo el codigo:
Dim appEx as Excel.Application
Dim wb as Excel.Workbook

set appEx = GetObject(,"Excel.Application")
set wb = appEx.Workbooks.open("Factura.xls")
Todo funciona perfecto, Pero...:

Si ejecuto el codigo 2,3,4 o mas veces me da el mensaje
que "LIBRO YA ESTA ABIERTO DESEA ABRIRLO NUEVAMENTE"

Entonces quiero hacer:
1.- Que pregunte si esta abierto el libro "Factura"
"Como es la instruccion" ?

2.- Si esta abierto que lo cierre
"Como es la instruccion" ?

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 gti

14/10/2003 - 18:38 | Informe spam

Debes utilizar una rutina para controlar los errores. Este es un tema
peliagudo.
la instruccion a utilizar para gestionar los errores es On Error goto
Etiqueta (y en Etiqueta pones el control de errores)

Sorprendentemente para cerrar el libro, la instrucción es .close.

Leete la ayuda, capítulo Información de programación. Ahi tienes muchos
ejemplos.

"Jose lara" escribió en el mensaje
news:2a7c901c39261$ac746ca0$

Desarrollo en VB6.0:
agrege la referencia (Dll) excel 9.0 para trabajar ole

Tengo el codigo:
Dim appEx as Excel.Application
Dim wb as Excel.Workbook

set appEx = GetObject(,"Excel.Application")
set wb = appEx.Workbooks.open("Factura.xls")
Todo funciona perfecto, Pero...:

Si ejecuto el codigo 2,3,4 o mas veces me da el mensaje
que "LIBRO YA ESTA ABIERTO DESEA ABRIRLO NUEVAMENTE"

Entonces quiero hacer:
1.- Que pregunte si esta abierto el libro "Factura"
"Como es la instruccion" ?

2.- Si esta abierto que lo cierre
"Como es la instruccion" ?

Responder a este mensaje

#2 Jose Lara

15/10/2003 - 21:48 | Informe spam

Gracias...me sacaste de un apuro..
Fuiste el unico que entendiste la pregunta.

Cabe destacar que la publique en varios news.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida