VBA-從加載項調用函數中的Excel對象

Question

我有一個名為ThisWorkbook的Excel對象和一個名為Module1的模塊。 在Module1中，我有一個稱為function1的函數。 ThisWorkbook有一個名為sub1的專用子。 當用戶調用此函數時，我希望Excel首先執行sub1，如果沒有錯誤，請執行其余功能。 但是，調用function1時無法處理sub1。

Excel對象-ThisWorkbook

Private WithEvents App As Application

Public Sub sub1(some parameters)
...
If (condition) Then
  Msgbox ()
End If
...
End Sub

Private Sub Workbook_Open()
  Set App = Application
End Sub

Excel模塊-Module1

Function function1(Add As String, some parameters) As String
    ThisWorkbook.sub1(some parameters)
    ...
End Function

**經常更新以顯示代碼的當前狀態

Answer 1

由於Sub1在ThisWorkbook的范圍內，而不在全局模塊中，因此您需要在調用中指定：

Call ThisWorkbook.Sub1

Answer 2

當您要引用ThisWorkbook的子項時，您也應該像這樣參考ThisWorkbook ：

ThisWorkbook.sub1代替Call sub1 。