通过 VBA 删除 Excel 表格对象标题答案

【问题标题】：Removing Excel Table Object Header by VBA通过 VBA 删除 Excel 表格对象标题
【发布时间】：2015-11-18 02:31:45
【问题描述】：

我现在正在编写一些 VBA 代码并一直坚持下去。如果有人可以提供帮助，我将不胜感激。

确实，我现在通过 Excel ODBC 应用 SQL 查询以从 AS400 中提取数据。但是，我想只提取没有标题的数据。

因此，我正在应用以下 VBA 代码来删除表头

ActiveSheet.ListObjects("CURRENT_ACCOUNT_QUERY_0001").ShowHeaders = False

但是，这并不能很好地工作，因为表头值仍然存在，并且提取的值向下移动了 1 行。

有没有人可以建议通过VBA代码删除表头的方法或在数据提取期间排除标题行。

非常感谢

【问题讨论】：

标签： excel odbc vba

【解决方案1】：

HeaderRowRange 是ListObject 的组成部分，因此无法删除。因此，如果您需要删除表头数据，则必须首先使用 ListObject 的Unlist 方法将ListObject 转换为标准的excel 范围。将此代码添加到您的程序中：

代码实际上是删除整个标题行... （选择你需要的选项）

Dim rHdr As Range

    Set rHdr = ActiveSheet.ListObjects("CURRENT_ACCOUNT_QUERY_0001").HeaderRowRange
    Lob.Unlist
    'Selec the option required
    rHdr.EntireRow.Delete      'Use this line if you want to delete the entire row
    'rHdr.Delete Shift:=xlUp    'Use this line if you want to delete only the header cells

【讨论】：