问:
在股票中的月K值变化后,如在EXCEL表格中自动更新?
答:
在Excel中自动更新股票的月K值变化,可以采取以下方法:
1. 在Excel中输入股票代码,以及需要更新的月K值的数据范围,比如A1:D12。
2. 在开发工具(Visual Basic)中编写宏,定期自动更新该数据范围内的月K值。宏代码如下:
Sub Update_MonthK()
Dim ws As Worksheet
Set ws = Sheets("Sheet1") '工作表名称
Dim stockCode As String
stockCode = ws.Range("A1").Value '股票代码单元格
Dim startRow As Integer
startRow = 2 '月K值数据开始行
Dim endRow As Integer
endRow = 12 '月K值数据结束行
Dim i As Integer
For i = startRow To endRow
'获取网页数据
Dim html As String
html = GetHtml("http://fund.eastmoney.com/f10/FundGJZ_001810.html")
'解析月K值
Dim monthK As String
monthK = ParseMonthK(html, i - 1)
'更新单元格数据
ws.Range("D" & i).Value = monthK
Next i
End Sub
3. 通过Windows任务计划程序,设置该宏的定期运行时间,比如每天15点30分运行一次。
4. 该宏通过爬取东方财富网站的月K线数据 webpage,解析出当前股票相应月份的月K值,然后更新Excel中对应的数据单元格。
5. 通过定期自动运行,实现股票月K值数据在Excel表格中的自动更新。
以上就是利用Excel VBA宏和网页爬取实现股票月K值自动更新的基本思路和方法。请 let我知道如果您有任何其他问题。