使用VBA刪除Excel表格對象標題

我現在正在研究一些VBA代碼並且一直卡在它裏面。我真的很感激，如果有人在這裏可以幫助。使用VBA刪除Excel表格對象標題

確實，我現在正在通過Excel ODBC應用SQL查詢來從AS400中提取數據。但是，我想只提取沒有標題的數據。

因此，我申請下面的VBA代碼以除去表頭

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

然而，這不是仍保持中的表頭值運作良好，所提取的值被向下移位1行。

是否有人可能會建議通過VBA代碼刪除表頭的方式或在數據提取過程中排除標題行。

非常感謝

來源

2015-11-18 Wong Ka Ming

的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

來源

2015-11-18 03:18:51 EEM

使用VBA刪除Excel表格對象標題

回答

相關問題