我有一个用于记录每日饮食摄入的Excel表格。在表格中,每一行代表你吃的一种食物及其所含糖分等信息。
然后我添加了一个保存按钮,将所有数据保存到另一个工作表中的表格中。
这是我尝试过的方法。
Public Sub addDataToTable(ByVal strTableName As String, ByRef arrData As Variant)
Dim lLastRow As Long
Dim iHeader As Integer
Dim iCount As Integer
With Worksheets(4).ListObjects(strTableName)
'find the last row of the list
lLastRow = Worksheets(4).ListObjects(strTableName).ListRows.Count
'shift from an extra row if list has header
If .Sort.Header = xlYes Then
iHeader = 1
Else
iHeader = 0
End If
End With
'Cycle the array to add each value
For iCount = LBound(arrData) To UBound(arrData)
**Worksheets(4).Cells(lLastRow + 1, iCount).Value = arrData(iCount)**
Next iCount
End Sub
但是在高亮显示的行出现了相同的错误:
Application-defined or object-defined error
我做错了什么?
先感谢您!
AddRows
慢,而是你的“复杂”表格。你试过在代码运行时将计算设置为手动吗? - chris neilsen