|
操作步骤:
1.录制雅虎财经首页: http://cn.finance.yahoo.com/ ,在上面的股票查询里面输入股票代码: 601988,点击确定,会新弹出一个查询的结果页。
2.然后在弹出的第2个窗口中设置股票简称为检查点
3.参数化股票代码: 601988,导入Excel表格.
脚本代码如下:
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\Administrator","open"
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://cn.finance.yahoo.com/"
Browser("Browser").Page("雅虎财经频道_雅虎网").WebEdit("ss").Set DataTable("证券代码", dtGlobalSheet)
Browser("Browser").Page("雅虎财经频道_雅虎网").WebButton("确定").Object.focus
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{ENTER}"
Browser("Browser").Page("Page").Sync
Browser("Browser").Close
Browser("600518.SS: G康美的概要_雅虎财经").Page("600518.SS: G康美的概要_雅虎财经").Sync
Browser("600518.SS: G康美的概要_雅虎财经").Page("600518.SS: G康美的概要_雅虎财经").Check CheckPoint("G康美_2")
Browser("雅虎财经频道_雅虎网").Page("雅虎财经频道_雅虎网").Sync
Browser("Browser").Page("Page").Sync
Browser("Browser").Close
但最后的运行结果中, 检查点取到的总是空值.见图 |
|