作者：绿色风
分类：
时间：2022-08-18
浏览：273
楼主
xmyjk |
如何下载散户大家庭沪深两市的股票的DDE数据。
数据链接：http://www.shdjt.com/sh.asp 与 http://www.shdjt.com/sz.asp
代码如下：- Option Explicit
- Sub a()
- Dim ie1 As Object, dmt As Object, r As Object, i As Long, url(1) As String, j As Long, p%
- Set ie1 = UserForm1.WebBrowser1
- url(0) = "http://www.shdjt.com/sh.asp"
- url(1) = "http://www.shdjt.com/sz.asp"
- For p = 1 To 2
- With ie1
- .Navigate url(p - 1)
- Do Until .ReadyState = 4 And .Busy = False
- DoEvents
- Loop
- Set dmt = .Document
- End With
- With Worksheets(p)
- .Select
- Application.ScreenUpdating = False
- .[a1].CurrentRegion.Clear
- Set r = dmt.All.tags("table")(11).Rows
- For i = 0 To r.Length - 1
- For j = 0 To r(i).Cells.Length - 1
- .Cells(i + 1, j + 1) = r(i).Cells(j).innerText
- Next
- Next
- Set dmt = Nothing
- Set r = Nothing
- .Range("n1").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
- .Rows("2:2").Delete Shift:=xlUp
- .Range("m1").Value = "ddx10(次)"
- .Range("n1").Value = "ddx10(连)"
- .Columns("d").NumberFormat = "@"
- .[a1].CurrentRegion.Columns.AutoFit
- End With
- Application.ScreenUpdating = True
- Next
- Set ie1 = Nothing
- MsgBox "下载完毕！"
- End Sub
 散户大家庭.zip
|
2楼
syub97 |
专用性挺强的，本来想修改一下看能否提取其他网站的，奈何水平太低。呵呵，支持了 |
3楼
bishunbiao |
向师傅学习，不光是网页，还有动画录制 |
4楼
亡者天下 |
这个用来录制动画没有意义吧
|
5楼
xmyjk |
领导说了，只要有实际应用意义的，都可以考虑微薄动画
无论VBA或者基操还是什么的。靠选题，呵呵 |
6楼
lafyc |
好东西,感谢楼主的贡献. |
7楼
辉歌_忧殇Bryant |
不错不错**！ |
8楼
迷途知返 |
报错啊
EXCEL2010 |
9楼
迷途知返 |
提示UserForm1变量未定义 |
10楼
r1jiang |
我正学习中,谢谢啦！ |
11楼
weikang2516 |
谢谢 |
12楼
xiyuanxing |
用不了呀，报错。office2007 |
13楼
icelan2008 |
好東西。謝謝了。 |
14楼
Sr觉失调 |
也出现这种问题了 |
15楼
qq190353995 |
可以指定那个股票么 |
16楼
wilsonboss |
Set ie1 = UserForm1.WebBrowser1
Userform1 未定义。请帮忙处理！ |
17楼
lzlxysx |
可以运行代码，但下载的只有标题，郁闷。 |
18楼
wge54 |
我也是这样。
请问为什么？ |
19楼
qoowater |
下载不了 |
20楼
being117 |
什么都下载不了啊，什么原因呢？下载来都是空白的 |
21楼
sl001sl |
楼主辛苦 |
22楼
zhangzzj |
谢谢分享
代码厉害！
卡在这里 如何是好 |
23楼
pkpkyb |
炒股有用 |
24楼
cncopperfield |
文件已损坏，无法打开 |
25楼
yinjc997 |
点运行之过程时出现该工程中的宏被禁止框。怎么回事。。求解答。 |
26楼
mmice |
出现 UserForm1 未定义报错
那个tags(“table”)=11这个是咋来的
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一