Run ошибка во время «1004» Таблица может не более чем на коленях другой таблице

Question

Im используя приведенный ниже код для создания таблицы с именем, как Dashboard и работает нормально до вчерашнего дня

Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).Select 
ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes).Name = "Dashboard" 

Range("Dashboard[#All]").Select 
ActiveSheet.ListObjects("Dashboard").TableStyle = "TableStyleLight9 2" 

Однако, теперь я получение Ошибка времени выполнения '1004' Таблица не может перегибать другую таблицу Ошибка. Может кто-нибудь помочь мне, почему я получаю эту ошибку и как решить это

Спасибо заранее :)

Answer 1

Проблема, вероятно, не лежит в макрос, но в том, как вы/Excel обрабатывает таблицы. Я предполагаю, что раньше была таблица (или все еще есть, но не видна), и с вашим макросом вы пытаетесь перезаписать этот диапазон других таблиц. Проверьте в разделе «Формула»> «Имена», если существуют (устаревшие) таблицы, охватывающие один и тот же диапазон.

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

Если это не помогает, попробуйте выполнить отладку с помощью следующего кода;

dim vTmp as variant 
for each vTmp in application.ListObjects 
    debug.print vTmp.name, vTmp.range 
next vTmp 

Затем проверьте наличие таблиц, охватывающих тот же диапазон.