Удаление заголовка объекта таблицы Excel от VBA

Question

Теперь я работаю над некоторым кодом VBA и держусь в нем. Я по достоинству оценен, если кто-то здесь может помочь.

Действительно, теперь я применяю SQL-запрос через Excel ODBC для извлечения данных из AS400. Однако я хотел бы извлечь данные только без заголовка.

Поэтому я прилагая следующий код VBA, чтобы удалить заголовок таблицы

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

Однако, это не работает хорошо в качестве значения заголовка таблицы все еще оставалась и извлеченное значение сдвигается на 1 строку.

Может ли кто-нибудь предложить способ удалить заголовок таблицы кодом VBA или Исключить строку заголовка во время извлечения данных.

спасибо

Answer 1

HeaderRowRange является неотъемлемой частью ListObject как таковой, он не может быть удален. Поэтому, если вам нужно удалить данные заголовка, вам необходимо сначала преобразовать ListObject в стандартный диапазон excel, используя метод ListObject Unlist. Добавьте этот код в процедуре:

код фактически удаляемый весь заголовок строки ... (выберите параметр, который нужно)

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