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 = "http://hq.sinajs.cn/list="

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