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

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

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

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

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

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

ActiveWorkbook.Worksheets.Add

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;xxxxxx.com/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

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值