Как НЕ обновить backgroundQuery vba

Question

Кто-нибудь знает, как остановить таблицу запросов обновления, чтобы постоянно обновлять и обновлять только один раз. он постоянно обновляется, делает мою таблицу Excel медленной.

With ActiveSheet.QueryTables.Add(Connection:= _ 
     "URL;" & FilePath, _ 
     Destination:=temp.Range("A1")) 
    .Name = "Deloitte_2013_08" 
    ' .CommandType = 0 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    .BackgroundQuery = True 
    .RefreshStyle = xlInsertDeleteCells 
.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 

Answer 1

Изменить эту строку:

.BackgroundQuery = True 

к:

.BackgroundQuery = False 

Answer 2

Используйте Application.ScreenUpdating, чтобы обернуть свой код.

application.screenupdating = false 
With ActiveSheet.QueryTables.Add(Connection:= _ 
     "URL;" & FilePath, _ 
     Destination:=temp.Range("A1")) 
    .Name = "Deloitte_2013_08" 
    ' .CommandType = 0 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    .BackgroundQuery = True 
    .RefreshStyle = xlInsertDeleteCells 
.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 

application.screenupdating = true 

Вы также можете быть заинтересованы в установлении Application.Calculation к xlCalculationManual перед большой операцией, а затем установить его в xlCalculationAutomatic после того как вы сделали.