Question

我正在尝试在预定义的API上构建Web scraper。我使用了excel＆＃34;从web＆＃34;为了这。这是我正在使用的代码：

    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并为某些人提供了错误。我尝试过谷歌上最常用的解决方案。我还尝试删除工作表中所有已建立的连接。此外，它可以在所有笔记本电脑上完美运行，但不能在台式机上运行（我知道这很奇怪，但情况确实如此）

这里有什么问题？

在.Refresh BackgroundQuery vba上运行时错误1004

0 个答案: