Visual Basic para Aplicaciones - Como detectar que un libro excel esta abierto

Life is soft - evento anual de software empresarial
 
Vista:

Como detectar que un libro excel esta abierto

Publicado por Daniel (1 intervención) el 25/07/2003 15:53:06
Mi problema es el siguiente:
Estoy creando una aplicación que se ejecutará todas las noches, que
consiste en abrir un libro excel y actualizar algunas columnas y salvarlo despues. El hecho es que tengo que verificar que el libro no este abierto
porque no podria salvarlo despues.

Gracias a quien pueda ayudarme, es urgente please.
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
sin imagen de perfil
Val: 24
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

RE:Como detectar que un libro excel esta abierto

Publicado por Yamil Bracho (16 intervenciones) el 25/07/2003 20:54:40
Usa GetObject/CreateObject. Seria algo como:

Dim oExcel As Excel.Aplication
Dim oWbk As Excel.WorkBook

' Chequea si excel esta abierto
On Error Resume Next
Set oExcel = GetObject(,"Excel.Application")
If Err.Number = 0 Then
Set oExcel = CreateObject("Excel.application")
End If
On Error Goto 0

blnYaAbierto = False
For Each oWbk in oExcel.WorkBooks
if oWbk.Name = "PathDeTuLibro.xls" then
blnYaAbierto = true
Exit For
End if
Next

if blnYaAbierto = False Then
Set oWbk = oExcel.WorkBoos.Open("PathDeTuLibro.xls")
End If

Saludos
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