VBA Sub或功能，而在一类叫公共/私有子没有定义错误

Question

我有一个VBA脚本象下面这样：

Sub button_click() 
' 
' < some code > 
' 
    call FindStrings (strfolder, Nothing) 
End Sub 

Public Sub FindStrings(strFolder As String, Optional wksSheet As Worksheet = Nothing) 
' 
' < some code> 
' 
    Call ProcessFolder(strFolder, strIndent, varStrings, varMatchesFound, varFileNames, lngFolderCount, lngFileCount) 

End sub 

Private Sub ProcessFolder(strFolder As String, ByRef strIndent As String, ByRef varStrings As Variant, ByRef varMatchesFound As Variant, ByRef varFileNames As Variant, ByRef lngFolderCount As Long, lngFileCount As Long) 
' 
' < some code> 
' 
Call ProcessFile(objFile.Path, strIndent, varStrings, varMatchesFound, varFileNames) 

End sub 

Private Sub ProcessFile(strFullPath As String, ByRef strIndent As String, ByRef varStrings As Variant, ByRef varMatchesFound As Variant, ByRef varFileNames As Variant) 
' 
' < some code> 
' 
End sub 

目前，button_click和FindStrings处于Module和ProcessFolder和ProcessFile在一个Class。

当运行button_click子程序中，它引发错误：

Sub or function not defined

会出现错误在对FindStrings的Call ProcessFolder...线。

我已经搜索了很多与错误有关的问题子或函数没有定义，也试图实现他们的修改建议纠正此错误，但它不起作用。

有关这个错误是什么以及如何纠正它的任何帮助，将不胜感激。

Answer 1

如果要调用从Module内的Class中的方法，那么你需要实例化与New关键字的类。然后用点符号表示Class方法。

一般的例子是：

'Module 
Public Sub Foo() 
    Dim o As Class1 
    Set o = New Class1 
    o.Bar 
End Sub 

'Class1 
Public Sub Bar() 
    MsgBox "Hello world" 
End Sub 

您例如这意味着你会怎么做：

'Module 
Sub button_click() 
'< some code > 
    Call FindStrings (strfolder, Nothing) 
End Sub 

Public Sub FindStrings(strFolder As String, Optional wksSheet As Worksheet = Nothing) 
' < some code> 
    Dim o As YourClass 
    Set o = New YourClass 
    o.ProcessFolder(strFolder, strIndent, varStrings, varMatchesFound, varFileNames, lngFolderCount, lngFileCount) 

End Sub 

'YourClass 
Public Sub ProcessFolder(strFolder As String, ByRef strIndent As String, ByRef varStrings As Variant, ByRef varMatchesFound As Variant, ByRef varFileNames As Variant, ByRef lngFolderCount As Long, lngFileCount As Long) 
' < some code> 
    Call ProcessFile(objFile.Path, strIndent, varStrings, varMatchesFound, varFileNames) 

End Sub 

Private Sub ProcessFile(strFullPath As String, ByRef strIndent As String, ByRef varStrings As Variant, ByRef varMatchesFound As Variant, ByRef varFileNames As Variant) 
' < some code> 
End Sub 

需要注意的是：

• 在FindStrings你需要创建一个新的实例YourClass
• YourClassProcessFolder子程序需要是Public