我有一个简单的Excel IQY文件,其中的内容如下所示:
WEB
1
http://somesite.html
Selection=EntirePage
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False
这很简单,没问题。
我需要做的是添加选项以打开“打开文件时刷新数据”并打开“在保存工作簿之前从外部数据范围中删除数据”。
在查看“使用情况”选项卡下的连接属性时,我找到了这些设置,但是,我无法找到我在IQY文件中设置这些设置的位置,以便默认情况下检查这两个选项使用iqy文件时。
谢谢!
答案 0 :(得分:1)
我尝试了一个现有IQY文件的示例&发现那些是DataRange的属性而不是查询。因此,它存储为QueryTable的属性
假设Excel表格中有1个QueryTable。 以下是可用于读取/设置属性的VBA代码,您正在寻找。
按ALT + F11(您将看到VBA编辑器)
按CTRL + G(即时窗口)
逐个输入以下声明&看看有什么要说的
Msgbox ActiveSheet.QueryTables(1).RefreshOnFileOpen
Msgbox ActiveSheet.QueryTables(1).SaveData
然后,尝试&从代码中设置这些属性,并在DataRange属性对话框中查看它的效果。
ActiveSheet.QueryTables(1).RefreshOnFileOpen = True
ActiveSheet.QueryTables(1).SaveData = True
希望有所帮助。