Использование MultiPage

Проектирую пользовательскую форму. По значению TextBox на форме в таблице нахожу ячейку в которой находится гиперссылка на другую книгу которую нужно открыть.

Private Sub tz_window_Click()
Dim ntz As Range, tbntz As ListObject, tz_path As Hyperlink
If Me.n_zamovlenia = "" Then
 MsgBox "Âèáåð³òü ¹ çàâäàííÿ"
 Me.n_zamovlenia.SetFocus
 Exit Sub
End If
Set tbntz = Workbooks("DRUK.xlsm").Worksheets("NPplan").ListObjects("plan_druk_FA2500")
 Set ntz = tbntz.ListColumns("Òǹ").Range.Find(Val(n_zamovlenia.Value))
  Set tz_path = ntz.Hyperlinks(1)
   Workbooks.Open Filename:=tz_path.Address, UpdateLinks:=False, ReadOnly:=True
End Sub

И все чудно работало. Но впихнуть все что хочу на одну форму сильно наляписто. Решил использовать мультипейдж, перенес туда этот TextBox. Вместо "D+путь к книге" Отака фигня теперь ?tz_path.Address ../../../Òåõ_Çàâäàííÿ/ÒÇ/6705_29_11_Êðåì_ìîëîêîâì³ñíèé_êóë³íàðíî-êîíäèòåðñüêèé_Ñåëÿíñüê³_ïðîäóêòè.xlsx

../../../ это я не понял откуда теперь. Просветите пожалуйста.


Ответы (0 шт):