Sub 下载商品现货与期货价格对比数据()

On Error Resume Next

Dim Url, HTML, r

Dim mr, n As Long, i%, j%, d

ActiveSheet.UsedRange.Offset(3).Clear

d = InputBox("请输入开始日期与终止日期", "日期范围", Format(Date, "yyyy-mm-dd/yyyy-mm-dd"))

Set HTML = CreateObject("htmlfile")

With CreateObject("msxml2.xmlhttp")

For n = Format(Split(d, "/")(0), "0") To Format(Split(d, "/")(1), "0")

mr = ActiveSheet.UsedRange.Rows.Count

If n > Format(Split(d, "/")(0), "0") Then Range("1:3").Copy Range("A" & mr + 1)

Range("b" & IIf(n > Format(Split(d, "/")(0), "0"), mr + 1, mr - 2)) = Format(n, "生意社:mm月dd日商品现货与期货价格对比表")

Url = "http://www.100ppi.com/sf/day-" & Format(n, "yyyy-mm-dd") & ".html"

.Open "get", Url, False

.send

HTML.body.innerhtml = .responsetext

Set r = HTML.all.tags("table")(1).Rows

For i = 2 To r.Length - 1

For j = 0 To r(1).Cells.Length

Cells(IIf(n > Format(Split(d, "/")(0), "0"), mr + 1, mr - 2) + i + 1, j + 1) = r(i).Cells(j).innertext

Cells(IIf(n > Format(Split(d, "/")(0), "0"), mr + 1, mr - 2) + i + 1, 5) = Replace(Replace(Split(Split(r(i).Cells(4).innerhtml, "color=")(1), "", ""), "red>", "")

Cells(IIf(n > Format(Split(d, "/")(0), "0"), mr + 1, mr - 2) + i + 1, 8) = Replace(Replace(Split(Split(r(i).Cells(7).innerhtml, "color=")(1), "", ""), "red>", "")

Next j

Next i

Next n

End With

End Sub

怎么提取html的数据,如何提取网页数据相关推荐

  1. java 网页数据_JAVA获取网页数据

    很多时候用到抓取网页数据的功能,以前工作中曾经用到过,今天总结了一下: 1.抓取网页数据通过指定的URL,获得页面信息,进而对页面用DOM进行 NODE分析,处理得到原始HTML数据,这样做的优势在于 ...

  2. wps表格保存html,网页中的数据怎么导入excel表格数据-怎么把网页数据导入到wps表格中...

    如何采集网页中的表格数据到Excel中 1.打开excel表格 2.打开菜单"数据"->入外部数据"->" Web 查询",在" ...

  3. html前台数据自动更新,网页数据如何实现实时刷新?

    本文仅为学技术而简单举例,后端框架是Django,具体业务逻辑是否合理可以不用管,下方是工作中需要实现的需求 自动化程序脚本运行的三种任务状态: 1.未执行  2.执行成功  3.执行失败 任务状态在 ...

  4. 如何将网页内容保存到计算机中,如何将网站导出excel表格数据-如何把网页数据保存到EXCEL...

    网页上的表格数据怎么复制到excel 1.打开excel表格. 2.打开菜单"数据->"导入外部数据"->"新建 Web 查询",在&qu ...

  5. 怎么批量提取网站中的内容-免费网页数据提取软件

    如何从网站中提取内容并将其保存为文本?单击并拖动选择要提取的网页上的文本,然后按"Ctrl-C"复制文本.打开文本编辑器或文档程序,然后按"Ctrl-V"将网页 ...

  6. python爬取数据总结_2020-10-23Python——网页数据爬取知识总结

    一.爬虫请求方法 1.模块名:urllib.resquest 2.导入的方式: import urllib.resquest from urllib import request 3.使用的方法 re ...

  7. python爬取整个网页的数据_免费网页数据抓取采集 python实现一个多线程网页下载器...

    #!/usr/bin/envaR.jz7Y^0l#sgL'}0 # -*- coding:utf-8 -*- 51Testing软件测试网!`G2e3a`k2Ovr import urllib, ht ...

  8. Power BI 数据导入(SQL Server、MySQL、网页数据)

    一.数据源类型 POWER BI 可以连接多种数据源,包括: 文件(文本.CSV.Excel) 数据库(SQL Server.MySQL.Azure Cosmos DB等NoSQL数据库) Power ...

  9. 1.3 网页数据抓取

    1.3 网页数据抓取 李沐 B站:https://space.bilibili.com/1567748478/channel/collectiondetail?sid=28144 课程主页:https ...

  10. 5、Power Query-抓取网页数据做漂亮的图表

    数据来源之网页数据--抓取网页数据做漂亮的图表 要求:根据百度百科网站词条http://baike.baidu.com/item/NBA中的历届总冠军表目做出动态图表. 这次就直接拷贝这个Web地址咯 ...

最新文章

  1. 客户端安装服务器的路径查找文件,柴少鹏的官方网站-puppet系列(一)之puppet的部署、配置文件以及命令详解...
  2. 顶会ACL这十年:百度披荆斩棘,中国NLP乘风破浪
  3. legend3---用Homestead配置后报错“No input file specified.”
  4. 基于单片机的c语言倒计时程序,30秒倒计时c语言51单片机实现.doc
  5. Netty解决粘包和拆包问题的四种方案
  6. 四则运算个人项目进展
  7. 二、搭建Apache服务器 模板引擎
  8. Axis2发布webservice(3)--axis2生成wsdl文件,并利用wsdl文件来生成WebService的Java代码
  9. WordPress出现循环重定向解决办法
  10. html 字体样式及结果,css font-family 的种类、安全字体及写法(附样式图)
  11. 软件开发之文档的重要性
  12. cdrx8如何批量导出jpg_Coreldraw/CDR X8 存低版本打开问题 – 数码打印破图 – Coreldraw/CDR软件崩溃 – 渐变导位图角度变了...
  13. pytorch实现GAN网络及训练自己的数据集
  14. 目前可用的微博秀的嵌入方法大全(亲测2019年2月仍有效) 1
  15. 1.PSTN与VoIP基础
  16. 让最新免费版WPS支持Office VBA
  17. NSPredicate 模糊、精确、查询
  18. CMWAP和CMNET终极大比较
  19. 0 地道英语口语/发音 | 高效提升攻略
  20. MySQL 语句大全

热门文章

  1. 剑指offer(17)树的子结构
  2. 使用UEFI Shell引导U盘启动
  3. OPenGL程序导致WM_TIMER消息不能激发
  4. 关于bufferKnife8.8.1点击事件无效的原因
  5. php 各种进制表示,php各种进制的转换
  6. 获取手机信息(UIDevice、NSBundle、NSLocale)
  7. iphone ios编译ffmpeg
  8. Java基本类型练习1
  9. 彻底理解链接器:二,符号决议
  10. 参加51CTO培训,华为HCNP认证考试通过啦