网页数所不能提取出来

whmwhm · 发表于 2024-10-11 18:00

Sub WB() '天天基金网净值估算

Dim URL As String

URL ="http://fundgz.1234567.com.cn/js/159315.js?rt=1728572532753"

With CreateObject("Microsoft.XMLHTTP")

.Open "GET","URL", False

.send

temp = .RESPONSETEXT

Debug.Print temp

End With

End Sub

perfect131 · 发表于 2024-10-11 22:07

网站接口返回的是utf8编码的字符串需要转码

whmwhm · 发表于 2024-10-12 11:59

perfect131 发表于 2024-10-11 22:07
网站接口返回的是utf8编码的字符串需要转码

网站接口返回的是utf8编码的字符串需要转码
那如何转码，能否讲的具体一些，谢谢！！

whmwhm · 发表于 2024-10-12 13:56

谁能给写个代码

xjl565135022 · 发表于 2024-10-13 17:24

网址都不对吧

whmwhm · 发表于 2024-10-14 23:49

xjl565135022 发表于 2024-10-13 17:24
网址都不对吧

网址是对的，你复制下来粘到浏览器中就可以看到具体内容

whmwhm · 发表于 2024-10-15 07:16

http://fund.eastmoney.com/159315.html

whmwhm · 发表于 2024-12-15 17:09

谁会写出159315的具体估算值的VBA

perfect131 · 发表于 2024-12-15 19:34

whmwhm 发表于 2024-12-15 17:09
谁会写出159315的具体估算值的VBA

159315是股票code

		自动登录	找回密码
密码			免费注册

[求助] 网页数所不能提取出来