HTML如何用代码调用Excel宏 请教excel用宏采集网页数据的代码问题 内详。

该楼层疑似违规已被系统折叠隐藏此楼查看此楼

网址已经在A1到A400单元格内，网址不是0001.html这种类型，里面的数字是跳跃的，不是连续的，而且网址有长有短。

我会用excel的数据导入，每次导入某一个具体网址。但是我想编辑一个宏，让宏调用单元格A1的网址，然后新建表格导入。以此类推直至400个网址的数据导入完毕。

下面是我利用宏录制得到的代码，重复测试这段代码可以重复实现对代码中网址数据的导入。

我想在录制的宏代码基础上作修改。把网址换成cells(1,1)以后，这段正常的代码反而变得不能正常运行，我不知道哪里出了问题。

ActiveWorkbook.Worksheets.Add

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;/html/102587748.html", Destination:=Range("$A$1"))

.Name = "102587748"

.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