Находим открытую книгу в Excel


'находит открытую книгу Excel
'возвращает ссылку на открытую книгу или Nothing
Function FindWorkbook(BookName As String) As Workbook
  Dim wbk As Workbook

  Set FindWorkbook = Nothing
  For Each wbk In Workbooks
    If wbk.Name = BookName Then
      Set FindWorkbook = wbk
      Exit For
    End If
  Next
End Function

Пример использования

'В отличие от Excel 2010, Excel XP/2003 не одобряет повторное открытие книги
  Set wbkRus = FindWorkbook("Россия.xls")
  If wbkRus Is Nothing Then 'книга закрыта
    Set wbkRus = Workbooks.Open(RusPath) 'открываем её
  End If
Реклама
Запись опубликована в рубрике программирование с метками , , . Добавьте в закладки постоянную ссылку.

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s