ByRef Аргумент Тип Несовпадение при вызове функции

Question

Я пишу небольшой код VBA, и получаю ошибку ByRef Argument Type Mismatch когда функция LoopThroughNamesAndPopulateValues() вызывается Main()

Sub Main() 
    Call LoopThroughQuoteNamesAndPopulateValues("Sheet2", 1, 1) 
End Sub 

Sub LoopThroughQuoteNamesAndPopulateValues(ByVal sheetName As String, ByVal row As Integer, ByVal column As Integer) 
    Dim sheet As Excel.Worksheet 
    Set sheet = ThisWorkbook.Sheets(sheetName) 

    For i = row To 10000 
     If sheet.Cells(i, column).Value = "" Then 
      Exit For 
     Else 
      Call Finder_Get_Query(sheetName, i, column) 
     End If 
    Next i 
End Sub 

Answer 1

Option Explicit: Добавить «Option Explicit» в верхней части модуль и компиляция. Я предполагаю, что этот код не будет компилироваться, потому что я не объявлен. Возможно, это не проблема, если только Finder_Get_Query не задыхается от i.

Ошибка обработки: поместите обработчик ошибок в Finder_Get_Query и один в LoopThroughNamesAndPopulateValues ​​и посмотрите, какая из них поймает вашу ошибку. Это поможет вам сузить код.

Многие простые проблемы можно решить, выполнив следующие два шага. Вот мой предпочтительный обработчик ошибок, который удобен для отладки, поскольку она позволяет возобновить во время выполнения, если вы хотите:

Sub SampleErrorHandler() 

    On Error GoTo EH 

    'code 

    GoTo FINISH 

EH: 
    With Err 
     MsgBox "Error:" & vbTab & .Number & vbCrLf _ 
      & "Source" & vbTab & .Source & vbCrLf _ 
      & .Description 
    End With 

    'for debugging purposes 
    Debug.Assert 0 
    GoTo FINISH 
    Resume 

FINISH: 

    'clean up, release resources 

End Sub