刷新BackgroundQuery：= False | 需要帮助？

我已经看过其他一些同样的错误，但他们的解决scheme并没有帮助我。

Refresh BackgroundQuery:=False错误1004

这是我的代码

 ' ' LoadData Macro ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;Macintosh HD:Users:Karrar:Desktop:Excel.txt", Destination:=Range("A1")) .Name = "Excel" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .RefreshOnFileOpen = False .BackgroundQuery = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .TextFilePromptOnRefresh = False .TextFilePlatform = xlMacintosh .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = True .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .UseListObject = False .Refresh BackgroundQuery:=False End With End Sub 

Answer 1

尝试下面的行

 ActiveSheet.Range("A1").QueryTables(1).Refresh BackgroundQuery:=False 

要么

 ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False