將Variant數組傳遞給sub，「Expected：=」

Question

我發現了一個函數，用於使用VBA將記錄附加到Excel中的表中。我已經實現了它，但我不熟悉Variant數據類型。我做了一些研究，並試圖使用它，因爲我會在VB中的數組，但我不斷得到一個奇怪的錯誤，它期望=符號。

這裏是在非截圖形式的代碼：

Sub AddDataRow(tableName As String, Values() As Variant) 
    Dim sheet As Worksheet 
    Dim table As ListObject 
    Dim col As Integer 
    Dim lastRow As Range 

    Set sheet = ActiveWorkbook.Worksheets("Sheet1") 
    Set table = sheet.ListObjects.Item(tableName) 

    'First check if the last row is empty; if not, add a row 
    If table.ListRows.Count > 0 Then 
     Set lastRow = table.ListRows(table.ListRows.Count).Range 
     For col = 1 To lastRow.Columns.Count 
      If Trim(CStr(lastRow.Cells(1, col).Value)) <> "" Then 
       table.ListRows.Add 
       Exit For 
      End If 
     Next col 
    End If 

    'Iterate through the last row and populate it with the entries from values() 
    Set lastRow = table.ListRows(table.ListRows.Count).Range 
    For col = 1 To lastRow.Columns.Count 
     If col <= UBound(Values) + 1 Then lastRow.Cells(1, col) = Values(col - 1) 
    Next col 
End Sub 

Sub btnNewGateway_Click() 
    pName = Application.InputBox("Enter New Participant Name", "New Participant") 
    Worksheets("TemplateGateway").Copy After:=Worksheets("TemplateGateway") 
    ActiveSheet.Name = pName + " Gateway" 
    Dim Values() 
    v(0) = pName 
    v(1) = "Gateway" 
    v(2) = Today() 
    AddDataRow ("tblOverview",????) 

End Sub 

Answer 1

你需要塗用

呼叫AddDataRow（tbloverview，V）