Как вызывать URL-адрес из ячеек в листе1 и очищать данные веб-страницы на листе2 ..!

Question

Я пытаюсь очистить табличные данные в excel, используя URL-адрес веб-сайта, но я хочу, чтобы URL-адрес вызывался из Cell (A1) в sheet1 и Cell (A2) в sheet1 и т. Д. ... Сброшенные данные должны быть импортированы в sheet2 в той же книге. Пожалуйста, помогите мне. Я использую код ниже, но я могу работать с одним URL-адресом.

Sub Macro2() 
' 
' Macro2 Macro 
' 

' 
    Range("A1").Select 
    With ActiveSheet.QueryTables.Add(Connection _ 
    :="URL;http://publicrecords.netronline.com/state/AL/county/macon", Destination _ 
     :=Range("$A$1")) 
     .Name = "autauga" 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .WebSelectionType = xlSpecifiedTables 
     .WebFormatting = xlWebFormattingNone 
     .WebTables = "5" 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 
    End With 
    ActiveWindow.SmallScroll Down:=-15 
    Range("C1").Select 
    ActiveWindow.SmallScroll Down:=-12 
End Sub 

Answer 1

Я не совсем уверен, о чем вы просите, но я думаю, вы хотите использовать цикл For.

For row = 1 To n 
    ... 
    Range("$A$" & row) 
    ... 
Next 

Это позволит вам использовать ячейки A1, A2, ..., последовательно.