Можно ли присвоить значение переменной при ее объявлении

@НикоН · Регистрация: 21.01.2010

Author24 — интернет-сервис помощи студентам

Доброго дня всем

Имеется общая строковая переменная, в которой должен хранится путь к активной книге XLS.
Сейчас присвоение ей значения происходит при заполнении соответствующего бланка.

Visual Basic

Option Explicit
Public vPath As String
 
Public Sub FillZAGS()
    vPath = Application.ActiveWorkbook.Path
...
End Sub
 
Public Sub FilUVD()
    vPath = Application.ActiveWorkbook.Path
...
End Sub
 
Public Sub FilADM()
    vPath = Application.ActiveWorkbook.Path
...
End Sub

Но так как форм много, а значение у переменной постоянное, то хотелось бы присвоить его еще в момент объявления оной переменной.

Visual Basic

1
2
3

Option Explicit
Public vPath As String = Application.ActiveWorkbook.Path
'Знаю что это не работает, но надеюсь смысл понятен

@~~Апострофф~~ · 15.10.2012, 09:15

В отдельный модуль кода

Visual Basic

1 2	Option Explicit Public vPath As String

В модуль ЭтаКнига (ThisWorkbook)

Visual Basic

Option Explicit
Private Sub Workbook_Open()
  vPath = Application.ThisWorkbook.Path
End Sub

@НикоН · 15.10.2012, 09:18 **[ТС]**

Спасибо.

@НикоН 23 / 22 / 3 Регистрация: 21.01.2010 Сообщений: 95
	15.10.2012, 09:18 [ТС]	3
	Спасибо. 0