Ole con excel

14/10/2003 - 16:43 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" ?

Preguntas similare

Leer las respuestas

#1 Victor B.
14/10/2003 - 18:25 | Informe spam
Deberías de cerrar el libro y destruir el objeto cuando termine con el
libro, así te evitarías que se cargue Excel tantas veces en memoria:

wb.Close

appEx.Quit

"Jose Lara" escribió en el mensaje
news:2a7c101c39261$795c9720$
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" ?

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida