1
我收到错误450“参数数量错误或属性赋值无效”。错误发生在函数的最后一行,即最后一行“End Function”。我看不出有任何缺失“结束如果”所以我不知道是什么导致了这一点:“End Function”行Excel VBA 450错误
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
而且在最后一行“端功能”是哪里调试时发生错误。任何想法可能会发生在这里?
'设置myDict = bpCreateDictionary(...)'函数做? – GSerg
这就是GSerg,谢谢! – user4333011