Excel菜鸡玩网抓也疯狂1.docVIP

Excel 菜鸡玩网抓也疯狂 1 Excel 中国合伙人：网抓对于基本功不扎实的朋友来说 是比较困难的，尤其是自己去找那些教程看的时候，简直两 眼冒金星。 作为一个合伙人【秋名山老司机】 ，这时候就要站出来了， 今天就给你们带来一种思路相对简单粗暴的，可以实现基本 抓取功能的方法。就拿百度开刀吧！我们来抓这个，就抓上 证指数好了。 打开网页： /stock/sh000001.html?from=aladin gpc 如下图要抓取红色框中的数据； 见抓取动画。 上证指数：抓取动画（观看动画需稍等片刻） ：抓取之后的 上证指数，见下图：是不是很好玩呢？其实， Excel 菜鸡玩 网抓也疯狂 +1 ，请大家在文章底部留言时 +1！ Excel 中国 合伙人 下面进入网抓原理学习环节； Excel 菜鸡玩网抓也疯狂 +1 ！ 01 下载网页，也就是我们手动打开网页，然后另存为 htm 02 用 Excel 打开 htm ，看下图。 03 然后选取需要的数据， 复制黏贴到新的 sheet 里，把原来的垃圾 sheet 删掉。最后 就能得到下图这样的表格。 Excel 中国合伙人 很简单是吧？ 那么我们现在就通过代码来实现这些功能。 Private Declare Function URLDownloadToFile Lib urlmon Alias URLDownloadToFileA (ByVal pCaller As Long, _ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 调 用下载用的 API, 如果 64 位 EXCEL 报错请自行百度 ,今天不 讲 APISub 抓()Dim Temp_Path$, Save_Path$ 定义路径参 数 Application.DisplayAlerts = False 眼不见为净与不刷新 语句 Application.ScreenUpdating = FalseTemp_Path = /stock/sh000001.html?from=aladin gpc 设置要抓的网站地址 Save_Path = 另存 .htm 另存的路径 URLDownloadToFile 0, Temp_Path, Save_Path, 0, 0 下载 文件并保存 ,具体参数请百度 ,反正对于这个我们只要地址和 保存路径就 OKWorkbooks.Open Save_Path 把下载的 HTM 打开 Call 整理 老司机呼叫整理代码 Application.Workbooks( 另存 .htm).SaveAs 另存 .xlsx, _ FileFormat:=xlOpenXMLWorkbook 另存这个 htm 文件 ,注意 saveas 的参数 ,请自行百度 ,这里我们用到的是 xlOpenXMLWorkbook, 把这个网页转成 xlsx, 不然是会有问 题的 Workbooks( 另存 .xlsx).Close 关闭处理好的文件 Kill Save_Path 删除那个 htm 文件 Application.ScreenUpdating = True 把眼不见为净与不刷新功能关掉 Application.DisplayAlerts = TrueEnd SubSub 整理 ()Dim TempTemp = Range(A Range(A:A).Find( 上证指数 ).Row :A Range(A:A).Find( 平家数 ).Row + 1) 我们 要的是上证指数那行和平家数之间的数据 ,用 find 去找出来 行号就行 , 并赋值给 tempWorkbooks( 另存 .htm).Sheets( 另 存 ).ActivateSheets.Add After:=ActiveSheet 激活表格并加 一个 sheet, 这样可以等下直接删掉这个表， 省得再删除图片、 框框什么的东西 For i = 1 To UBound(Temp, 1) 把存在 temp 的值赋值给新建的 sheet1 Workbooks( 另 存 .htm).Sheets(Sheet1).Cells(i, 1) = Temp(i, 1)NextWorkbooks( 另存 .htm).Sheets( 另存 ).Delete 删掉 原来那个表 ,回主程序 End SubEexcel 中国合伙人此方法并 非无敌的，我发表的目的只是为了拓展下大家的思维，让大 家离网抓更近，鼓励大家学习。 图文作者：冥月※辰风