Я использую надстройку, чтобы открыть книгу с помощью кнопки. В книге используется лента startfromscratch, поэтому надстройка исчезает при открытии книги. Я пытался использовать надстройки ("AddInName"). Установлено = ложь, а затем надстройки ("AddInName"). Установлено = true на Workbook_Open. Проблема заключается в том, что, поскольку рабочая книга открывается с помощью надстройки, происходит сбой кода. Поэтому я ищу способ открыть эту книгу, и единственной вещью на ленте является моя надстройка.
Ниже приведен код, который я использую для открытия книги:
Sub ViewRequest()
Dim FilePath As String
Dim ViewRequest As Workbook
With New frmEditCopy
.FormatForm ViewForm
.Show
If .ClickedOk Then
FilePath = Dir$(TestReqFolder & TestNumberToEdit & "*")
If FilePath <> "" Then
'////////This is the workbook that opens with no ribbon/////////
Set ViewRequest = Workbooks.Open(TestReqFolder & FilePath, , True)
ViewRequest.Activate
Set ViewRequest = Nothing
Else
MsgBox "Test Request does not exist"
End If
End If
End With
End Sub