Передача массива Variant в sub, "Ожидаемое: ="

Я нашел функцию для добавления записи в таблицу в Excel с помощью VBA. Я реализовал его, но я не знаком с типом данных 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 

Вам нужно использовать tu

вызов AddDataRow (tbloverview, v)

Interesting Posts

Excel Query, просматривающий несколько значений для одного и того же имени и представляющих средние значения

У вас есть книга Excel сама по себе в webservice: как получить байты?

xll работает только на компьютере сборки

Добавление значения суммы в активную ячейку VBA excel

Динамическое обновление SQL из Excel

Фильтрация ярлыков строк в сводной таблице с помощью vba

Пакетный файл, который запускает скрипт sql, получает ошибку. Специальный доступ к поставщику OLE DB «Microsoft.ACE.OLEDB.12.0» был отклонен ».

Нужна формула для excel, чтобы вычесть число «9» на каждый номер индивидуально и

Значения коллекции серии VBA Extract

Excel Macro: Итерация по строкам и комбинированный цикл

Как импортировать столбец из SQL в Excel через BIML

Ошибка времени выполнения = '5': неверный вызов или аргумент процедуры

Макрос Excel VBA для одного столбца, если true, применяет формулу к другому столбцу

VBA, проходящий диапазон ячеек в функцию

Скопируйте определенную ячейку в столбце и вставьте в другой рабочий лист

Давайте будем гением компьютера.