关于VBA提取网页数据到excel表格的代码

看起来挺复杂的，但是这个页面应该是你们内部使用的某个web系统吧，那为何不直接从数据库读取数据呢。

15872400000这个数据不难获取，在网页源码里应该是固定的某个td标签，只要知道是第几个或者和某个标志性字段有对应关系就可以。

what sentimental At nigh

吉 岛 个 ±也 方

楲泥+斯亼

"木急"-淀 。，，

没（森么）问题 的

ditbaidu/>

Sub cc()

CellsClearContents

Set oDoc = CreateObject("htmlfile")

With CreateObject("Win>

不用VBA，直接数据——获取数据——自网站，选择你要的数据表，就可以。获取到的数据，右键，刷新，就能实时更新，是满足使用需求的。天天基金网的我试过，没有问题。期货一般也是东财的数据，也一样能 *** 作。

VBA写这种功能代码很长很费解，因为网抓并不是vba的强项，python可能更方便些。

1、这个问题相对比较专业。建议再去知乎看看

2、另外咨询下淘宝看看卖VBA程序的人都给出什么方案

3、以下代码转载自网络：

Dim 二是开启IE进程Sub test()

  Set ie = CreateObject("InternetExplorerApplication") '设置变量

  With ie '设置块

    Navigate ("需要打开的网页的网址") '打开网页

    Visible = True '是否显示ie窗口

    While readystate <> 4 '延迟等待页面加载完毕

      DoEvents

    Wend

    For i = 22 To 49 Step 3 '取数循环

      S = S & " " & Documentalltags("td")(i)innerTEXT  '取数据到变量，熟悉HTML的DOM可以修改这个实现各种内容

    Next i

  End With '块结束

  S = LTrim(S) '删除左边空格

  ApplicationSendKeys "^{F4}" '发送按键关闭当前浏览器标签

  MsgBox S '显示结果

  Set ie = Nothing '释放内存

End Sub

以上就是关于关于VBA提取网页数据到excel表格的代码全部的内容，包括:关于VBA提取网页数据到excel表格的代码、Excel VBA 如何提取网页特定数据进Excel、如何用vba抓取网页数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！