【通达信】Excel vba 如何提取通达信自定义板块股票代码 - 理想论坛 中国人气最旺的股票论坛

2023-04-25 18:35:23
返回列表 << 上一主题 下一主题 >>
微笑女神

粉丝： 20

理想大一级同学

还需要 3632 积分 才能升级

2楼 只看：微笑女神 发表于 2018-8-13 22:34
帮你顶起
发消息 加好友
积分
36368
理想币
6663 个
彩币
2 个
共享币
92 个
注册时间
2009-8-10

复制

吗日个边

粉丝： 190

理想博士级同学

还需要 6032 积分 才能升级

3楼 只看：吗日个边 发表于 2018-8-13 23:44
路过
发消息 加好友
积分
293968
理想币
184604 个
彩币
2 个
共享币
17757 个
注册时间
2008-1-16

复制

吴茨敏

粉丝： 1063

精华： 58个精华帖

理想大四级同学 ( 菠菜二段 )

还需要 18265 积分 才能升级

4楼 只看：吴茨敏 发表于 2018-8-14 07:06
谢谢分享
发消息 加好友
积分
61735
理想币
36642 个
彩币
1505 个
共享币
8040 个
注册时间
2013-3-3

复制

再不告诉你

粉丝： 7

理想高二级同学

还需要 394 积分 才能升级

5楼 只看：再不告诉你 发表于 2018-8-14 07:18
谢分享
发消息 加好友
积分
19606
理想币
11639 个
彩币
0 个
共享币
2778 个
注册时间
2017-4-13

复制

吉祥如1

粉丝： 12

理想高三级同学

还需要 7923 积分 才能升级

6楼 只看：吉祥如1 发表于 2018-8-14 07:31
帮你顶起
加关注
积分
22077
理想币
13983 个
彩币
2 个
共享币
774 个
注册时间
2017-5-5

复制

天天涨停777

粉丝： 1

理想初二级同学

还需要 1507 积分 才能升级

7楼 只看：天天涨停777 发表于 2018-8-14 07:50
帮你顶
发消息 加好友
积分
4493
理想币
843 个
彩币
1 个
共享币
870 个
注册时间
2008-1-8

复制

大唐杰哥

理想小四级同学

还需要 269 积分 才能升级

8楼 只看：大唐杰哥 发表于 2018-8-14 08:10
路过，学习一下
发消息 加好友
积分
431
理想币
33 个
彩币
0 个
共享币
520 个
注册时间
2018-4-16

复制

公式贪婪

粉丝： 12

理想初二级同学

还需要 1188 积分 才能升级

9楼 只看：公式贪婪 发表于 2018-8-14 08:36
Filename = "D:\Program Files\TDX730\t0002\blocknew\JRNG.blk"
j = 2
[A1:B1] = Split("近日牛股,近日牛股", ",")
Open Filename For Input As #1 ' 以只读的方式打开文件，参考open方法的帮助
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量
mArr = Split(TextLine, " ") '按空格分开这个字符，循环赋值给单元格

For i = 0 To UBound(mArr)
.Cells(j, i + 2) = mArr(i)
If mArr(i) > 1600000 Then
midmarr = Mid(mArr(i), 2)
Cells(j, 1) = "" & midmarr
Else
midmarr = Mid(mArr(i), 2)
Cells(j, 1) = "" & midmarr
End If
j = j + 1
Next i
Loop
Close #1
查看本帖全部评分记录
发消息 加好友
积分
4812
理想币
125 个
彩币
0 个
共享币
213 个
注册时间
2015-10-17

复制

想睡觉奥

粉丝： 14

理想高二级同学

还需要 199 积分 才能升级

10楼 只看：想睡觉奥 发表于 2018-8-14 08:41
谢谢老师分享！ 辛苦了！
发消息 加好友
积分
19801
理想币
9521 个
彩币
8 个
共享币
5133 个
注册时间
2012-8-20

