如何使用 VBA 在 Excel 中正确添加表格列?

Posted

技术标签:

【中文标题】如何使用 VBA 在 Excel 中正确添加表格列?【英文标题】:How do I correctly add Table Columns in Excel using VBA? 【发布时间】:2020-12-20 12:58:38 【问题描述】:

问题:我在使用 VBA 向多个工作簿中的表添加列时收到间歇性结果。在一次情况下,我收到一个超出范围的错误。有时会添加所有新列,但大多数情况下只会添加一些列,并将剩余的列标题带到下一行,而不是创建列。

我正在尝试做的事情:我正在尝试将 7 列添加到现有表中,然后将数据添加到引用每行中现有表数据的那些列中。

我尝试过的:我尝试过不同版本的代码。

在循环添加数据之前,我在开头添加了这段代码。此代码错误并出现“脚本超出范围”错误。它将添加前两列,它将第三列名称添加到第一行的第一个单元格,然后尝试添加第四列时出错。 tblCols 变量是添加新列之前所有表列的计数。

Worksheets(wsName).ListObjects(tblName).ListColumns.Add(tblCols + 1).Name = "Transaction Name In"
Worksheets(wsName).ListObjects(tblName).ListColumns.Add(tblCols + 2).Name = "Transaction Name Out"
Worksheets(wsName).ListObjects(tblName).HeaderRowRange(tblCols + 3) = "Batch Map Name"    
Worksheets(wsName).ListObjects(tblName).ListColumns.Add(tblCols + 4).Name = "Inbound Path and File"
Worksheets(wsName).ListObjects(tblName).ListColumns.Add(tblCols + 5).Name = "Outbound Path and File"
Worksheets(wsName).ListObjects(tblName).ListColumns.Add(tblCols + 6).Name = "Lookup Tables"
Worksheets(wsName).ListObjects(tblName).ListColumns.Add(tblCols + 7).Name = "Logical Path"

如果我使用下面的代码并简单地添加新数据,大多数情况下,简单地添加此数据会强制创建新列,然后循环后面的代码用于命名标题。但是,这也并不总是有效。我不会收到错误,但最后几个列标题将写入第一行,而不是创建列。我对循环代码没有任何问题。

    Dim x As Long

For x = 1 To tblRows
    Worksheets(wsName).ListObjects(tblName).DataBodyRange(x, (tblCols + 1)) = CreateTransInName(x)
    Worksheets(wsName).ListObjects(tblName).DataBodyRange(x, (tblCols + 2)) = CreateTransOutName(x)
    Worksheets(wsName).ListObjects(tblName).DataBodyRange(x, (tblCols + 3)) = CreateBatchMapName(x)
    
    Worksheets(wsName).ListObjects(tblName).DataBodyRange(x, (tblCols + 4)) = CreateInboundPath(x)
    Worksheets(wsName).ListObjects(tblName).DataBodyRange(x, (tblCols + 5)) = CreateOutboundPath(x)
    Worksheets(wsName).ListObjects(tblName).DataBodyRange(x, (tblCols + 6)) = CopyLookupTables(x)
    Worksheets(wsName).ListObjects(tblName).DataBodyRange(x, (tblCols + 7)) = CreatelogicalPath(x)
Next

DoEvents

Worksheets(wsName).ListObjects(tblName).HeaderRowRange(tblCols + 1) = "Transaction Name In"
Worksheets(wsName).ListObjects(tblName).HeaderRowRange(tblCols + 2) = "Transaction Name Out"
Worksheets(wsName).ListObjects(tblName).HeaderRowRange(tblCols + 3) = "Batch Map Name"

Worksheets(wsName).ListObjects(tblName).HeaderRowRange(tblCols + 4) = "Inbound Path and File"
Worksheets(wsName).ListObjects(tblName).HeaderRowRange(tblCols + 5) = "Outbound Path and File"
Worksheets(wsName).ListObjects(tblName).HeaderRowRange(tblCols + 6) = "Lookup Tables"
Worksheets(wsName).ListObjects(tblName).HeaderRowRange(tblCols + 7) = "Logical Path"
MsgBox "Naming Convention Completed"

如果有人有建议,我愿意接受。我真的有点困惑,第一块代码不起作用。

【问题讨论】:

为什么第三列使用 HeaderRowRange,与其他列不一致? 正如 Jeremy Hodge 上面所写 - 您应该将 HeaderRowRange(tblCols + 3) 替换为 ListColumns.Add(tblCols + 3).Name。我建议有这个代码块(它调整 ListObject 的大小并为标题提供名称)** 在顶部**(在复制数据的块之前),因为 Excel 在调整 ListObjects 的大小时往往会做一些额外的操作。 @Jeremy 和 Tomek - 我没有注意到这一点。我复制了代码,知道我可以简单地用 ListColumns.Add 替换它,但错过了一个。感谢收看。 【参考方案1】:

您可以使用这些方法来添加列。将所有列名放在一个字符串数组中,然后遍历这些项目,随时添加。

Public Sub AddColumnsToTable()

Dim ColumnHeaders(1 To 3) As String
Dim col As ListColumn
Dim i As Integer

ColumnHeaders(1) = "Hello"
ColumnHeaders(2) = "This is"
ColumnHeaders(3) = "A new column"

For i = 1 To 3

    Set col = Me.ListObjects(1).ListColumns.Add
    col.Name = ColumnHeaders(i)

Next i

End Sub

【讨论】:

【参考方案2】:

纠正我的复制/粘贴错误,在第一块代码的第 3 行将 HeaderRowRange 替换为 ListColumns.Add 是修复。我帖子中的第一个代码块是添加列的正确方法。我只是犯了一个错误,幸好有人发现了它。

改变这个:

Worksheets(wsName).ListObjects(tblName).HeaderRowRange(tblCols + 3) = "Batch Map Name"

到这里:

Worksheets(wsName).ListObjects(tblName).ListColumns.Add(tblCols + 3) = "Batch Map Name"

【讨论】:

以上是关于如何使用 VBA 在 Excel 中正确添加表格列?的主要内容,如果未能解决你的问题,请参考以下文章

如何使用 VBA 在 Excel 中添加连接(到外部数据源)并将其保存到该 Excel 电子表格的连接列表

Excel VBA 比较两个表格的不同?

excel表格数据量很大时如何提高vba的效率

VBA Excel 2003 保护单元格点击

Excel 用VBA统计这个表一共用多少列多少行

excel2007 VBA中如何引用指定的单元格地址?