Если книга открыта то "условие" (VBA).

Rasul

Гость

04.04.2012 13:35:44

Здравствуйте уважаемые форумчане.
Существует файл с базами данных. В этом файле есть макрос с пом. которого открывается другой файл например "Разница.xls" и копируются данные с файла База_данных в этот файл (Разница). Но иногда бывает что файл Разница уже открыт, так как сделать так, чтоб если книга открыта, то макрос активировал файл, вместо отркыть?

GIG_ant

Пользователь

Сообщений: 3102 Регистрация: 24.12.2012

04.04.2012 14:07:11

воспользуйтесь данной функцией для того что бы узнать открыта ли книга или нет:

Public Function WorkBookIsOpen(wbName) As Boolean
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' WorkBookIsOpen
' Функция получает имя книги, если книга открыта - True, иначе False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim X As Workbook
WorkBookIsOpen = False
On Error Resume Next
Set X = Workbooks(wbName)
WorkBookIsOpen = Err = 0
End Function

В основном макросе пишем:
If WorkBookIsOpen("имя_проверяемой_книги") Then
Workbooks("имя_проверяемой_книги").Activate
Else
Workbooks.Open("путь к нужной книге")
End if

Редко но метко ...

Azam Гость	#3 04.04.2012 14:24:50 Если проблема в том, что книга уже открыта, то можно отключить вывод сообщений и в конце включить: Application.DisplayAlerts = False ------отключаем Ваш код...... Application.DisplayAlerts = True ------Заново включаем

ZVI Пользователь Сообщений: 4620 Регистрация: 23.12.2012	#4 04.04.2012 22:40:16 Посмотрите пример с функцией IsFileOpen здесь: http://www.planetaexcel.ru/forum.php?thread_id=15498

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012	#5 04.04.2012 22:50:15 Можно копировать данные с открытых книг, как-то так: Windows(ThisWorkbook.Name).ActivateNext ActiveWorkbook.ActiveSheet.UsedRange.Copy Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

Rasul Гость	#6 05.04.2012 07:27:32 Всем огромное спасибо!

Читают тему