欧美视频日韩视频,国产欧美日韩va,日韩欧美综合在线

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

查看本帖全部評分記錄

2018-8-14 08:46 理想幣 +2 從頭再越10： 謝謝分享！

發消息加好友

加關注

積分: 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 如何提取通達信自定義板塊股票代碼

股票軟件應用交流區：積分規則

快速回復主題

選項

禁用 URL 識別

禁用 Smilies

禁用 Discuz!代碼

使用個人簽名

接收新回復郵件通知

標題

發帖請務遵守本站的相關規則，、，追究責任，特此申明！
具體規則請參見 《 理想論壇會員守則 》《 凈化論壇環境，打擊惡意灌水 》。

內容您需要登錄后才可以發帖立即登錄 QQ登錄新浪微博登錄免費注冊

[完成后可按 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號

關閉底部打開底部回頂部到頁底理想論壇微信號：lixiang55188 掃描下載理想選股App

關閉

【通達信】 Excel vba 如何提取通達信自定義板塊股票代碼 【聊天模式】 倒序瀏覽

Excel vba 如何提取通達信自定義板塊股票代碼

歡迎光臨理想論壇，由于您沒有登錄，所以無法查看到論壇的附件及隱藏分區，也無法與其他會員交流。

引用:

回復 9樓 @公式貪婪 的帖子

快速回復主題

選項

標題

^{【通達信】} Excel vba 如何提取通達信自定義板塊股票代碼 ^{【聊天模式】} ^倒序瀏覽

回復 9樓 @公式貪婪的帖子