很多股民在交易时，为了方便对自己的交易行为进行分析和统计，会时常用到股票的“当前价格”，今天给大家提供一个用EXCEL获取股票实时价格的模板。
经过制作后，图表是这样的（如图1）
如果要新加入你自己的股票，启用内容即可（如图2）
为了使用起来方便，我自己加了一个刷新键，填好代码后，直接刷新即可（如图3）
本表使用起来方便，只需要输入红色框内的代码即可，注意好格式就可以了。
下方是代码：
Sub GetData()
Dim succeeded As Integer
Dim url As String
Dim row As Integer
Dim code As String
Dim dateStr As String
Dim cash As String
Dim current As String
Dim firstCode As String
Dim secondCode As String
current = Date
Dim currentRow As Integer
currentRow = 0
Dim zhangDie As Double
Dim isSet As Boolean
For row = 2 To Range("A1").CurrentRegion.Rows.Count
code = Cells(row, 1).Value
succeeded = 0
If code <> "" Then
firstCode = LCase(Mid(code, 1, 1))
secondCode = LCase(Mid(code, 2, 1))
If firstCode = "s" And secondCode = "h" Then
url = "http://qt.gtimg.cn/q=" & Cells(row, 1).Value
succeeded = FillOneRow(url, row)
ElseIf firstCode = "s" And secondCode = "z" Then
url = "http://qt.gtimg.cn/q=" & Cells(row, 1).Value
succeeded = FillOneRow(url, row)
Else
If firstCode <> "0" Then
url = "http://qt.gtimg.cn/q=sh" & Cells(row, 1).Value
succeeded = FillOneRow(url, row)
End If
If succeeded = 0 Then
url = "http://qt.gtimg.cn/q=sz" & Cells(row, 1).Value
succeeded = FillOneRow(url, row)
End If
End If
If succeeded = 0 Then
MsgBox ("获取失败")
End If
End If
Next
End Sub
然后在Thisworkbook下输入以下代码：
Private Sub Workbook_Open()
Call Sheet1.GetData
End Sub
如图4：
最后祝大家投资顺利！
