建议恢复每月荐股大赛，提升论坛人气

你达哥 · 发表于 2023-5-21 05:23

支持支持

qjc3438 · 发表于 2023-5-21 09:47

强烈支持

纪69 · 发表于 2023-5-21 09:49

excel宏代码如下：

Sub getSharePrice()
For r = 2 To 100
code_index = 4
out_index = 6
share_code = Cells(r, code_index)
If share_code <> "" Then
      share_code_i = Cells(r, code_index).Value

      If Val(share_code_i) < 600000 Then
         url = "http://qt.gtimg.cn/q=sz" & share_code_i
      Else
         url = "http://qt.gtimg.cn/q=sh" & share_code_i
      End If

      With CreateObject("msxml2.xmlhttp")
         .Open "GET", url, False
         .send
         sp = Split(.responsetext, "~")
         If UBound(sp) > 3 Then
            Cells(r, out_index).Value = sp(3)
            Else
            Cells(r, out_index).Value = "证券代码错误"
         End If

      End With

End If
Next

End Sub

盘股开天2015 · 发表于 2023-5-21 22:15

严重同意！

zhangjy21 · 发表于 2023-5-22 06:32

支持一下

富邦 · 发表于 2023-5-22 06:55

胜蓝股份技术突破了

江北小运河 · 发表于 2023-5-22 08:08

强烈推荐

又来注册 · 发表于 2023-5-22 08:09

你的建议狠好

转个好运 · 发表于 2023-5-22 08:45

强烈支持，我也好久没上来了。

daiyg8211 · 发表于 2023-5-23 07:36

支持支持

又来注册 · 发表于 2023-5-23 08:46

提升论坛人气。

小散日记 · 发表于 2023-5-23 10:37

严重支持，顶！

宽容 · 发表于 2023-5-23 10:44

纪69 发表于 2023-5-14 10:04
我负责提供奖金

大款，土豪。

奥巴匹马 · 发表于 2023-5-23 11:12

这个好！！

又来注册 · 发表于 2023-5-24 09:47

支持支持，中线更好!

天才熊猫 · 发表于 2023-5-25 10:28

主要大家用的券商都不一样，不然我这后台拉数据还是非常方便的，不过有代码也算可以了，总比人工挨个记要省时省力

ningmin · 发表于 2023-5-29 15:35

支持，支持。

纳兰红日 · 发表于 2023-5-29 18:18

支持一下

你达哥 · 发表于 2023-5-29 21:56

现在有啦！

路人甲甲 · 发表于 2023-5-30 08:42

纪69 发表于 2023-5-21 09:49
excel宏代码如下：

Sub getSharePrice()

我代码拆入excel不怎么会弄

纪69 · 发表于 2023-5-30 09:44

路人甲甲发表于 2023-5-30 08:42
我代码拆入excel不怎么会弄

还有一个办法，在券商行情软件中，设置一个专门的比赛自选组，按次序录入，然后每天收盘后，倒出数据，用EXCEL打开，把最新价那列粘贴到EXCEL比赛中

凡鸢 · 发表于 2023-5-30 11:53

支持一下

笑凡凡 · 发表于 2023-5-30 13:59

这个才公平，有些人动辄就发盈利贴，恨不得最热的热门票都可以抓到，提前一个月发，最后看结果，这样公平公正些。

笑凡凡 · 发表于 2023-5-30 14:00

这样也可以活跃一下海风的气氛。否则，就剩下软件啦

winskygl · 发表于 2023-5-30 18:20

6 月终于开始了

建议恢复每月荐股大赛，提升论坛人气

评分

Medal No.1