如何重命名从XmlImport创建的表？

Question

我正在使用XmlImport从外部Web源导入XML数据。它创建一个自动表名称，该名称是返回的XSD的名称＆＃34;响应＆＃34;。如何在VBA中重命名？这是我的代码。我将变量tableName设置为与导入数据时创建的工作表相同。我使用录制的宏以交互方式执行相同的操作来捕获此命令。但我收到错误＆＃34;下标超出范围＆＃34;。救命！提前致谢！ ：）

ActiveWorkbook.XmlImport url:=url, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")
ActiveSheet.ListObjects(tableName).Name = tableName