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" ?
 

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" ?

Preguntas similares