运行时错误1004上.Refresh BackgroundQuery vba

我正在尝试在预定义的API上构build一个Web刮板。 我已经使用了excel的“从网页导入”。 这是我正在使用的代码：

With Sheet7.QueryTables.Add(Connection:=Sheet7.Range("connection_string").Value _ , Destination:=Sheet7.Range("xml_data_start")) .Name = Sheet5.Range("search_string") .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = False .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With 

我在最后一行发生错误（.refresh ..）。 错误是：

该文件无法访问。 请尝试以下操作之一：1）确保指定的文件夹存在2）和另外2-3行

奇怪的是，这对一些search_string有效，并给一些错误。 我已经尝试了谷歌上最常用的解决scheme。 我也尝试擦除表单中的所有已build立的连接。 另外，它在所有笔记本电脑上都能正常工作，但在台式电脑上却不行（我知道这很奇怪，但情况就是这样）

这里可能是什么问题？