使用VBA将外部数据转换为表

Question

在excel中，我正在上传一个文本文件（记事本），上面带有一堆数据。我通过“文本导入向导”运行它，它对我来说足够干净。问题出在我想将其全部转换成表格时。

当我手动执行此操作时，它会显示一条通知“您的选择与一个或多个外部数据范围重叠。是否要将选择转换为表并删除所有外部连接？”我单击“是”，然后继续执行我的工作。

现在，当我尝试自动执行此过程时，它卡住了。我正在使用这个宏，该宏会自动将数据集转换为表格，填写一些标题，并应用一些过滤器和公式-但由于我在这里遇到的问题，我无法理解这一部分。

运行宏时遇到的错误是运行时错误'1004'：表不能与包含数据透视表报表，查询结果，受保护的单元格或其他表的范围重叠。

我可以添加一些容易的方法来使其代码达到与在问题上手动单击“是”时相同的结果。

Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

选择所有内容后立即挂断

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$K$98041"), , xlNo).Name = _
    "Table2"
Range("Table2[#All]").Select
ActiveSheet.ListObjects("Table2").TableStyle = "TableStyleLight9"