如何从sheet1中的单元格调用URL并在sheet2中刮取网页数据。

我试图刮表格数据到excel使用网站的url,但我想要的URL应该从sheet1中的单元格(A1)和sheet1中的单元格(A2)中调用,等等…废弃的数据应导入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 

我不完全确定你在问什么,但我想你想使用For循环。

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

这将允许您顺序使用单元格A1,A2,… An。