传递的，每个对象在VBA子或函数

Question

当我叫子pFileName我得到下面的代码的“所需的对象”错误：

Sub test() 
Dim fs As Object 
Dim csv As Object 
Dim oFolder As Object 

Set fs = CreateObject("Scripting.FileSystemObject") 
Set oFolder = fs.getfolder(Application.CurrentProject.Path) 

For Each csv In oFolder.files 
    Debug.Print csv.Name 
    pFname (csv) 
Next csv 
End Sub 

Sub pFname(ByVal csv As Object) 
    Debug.Print (csv.Name) 
End Sub 

我不知道为什么CSV ISN不认为是一个对象 - 子调用之前Debug.Print语句没有证明它是一个对象吗？

Answer 1

您需要删除该线路上的括号：pFname (csv)

把周围的参数强制它传递ByVal括号，你不能这样做，与Object，因为Object基本上是一个参考。这工作得很好：

Sub test() 
Dim fs As Object 
Dim csv As Object 
Dim oFolder As Object 

Set fs = CreateObject("Scripting.FileSystemObject") 
Set oFolder = fs.getfolder(Application.CurrentProject.Path) 

For Each csv In oFolder.files 
    Debug.Print csv.Name 
    pFname csv '<----- 
Next csv 
End Sub 

Sub pFname(ByVal csv As Object) 
    Debug.Print csv.Name 
End Sub