VBA多参数函数调用语法错误

Question

我正在尝试调用 Excel VBA (2007) 中的函数，但在调用时收到语法错误。我有一个名为 ImportSets 的数据结构数组，其中包含工作表和字符串，并且尝试将该数组中的项目成员传递给一个名为 Import 的函数。

调用代码如下所示:

For n = 1 To 7  
    Debug.Print ("Destsheet: " & ImportSets(n).DestSheet.name)  
    Debug.Print ("Sourcesheet: " & ImportSets(n).SourceSheet.name)  
    Debug.Print ("Sourcecolumn: " & ImportSets(n).SourceColumn)  
    Import(CostAnalysisWorksheet.Sheets("Reimbursements"), ImportSets(n).DestSheet, ImportSets(n).SourceSheet, ImportSets(n).SourceColumn)  
Next n  

所有 Debug.Print 语句都返回有意义且正确的字符串，并检查“Reimbursements”是否存在返回 true。方法调用在一行上。这是 ImportSet 对象代码:

Public Type ImportSet
    DestSheet As Worksheet
    SourceSheet As Worksheet
    SourceColumn As String
    ...other code...
End Type

函数体如下所示:

Function Import(ByRef ReimbursementSheet As Worksheet, ByRef DestSheet As Worksheet, ByRef ImportSheet As Worksheet, ByRef ImportSheetPriceColumn As String) As String  
    ....code here .....  
End Function

我在函数调用时收到红色突出显示的语法错误(在第一个片段中)。我可能错过了一些愚蠢的事情。它是什么？

Answer 1

我没有在 Excel 2007 中使用过 VBA，但旧版本仅允许您在将返回值分配给变量时将函数调用参数放在括号内。试试这个:

Import CostAnalysisWorksheet.Sheets("Reimbursements"), ImportSets(n).DestSheet, ImportSets(n).SourceSheet, ImportSets(n).SourceColumn