Excel VBA Webquey создает новый столбец

Question

, например, следующий запрос будет создать новый столбец и данные из колонка теперь будет в колонке B

With ActiveSheet.QueryTables.Add(Connection:="URL;" & u, _ 
Destination:=Cells(14, 8)) 
    .BackgroundQuery = True 
    .TablesOnlyFromHTML = True 
    .Refresh BackgroundQuery:=False 
    .SaveData = True 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = False 
    .RefreshOnFileOpen = False 
    .BackgroundQuery = True 
    .RefreshStyle = xlOverwriteCells 
    .SavePassword = False 
    .SaveData = True 
    .RefreshPeriod = 0 
    .WebSelectionType = xlEntirePage 
    .WebFormatting = xlWebFormattingNone 
    .WebPreFormattedTextToColumns = True 
    .WebConsecutiveDelimitersAsOne = True 
    .WebSingleBlockTextImport = False 
    .WebDisableDateRecognition = False 
    .WebDisableRedirections = False 
    .Refresh BackgroundQuery:=False 
    .AdjustColumnWidth = False 
End With 

возможно, что адрес веб-запроса остается фиксированным, скажем A1

Answer 1

Да. Добавьте .RefreshStyle = xlOverwriteCells внутри вашего предложения. Это заставит внешние данные A1, а не добавлять новый столбец.