Question

我收到错误450＆＃34;错误的参数数量或无效的属性分配＆＃34;。错误发生在函数的最后，最后一行＆＃34;结束函数＆＃34;。我没有看到任何失踪＆＃34; End Ifs＆＃34;所以我不知道造成这种情况的原因：

 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

在最后一行＆＃34;结束功能＆＃34;是调试时发生错误的地方。关于可能会发生什么的任何想法？

Answer 1

就像你在

的功能中所做的那样

Set bpCreateDictionary = oDictionary

你必须

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

Excel VBA 450错误＆＃34;结束功能＆＃34;线

1 个答案: