股票今日走势计算机,有没有可以在excel上自动显示股票实时数据的方法"/>
excel股票今日走势计算机,有没有可以在excel上自动显示股票实时数据的方法
赞同来自:
csb
vba,不过每次要点一下按钮。
我自己做的个小工具,免得每次统计市值要开几个账户。
Private Sub CommandButton1_Click()
Dim str As String
Dim cd As String
Dim ss, ss1 As String
Dim III, Start1 As Integer
Dim today As String
Inet1.Protocol = icHTTP
Cells(2, 1).Select
Start1 = 11
str = "="
For III = 5 To Start1
'同时获得对应的代码
str = str & Cells(III, 1).Text & ","
Next
responseText = Inet1.OpenURL(str, icString)
For III = 5 To Start1
'获取A基价格
ss = InStr(responseText, Cells(III, 1).Text) '寻找该股票的起始位置
ss = InStr(ss + 2, responseText, ",") '寻找第1个逗号的位置
ss = InStr(ss + 2, responseText, ",") '寻找第2个逗号的位置
ss = InStr(ss + 2, responseText, ",") '寻找第3个逗号的位置
ss1 = InStr(ss + 2, responseText, ",") '寻找第4个逗号的位置
If (Mid(responseText, ss + 1, ss1 - ss - 1) <> 0) Then
Cells(III, 4).Value = Mid(responseText, ss + 1, ss1 - ss - 1) '提取第3个数的值,即现价
End If
Next
Cells(2, 1).Select
End Sub
更多推荐
excel股票今日走势计算机,有没有可以在excel上自动显示股票实时数据的方法
发布评论