“结束函数”行上的 Excel VBA 450 错误

Question

我收到错误 450“参数数量错误或属性分配无效”。错误发生在函数的最后一行，即最后一行“End Function”。我没有看到任何缺失的“End Ifs”，所以我不知道是什么原因造成的：

 myDict = bpCreateDictionary("A", "B", 1, 10, "Sheet2", , "Ignore")

引用了这个函数：

Function bpCreateDictionary(ByVal KeyColumn As String, ByVal ValueColumn As String, _
         Optional ByVal RowBegin As Long, Optional RowEnd As Long, _
         Optional ByVal DataWorksheet As String = "Sheet1", _
         Optional ByVal DataWorkbook As String, _
         Optional ByVal HandleDuplicates As String, _
         Optional ByVal KeepOpen As Boolean = False) As Dictionary

    Application.ScreenUpdating = False

    sCurrentActiveBook = ActiveWorkbook.Name
    sCurrentActiveSheet = ActiveSheet.Name

    Dim oDictionary As New Scripting.Dictionary
    Dim lLastRow As Long
    Dim lIncrementer As Long
    Dim vKey As Variant
    Dim vValue As Variant

    If Not DataWorkbook = "" Then
        oWorkbookName = bpGetFilenameFromPath(DataWorkbook)
        Workbooks.Open (DataWorkbook)
        Workbooks(oWorkbookName).Activate
        sCurrentActiveExternalSheet = ActiveSheet.Name
    End If

    If Not DataWorksheet = "" Then
        Worksheets(DataWorksheet).Activate
    End If

    If Not RowEnd = 0 Then
        lLastRow = RowEnd
    Else
        lLastRow = bpLastRow(KeyColumn)
    End If

    If RowBegin = 0 Then
        RowBegin = 1
    End If

    For lIncrementer = RowBegin To lLastRow
        vKey = Cells(lIncrementer, KeyColumn)
        vValue = Cells(lIncrementer, ValueColumn)
            If HandleDuplicates = "Ignore" And oDictionary.Exists(vKey) Then
                'Do Nothing and move to next row
            Else
                oDictionary.Add vKey, vValue
            End If
    Next lIncrementer

    Set bpCreateDictionary = oDictionary

    If Not oWorkbookName = "" Then
        If Not KeepOpen = True Then
            Worksheets(sCurrentActiveExternalSheet).Activate
            Workbooks(oWorkbookName).Close SaveChanges:=False
        End If
    End If

    Workbooks(sCurrentActiveBook).Activate
    Worksheets(sCurrentActiveSheet).Activate

    Application.ScreenUpdating = True

End Function

最后一行“结束函数”是调试时发生错误的地方。关于这里可能发生的事情有什么想法吗？

Answer 1

就像你在函数中所做的那样

Set bpCreateDictionary = oDictionary 

你必须

Set myDict = bpCreateDictionary("A", "B", 1, 10, "Sheet2", , "Ignore").