Веб-запрос Excel добавляется в таблицу

Я только что понял, как получить данные в таблицу с помощью веб-запроса Excel. Однако каждый раз, когда данные обновляются, они перезаписывают последнее обновление поверх. Могу ли я использовать веб-запрос для загрузки данных в таблицу путем добавления к существующей таблице при каждом обновлении вместо перезаписи и потери старых данных, и если да, то как?


excel-web-query
person Mike Parson    schedule 01.03.2018    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Майк, я предлагаю создать лист с вашими окончательными данными и скопировать в него ваши последние данные. Таким образом, у вас есть лист обновления, который получает новые данные, и другой лист, в котором новые данные хранятся под старыми данными.

`'Get onto the right sheet to copy daata
  Sheets("Data").Select
 'Start a loop
  Dim x As Integer
  Application.ScreenUpdating = False
  ' Set numrows = number of rows of data.
  NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count
  ' Select cell a2.
  Range("A2").Select
  ' Establish "For" loop to loop "numrows" number of times.
  For x = 1 To NumRows

    Selection.copy
    'Get onto the right sheet
    Sheets("APIcall").Select

    'Activate the query for the specific data

    'delete the query so that it can be used again and unlist it to be able to manipulate it 
    ActiveWorkbook.Queries("query").Unlist       
    ActiveWorkbook.Queries("query").Delete

    'copy the info into the Data sheet into the next blank row
    Sheets("APIcall").Select
    Range("A2", Range("A2").End(xlToRight)).Select
    Selection.copy
    Sheets("Data").Select
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("APIcall").Cells.Clear

'get the next data
Sheets("Data").Select
ActiveCell.Offset(1, 0).Select
Next`

Скорее всего, это можно сделать лучше и проще, но надеюсь, что это немного поможет.

person ArtPur    schedule 01.04.2018