复制

从头再越10

粉丝： 12

理想初三级同学

还需要 1603 积分 才能升级

11楼 只看：从头再越10 发表于 2018-8-14 08:46
引用:
原帖由 @公式贪婪 于 2018-8-14 08:36 发表
Filename = "D:\Program Files\TDX730\t0002\blocknew\JRNG.blk"
j = 2
[A1:B1] = Split("近日牛股,近日牛股", ",")
Open Filename For Input As #1 ' 以只读的方式打开文件，参考open方法的帮助
Do While N ...
谢谢分享！
发消息 加好友
积分
6397
理想币
1542 个
彩币
0 个
共享币
202 个
注册时间
2010-8-28

复制

袁氏集团

粉丝： 16

理想高一级同学

还需要 1971 积分 才能升级

12楼 只看：袁氏集团 发表于 2018-8-14 09:21
高手啊，感谢
发消息 加好友
积分
8029
理想币
3071 个
彩币
0 个
共享币
1046 个
注册时间
2006-4-4

复制

黑山侠客

粉丝： 32

理想大一级同学

还需要 3822 积分 才能升级

13楼 只看：黑山侠客 发表于 2018-8-14 09:31
非常不错。。。。。。。。。。。。。。。。。。。。。。
发消息 加好友
积分
36178
理想币
7365 个
彩币
0 个
共享币
0 个
注册时间
2010-11-5

复制

开心幸福蓝

粉丝： 78

理想大二级同学 ( 菠菜一段 )

还需要 4795 积分 才能升级

14楼 只看：开心幸福蓝 发表于 2018-8-14 09:46
谢谢分享!!!!!!!
发消息 加好友
积分
45205
理想币
24229 个
彩币
50 个
共享币
14506 个
注册时间
2013-9-12

复制

麦郎2

粉丝： 1

理想小二级同学

还需要 10 积分 才能升级

15楼 只看：麦郎2 【楼主】 发表于 2018-8-14 11:58

回复 9楼 @公式贪婪 的帖子

谢谢，我试试。 @公式贪婪
发消息 加好友
积分
90
理想币
6 个
彩币
0 个
共享币
6 个
注册时间
2016-8-21

复制

别董大

粉丝： 19

理想高二级同学

还需要 3941 积分 才能升级

16楼 只看：别董大 发表于 2018-8-14 12:01
谢谢9楼的分享，学习啦
发消息 加好友
积分
16059
理想币
5849 个
彩币
5 个
共享币
5079 个
注册时间
2016-10-24

复制

再不告诉你

粉丝： 7

理想高二级同学

还需要 394 积分 才能升级

17楼 只看：再不告诉你 发表于 2018-8-14 13:56
谢分享
发消息 加好友
积分
19606
理想币
11639 个
彩币
0 个
共享币
2778 个
注册时间
2017-4-13

复制

返回列表 << 上一主题 下一主题 >>
理想论坛 » 股票软件应用交流区 » Excel vba 如何提取通达信自定义板块股票代码
股票软件应用交流区： 积分规则

快速回复主题

选项

发帖请务遵守本站的相关规则，、，追究责任，特此申明！
具体规则请参见 《 理想论坛会员守则 》 《 净化论坛环境，打击恶意灌水 》。

您需要登录后才可以发帖

[完成后可按 Ctrl+Enter 发布]

理想论坛上的网友发表的帖子纯属个人意见，理想论坛不负任何责任！广告赞助商内容与本站无关！ 免责声明
理想论坛值班电话[9:30～18:30]： ☎ 400 016 5518-1 ☎ 010-5366 3090 ☎ 186 4906 9487 (广告) ☎ 187 1028 6081 (广告)
找回密码 软件区 广告
诚信档案编号：CX20150604010215010383 信誉编号：TL852015042710940
工业和信息化部信息备案： 京ICP备15035364号 京ICP证151057号
关闭
关闭
友情链接