Excel VBA：设置新的外部数据连接并刷新而不查询用户

我目前有一个Excel工作簿，有一个.txt文件的外部数据连接。 这是以QueryTable的forms。

我想要做的是创build一个对话框要求用户的.txt文件的文件夹。 然后我会遍历这些文件，刷新每个新文件的查询表。 在初始文件夹对话框后，我不希望用户看到任何其他对话框。

我目前的代码是：

myQuery = ThisWorkbook.Sheets(1).QueryTables(1) Filenames = Application.GetOpenFilename(MultiSelect:=True, Title:="Select files") For Each Filename In Filenames myQuery.Connection = "TEXT;" & Filename myQuery.Refresh 'This displays a dialog box to choose a new file each time. ' Some other code that would execute after each refresh Loop 

我正在寻找的东西是刷新QueryTable的当前.Connectionstring，但不会打开每个刷新一个新的对话框。

我已经尝试使用Application.DisplayAlerts = False ，但不抑制刷新对话框。

任何想法来完成类似的东西将不胜感激。

Answer 1

您应该将QueryTable的.TextFilePromptOnRefresh 属性设置为False 。