Обновить BackgroundQuery: = False | нужна помощь?

Я смотрел на некоторых других с той же ошибкой, но их решение не помогает мне.Обновить BackgroundQuery: = False | нужна помощь?

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

источник

2015-10-30 Karrar Al-Mimar

Попробуйте строку ниже

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

или

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

источник

2015-10-30 03:44:03 newjenn

Я пробовал это, но вместо этого на этот раз я получил ошибку 438, thnx. –

Где вы получаете ошибку 438 – newjenn

Я получаю ее, когда добавляю ActiveSheet.QueryTables (1) .Refresh BackgroundQuery: = False «Ошибка времени выполнения» 438 »« –

Обновить BackgroundQuery: = False | нужна помощь?

ответ

Смежные вопросы