Sub checarSiLibroEstaAbierto()
‘Checa si esta abierto el Libro “NombreArchivo.xls”Dim i As Long
Dim mensajeFor i = 1 To Workbooks.Count
If LCase(Workbooks(i).Name) = “NombreArchivo.xlsm” Then
mensaje = MsgBox(“El libro está abierto”, vbExclamation, “Si está abierto”)
Else
mensaje = MsgBox(“El libro NO está abierto”, vbExclamation, “No está abierto”)
End If
Next iEnd Sub
A continuación un script en VBA para obtener datos de los libros de excel localizados en una carpeta:
Sub extraeDatosLibrosYHojasExcel()
Dim ruta
Dim ruta2
Dim ruta3
Dim valor
Dim nombre
Dim i As Integerruta = “F:\DesarrolloS\excel\*.xlsx”
ruta2 = “F:\DesarrolloS\excel\”
nombre = Dir(ruta)
i = 1
Do While nombre <> “”
ruta3 = ruta2 & nombre
Workbooks.Open (ruta3)
Workbooks(nombre).Activate
valor = Workbooks(nombre).Application.Cells(1, 1).Value
Workbooks(nombre).Close
Cells(i, 1).Value = valor
i = i + 1
nombre = Dir
Loop
End Sub
Comentarios