VBA运用3_股票_Module2-白红宇

VBA运用3_股票_Module2

阅读量：5738 次

发布时间：2019-06-18

本文共 1601 字，大约阅读时间需要 5 分钟。

1 Public Sub get_inter_info_bak(start_cow, start_clo, code, name) 2  3     Dim flag_up As String 4      5     flag_up = "↑" 6  7          8     URL = "http://download.finance.yahoo.com/d/quotes.csv?s=" & code & "&f=sl1c1p2l" 9 10     With CreateObject("msxml2.xmlhttp")11 12         .Open "GET", URL, False13 14         .send15 16         sp = Split(.responsetext, ",")17 18         If UBound(sp) > 3 Then19 20             Cells(start_cow, start_clo).Value = name21             22             Cells(start_cow, start_clo + 1).Value = sp(1)23 24             If sp(2) < 0 Then flag_up = "↓"25             Cells(start_cow, start_clo + 2).Value = flag_up & sp(2)26             27             n = Len(sp(3))28             Cells(start_cow, start_clo + 3).Value = Mid(sp(3), 2, n - 2)29 30         End If31 32     End With33 34 35     If flag_up = "↑" Then36     37         Worksheets("指数一覧").Cells(start_cow, start_clo).Font.Color = vbRed38         Worksheets("指数一覧").Cells(start_cow, start_clo + 1).Font.Color = vbRed39         Worksheets("指数一覧").Cells(start_cow, start_clo + 2).Font.Color = vbRed40         Worksheets("指数一覧").Cells(start_cow, start_clo + 3).Font.Color = vbRed41 42     Else43     44         Worksheets("指数一覧").Cells(start_cow, start_clo).Font.Color = vbGreen45         Worksheets("指数一覧").Cells(start_cow, start_clo + 1).Font.Color = vbGreen46         Worksheets("指数一覧").Cells(start_cow, start_clo + 2).Font.Color = vbGreen47         Worksheets("指数一覧").Cells(start_cow, start_clo + 3).Font.Color = vbGreen48 49     End If50 51 End Sub

转载于:https://www.cnblogs.com/SilverBullet/p/5113690.html

你可能感兴趣的文章

mac安装kubernetes并运行echoserver

查看>>

多页架构的前后端分离方案（webpack+express）

查看>>