Глобальные переменные VBA, несколько книг

Question

У меня есть приложение VB, которое использует некоторые глобальные переменные для хранения данных, требуемых несколькими формами и модулями, это прекрасно работает. Однако, если пользователь открывает другую рабочую книгу, запуская одно и то же приложение VBA, они в конечном итоге получают доступ (и изменяют) одни и те же общедоступные переменные.

Как получить глобальные переменные уровня рабочей книги, или, если это невозможно, лучший способ хранения данных, доступных для всех форм и модулей, но только внутри конкретной книги?

Это добавление VBA, а глобальные переменные объявляются в стандартном модуле.

Answer 1

Я был в состоянии воспроизвести проблему с помощью простой XLA называется Джордж:

Public harry As Variant 

Public Sub setHarry(x) 
    harry = x 
End Sub 

Public Function getHarry() 
    getHarry = harry 
End Function 

Я установил XLA. Затем я создал Alice.xls с текстовым полем, которое называлось setHarry, когда оно было изменено, и ячейкой с = getHarry(). Я все это очень просто:

Private Sub TextBox1_Change() 
    Run "george.xla!setHarry", TextBox1 
End Sub 

Я тогда сделал копию Alice.xls в Bob.xls и побежал их обоих. Как и ожидалось, если одна книга изменяет Гарри, обе книги видят результат.

Я говорю, что ожидаем, потому что xla - это как dll's, поскольку в памяти есть только одна копия; что, по-видимому, включает в себя глобальные переменные, что имеет смысл. Я просто хотел проверить теорию.

На мой взгляд, лучший способ исправить это - использовать модуль класса вместо обычного модуля. Таким образом, вы можете дать каждой книге свой собственный экземпляр класса и его переменных в событии Workbook_Open. Если переменные объявлены общедоступными, вам не нужны свойства get и sets, хотя вы можете использовать их, если есть ценность при этом.

Answer 2

Public myvar as Variant 

Переменные, объявленные как Public находятся в области видимости в книге они находятся. Если у вас есть другие книги с MyVar, изменяя его значение в одном не изменит его в другой. Возможно, у вас есть событие, которое устанавливает эту переменную из активной таблицы, которая запускается в обоих проектах и ​​устанавливает переменные на одно и то же.

Answer 3

Ваши глобальные переменные глобально привязаны к вашему Addin. Я бы сохранил их в скрытых именах в каждой книге, а затем сбросил свои глобальные переменные каждый раз, когда рабочая книга активирована (а также повторно сохраняет значения в деактивированной книге).

Answer 4

Я думаю, вы могли бы получить название книги во время выполнения.

Таким образом, коллекция, вероятно, выполнит эту работу.

'//-- module -- 
Public var As Collection 

Public Function SetVar(Value) 
    If var Is Nothing Then 
     Set var = New Collection 
    End If 
    var.Add Value, ThisWorkbook.Name 
End Function 

Public Function GetVar() As Variant 
    If var Is Nothing Then 
     GetVar = Null 
    Else 
     GetVar = var.Item(ThisWorkbook.Name) 
    End If 
End Function 

Не уверен, что это будет работать для вашего Addin.