给大家一个福利：带上耳机就可以在办公室偷...

给大家一个福利：带上耳机就可以在办公室偷偷听股票价格，还不会被发现也不会影响工作：

1、打开一个Excel文件，最好是你正在做的Excel文件，把这段代码复制到Excel后台vba编辑器中（快捷键Alt+F11可以调出）；

2、修改你要看的股票代码，目前这段代码只支持一只股票，如果会for循环其实可以添加n个你关注的股票，稍微修改下代码即可；

3、修改播报间隔时间，目前是300秒即5分钟播报一次价格，根据需要你可以自己修改这个值。

4、戴上耳机，点击运行，打开声音，注意一定要戴耳机哈，不然全办公室都听见了。

搞定，就这么简单，因为是在后台运行也不影响本身excel的操作，你该干什么还继续干什么，所以老板是没办法发现的！知识点：Excel是可以说话的，代码运行间隔期并不影响你的excel操作。

——————
Sub StockPriceVoice()
Dim i As Integer, StockCode As String, StoPrice As String, n1 As Integer, n2 As Integer, string_body As String, arr As Variant, str As String, TM As Date
StockCode = '600519' '股票代码可以自己修改
For i = 1 To 100
With CreateObject('WinHttp.WinHttpRequest.5.1')
.Option(6) = False
.Open 'GET', '网页链接' & StockCode & '&n=mainQuote&c=l&_=202955', False
.send
StoPrice = .responsetext
End With
n1 = InStr(1, StoPrice, '[')
n2 = InStr(1, StoPrice, ']')
string_body = Mid(StoPrice, n1 + 4, n2 - n1 - 4)
arr = Split(string_body, ',')
str = arr(2) & '最新价' & arr(11) & '最高价' & arr(9) & '最低价' & arr(10) & '换手率' & arr(24) & '%'
Application.Speech.Speak str
TM = Timer
While Timer < TM + 300 '每300秒即5分钟循环刷新并播报一次数据
DoEvents
Wend
Next i
End Sub