相关疑难解决方法(0)

我正在尝试编写一个子程序来删除工作簿中的所有查询。我有下面的代码：

Dim CN As Variant
Dim qTable As QueryTable



For Each CN In ThisWorkbook.Connections
    CN.Delete
Next CN

 For Each qTable In Sheets("Property Extract 1").QueryTables
qTable.Delete
Next qTable'

连接删除工作正常，但查询仍然存在。任何想法如何删除工作簿中的所有查询？

我计划复制 2 或 3 张查询删除。

谢谢

像许多人一样,我有电子表格从40多个文本文件中提取数据作为数据源.文本文件来自另一个应用程序,需要定期更新到Excel.

需要能够复制数据源文件和电子表格集并在不同系统上运行.这就是Excel无法支持从电子表格文件夹(或相对路径)导入数据的惊人无法成为一个大问题.这个问题提到了这个问题,但没有解决方案.

我在Excel中为这个(IMHO)基本缺陷开发了一个粗略的解决方法.使用SUBST将电子表格文件夹映射到驱动器号.然后从SUBST驱动器号中导入数据.该驱动器号和路径将成为电子表格的一部分,深埋在对话框中,并且非常不方便更新.因此,无论何时复制或移动电子表格,都要将SUBST重新创建到当前文件夹.丑陋但有效.

新问题:使用此技术,当我打开电子表格并单击"刷新"以从数据源刷新时,我必须在40多个对话框中单击"导入" - 每个文件对应一个.我该如何自动化该过程？