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

[Hola

Estás confundiendo las cosas. Si bien VBA es un lenguaje en común que tienen Autocad y Excel, no es que copiando y pegando código que funcione en uno, pues vaya a funcionar en el otro programa. Es más, ni siquiera haciendo eso entre programas de Office pues daría resultado.

Necesariamente tienes que crear, antes que nada, un objeto Excel, no solo activar las referencias. Aquí algo al respecto:

https://www.augi.com/uploads/autodesk_university/2005/CP22-3.pdf

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas