vba - A“id”中的数据未打印
问题描述
我正在尝试这个
Sub JJ()
Dim IE As New SHDocVw.InternetExplorer
Dim hdoc As MSHTML.HTMLDocument
Dim ha As String
IE.Visible = True
IE.navigate "https://www.nseindia.com/get-quotes/equity?symbol=DIVISLAB"
Do While IE.readyState <> READYSTATE_COMPLETE
Loop
Set hdoc = IE.document
ha = hdoc.getElementById("preOpenFp").innerText
Debug.Print ha
End Sub
解决方案
如果您想从 Pre-Open Markt 读取数据,您必须按如下方式更改 url https://www.nseindia.com/get-quotes/equity?symbol=DIVISLAB#info-preopenmkt
。试试这个代码。
Sub JJ()
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
'Dim IE As New SHDocVw.InternetExplorer
Dim hdoc As MSHTML.HTMLDocument
Dim ha As String
IE.Visible = True
IE.navigate "https://www.nseindia.com/get-quotes/equity?symbol=DIVISLAB#info-preopenmkt"
Do While IE.Busy: DoEvents: Loop
Do While IE.Busy And Not IE.readyState = READYSTATE_COMPLETE: DoEvents: Loop
'Application.Wait (Now + TimeValue("0:00:15"))
Set hdoc = IE.document
ha = hdoc.getElementById("preOpenIep").innerText
Debug.Print (ha)
End Sub
推荐阅读
- c# - 如何从 Github 下载目录
- nginx - 使用 nodeport 访问 Kubernetes 服务返回连接被拒绝
- scala - 生成创建类的应用方法
- linux - 带有 Realm 数据库的 Linux 应用程序
- arrays - 将数组传递给bash脚本中的函数
- prometheus - 使用 Python 在 Prometheus 中编写多个自定义收集器
- objective-c - @property(复制)与方法 [复制]
- python - 获取无效参数:在 keras 中使用 IoU 度量时,所有输入的形状必须匹配:values[0].shape = [401408] != values[1].shape = [24485888]
- android - 当来自原生 android 方法通道的回调时,在 dart 中运行方法或函数
- go - 为什么我不能从 grpc 得到非零响应和错误