Páginas

jueves, 24 de julio de 2014

VBA Excel: Como saber si un libro está abierto y no volver a abrir.

Se hace un loop por la coleccion Workbooks, que es la que contiene todos los libros abiertos.
Se compara cada libro con el que estamos buscando, y si hay un match se una un flag para marcarlo como encontrado.

For Each wb In Workbooks
    If wb.Name = "cctableruben.xlsm" Then
        wbOpen = True 'if it is already open, sets the report to the wbk name
        Set report = wb
    End If
Next wb

'if cctable is not open, we open it
If wbOpen = False Then
    Set report = Workbooks.Open("D:\rubenbk\reports\cctableruben.xlsm")
End If

1 comentario: