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. svn command line tag
  2. 项目经理如何有效地进行项目沟通?
  3. 命令行隐藏磁盘驱动器
  4. windows终止处理程序( __try __finally) 简单解析
  5. 浅谈C++类(6)--复制构造函数
  6. Python 爬虫没有思路?可以看看这篇文章
  7. java数组 js数组的长度_js中split()方法得到的数组长度问题
  8. 接口测试--ApiPost组成介绍
  9. ssms脚本生成缓慢_使用SSMS和Azure Data Studio生成数据脚本
  10. 开课吧课堂之throws如何去使用?
  11. 当要写验证性的代码时,利用git进行代码管理
  12. mathtype 7.4.10.53中文版安装教程,以及如何将MathType嵌入到word中
  13. 智能合约语言 Solidity 教程系列2 - 地址类型介绍
  14. C Library User 手册(25)
  15. CMakeLists.txt范例
  16. TMS运输管理系统,对车辆管理、物流运输、效率提升有哪些优势?
  17. 京东数据库运维自动化体系建设之路
  18. kettle carte子服务器的使用
  19. iOS 面试题集合~[有答案]
  20. sklearn提示cannot import name ‘MaskedArray‘ from ‘sklearn.utils.fixes‘的解决方法

热门文章

  1. MFC中OnCtlColor的用法(改变控件颜色)
  2. linux加载内核后如何运行app,Android app启动过程
  3. 使用Banner实现轮播展示
  4. python跳回循环开始位置_如何回到python中循环的开始?
  5. vue中使用js-cookie
  6. linux 配置思科路由器,将配置文件导入cisco2611路由器步骤
  7. nacos使用_使用Nacos的CMDB实现微服务的就近访问!
  8. IT技术分类和就业特点
  9. 004-hadoop家族概述
  10. 解决PHP 中英文字符串截取出现半个字符