一、获取股票查询的链接地址:
1. 能够提供股票行情查询的网站有很多,我们这里以“搜狐股票查询页面”为例进行介绍。在IE地址栏中输入“”即可打开“多股行情—搜狐股票”页面。
2. 在“股票行情查询”文本框中输入欲查询的股票代号并以逗号隔开。例如要查找中国石化、华能国际、宝钢股份以及中国联通这四支股票,那么分别输入“600028,600011,600019,600050”,最后单击“查”按钮即可在打开的页面中看到查询的结果。
3. 我们将搜索结果的页面地址复制到剪贴板中以备后面使用。
二、新建Web查询
1. 运行Excel,合并第1行和第2行,然后在其中输入“我的股票查询”,接着设置合适的字体、大小、颜色以及位置。
2. 选中A3单元格,然后依次选择“数据→导入外部数据→新建Web查询”菜单命令。
3. 在“新建Web查询”界面的“地址”栏中输入我们前面获得的查询链接地址。
4. 单击“转到”按钮,这时我们会看到刚才的股票搜索结果页面出现在该界面中,不同的是在窗口左侧出现了许多含有黑色箭头的黄色小方框,当将鼠标指向其中的一个方框并单击时,方框颜色将变为绿色并且箭头将变成“√”,我们这里只需选中并单击含有股票数据的方框即可(如图1)。
图1 “新建Web查询”界面
5. 单击“导入”按钮,此时会出现“导入数据”界面(如图2),在此将获得的Web数据放置到“现有工作表”或者“新建工作表”中,在此我们选中现有的工作表。
图2 “导入数据”界面缑
6. 当单击“确定”后将会出现正在导入数据的提示,不一会便可在Excel中看到几种股票的查询结果。为了让Excel中的数据能及时的获得更新,因此我们需要选中导入的Web数据并单击鼠标右键,然后选择“数据区域属性”命令。
7. 在打开的“外部数据区域属性”界面中勾选“刷新频率”复选框,然后将刷新频率设置为“30分钟”。为了能在打开工作表时就看到最新的Web数据,我们需要勾选“打开工作簿时,自动刷新”复选框,最后单击“确定”按钮即可(如图3)。
图3 “外部数据区域属性”界面
提示:如果要立即刷新数据,那么只要在右键菜单中选择“刷新数据”命令即可。
三、用图表分析表格数据
1. 在表格中选中“股票名称”、“涨跌额”和“涨跌幅”下的数据,然后单击工具栏上的“图表向导”按钮,此时将打开“图表向导”对话框(如图4)。
图4 “图表向导”对话框
2. 在“标准类型”选项卡的“图表类型”列表中选择股票经常使用的“折线图”,然后在“子图表类型”列表中选择“数据点折线图”。
3. 单击“下一步”按钮,在接着出现的对话框中选择“系列”选项卡,然后选中“系列”栏下的“系列1”,我们看到其值为G4:G7中的数据,此数据为“涨跌额”中的数据,因此我们在将“名称”设置为“涨跌额”,然后选中“系列2”,接着将其名称改为“涨跌幅”。
4. 单击“下一步”按钮,我们在“图表标题”下输入图表分析的标题,例如“股票分析”、“分类(X)轴”及“分类(Y)轴”分别输入“股票名称”以及“涨跌额/幅”(如图5)。
图5 图表选项设置对话框
编辑提示:如果要添加网格线,那么选择“网格线”选项卡,然后勾选所要添加的网络线即可。
5. 单击“下一步”按钮,我们选中“作为其中的对象插入”项,最后单击“完成”按钮即可看到所 *** 的股票分析图表(如图6)。
图6 股票分析图表对话框
编辑提示:只要表格中的数据变化,图表也跟着变化,因此不用担心因表格中的数据被更新而所 *** 的图表不跟着变化!
1、首先,新建一个工作表,选中任意一个空单元格。选择【数据】-【自网站】。
2.在【新建Web查询】界面可以看到最左上角是地址栏。点击界面右上角的【选项】可以查看导入信息的设置,可以根据实际情况进行选择。本例按照默认设置。
3.在【新建Web查询】界面的地址栏输入包含想要股票信息的网站,然后点击【转到】按钮跳转到指定网站。
4.浏览整个页面,可以看到很多标有黄色箭头的区域,这些是可以导入的数据标识。选择自己想要的信息框左上角的黄色箭头。
5.点击后,黄色箭头就会变成绿色箭头,如下图。然后点击右下角的【导入】按钮。
6.在【导入数据】的对话框选择数据要存储的位置。
7.在这个界面,点击左下角的【属性】可以设置刷新频率、数据变更时如何处置等。本例设置自动刷新频率为10分钟。
8.设置完上述内容后,返回【导入数据】界面并点击【确定】按钮。
9.下面数据将会自动导入,稍等片刻数据即导入完成。每隔10分钟该数据就会自动刷新。
*** 实时股票行情图,应包含如下内容:1.股票数据表,2.股价图,3.实时从网上下载数据的功能
第一步: *** 数据表,数据-导入外部数-新建WEB查询 写入该数据来源地址
第二步: *** 股价图,先用公式按股价图要求的顺序引用到当前表,再插入图表-选股价图(第4种)调整图表
第三步:编写程序以实现实时刷新功能,可将以下程序按其要求的位置复制过去
'在模块中编写如下程序段用于刷新行情表,"00:00:10"表示刷新时间间隔,可根据需要进行调整
Dim 结束标记
Sub 刷新行情()
Sheets("日线数据").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
Sheets("分笔数据").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
If 结束标记
1 Then Application.OnTime Now +
TimeValue("00:00:10"), "刷新行情"
End Sub
Sub 开始刷新()
结束标记 = 0
刷新行情
End Sub
Sub 结束刷新()
结束标记 = 1
End Sub
'在thisworkbook中编写如下代码用于打开该表时就启动行情刷新
Private Sub Workbook_Open()
刷新行情
End Sub
以上 *** 完成,保存后打开该表,可得到实用的股票行情图,并可得到实时数据用于数据分析
富时A50指数的成份股有哪些?1、a50成分股主要有:中...
今天阿莫来给大家分享一些关于华为真正入股的a股上市公司和华为深度合作...
长沙邮箱是多少?1、湖南交通职业技术学院联系电话073...
最新豆油期货行情1、截至11月26日,大商所豆油主力合约...
这是当然的受国际金价波动影响着最高的时候达到1920美元/盎司一:...