在VBA Excel中创build表时出错

所以我正在将一堆数据导入一张表格中，然后我想把它放到一张表格中。 我不知道会有多less行数据。 这个代码前几天正常工作，但我想我可能会不知不觉地改变了一些东西。 这里是代码：

Sheets("Enrollment Data Aggregate").ListObjects.Add(xlSrcRange, Range([A1].End(xlDown), "$n$1"), , xlYes).Name = "EDA_Table" 

我收到一条错误消息，指出“表格的工作表数据需要与表格在同一张纸上”。 据我所知，我正在把数据放在同一页面上。 有什么build议么？

Answer 1

尝试这个。 您需要声明一个范围对象，以便您可以访问其属性。

 Dim wks As Worksheet Set wks = ThisWorkbook.Sheets("Enrollment Data Aggregate") Dim rng As Range Set rng = wks.Range([A1].End(xlDown), "$n$1") wks.ListObjects.Add(xlSrcRange, rng, , xlYes).Name = "EDA_Table"