Saber si Libro excel está abierto, con código vba desde un módulo de autocad.
El siguiente código me funciona bien en módulo vba de excel, pero en un módulo de autocad no me detecta el archivo cuando está abierto. Que conste que la referencia a Excel ya lo tengo activado.
Sub VerificarSiLibroEstaAbiertoAbierto()
Dim LibroAbierto As Object
Dim EstaAbierto As Boolean
Dim RutaCompleta As String
EstaAbierto = False
RutaCompleta = "C:\Temp\Libro1Excel.xlsx"
For Each LibroAbierto In Excel.Application.Workbooks
If LibroAbierto.FullName = RutaCompleta Then
EstaAbierto = True
Exit For
End If
Next
If EstaAbierto = True Then
MsgBox ("SI Está Abierto")
Else
MsgBox ("NO Está Abierto")
End If
End Sub
1 Respuesta
Respuesta de Abraham Valencia