手機版
官方微信
掃描關注:理想財富微信公眾號
RSS

周末小福利

[互 助] 精華 1
設置
15159 60 豬豬離線 Lv.3 發表于 · 2020-3-27 15:29 舉報 只看樓主 復制 倒序瀏覽 |
跳轉到指定樓層
本帖最后由 豬豬離線 于 2020-3-27 15:43 編輯

換手率.rar (1.21 MB, 下載次數: 260)


以下為高手部分,小白勿看:

Sub daochu()
   
  On Error Resume Next
    Dim fso As Object
    Dim MyTxt As Object
    Dim MyFName As String
     
    Set fso = CreateObject("Scripting.FileSystemObject")
     
    With ActiveSheet
        
        Dim i%
         
        For i = 1 To 4000 '起始行,如果是第三行到第一百行,則改成 3 to 100
         
        MyFName = ThisWorkbook.Path & "\" & Cells(i, 1) & ".txt"
        '如果是第五列作為文件名,則改cells(i, 1) 為cells(i, 5)
        Set MyTxt = fso.CreateTextFile(Filename:=MyFName, OverWrite:=True)

        If Cells(i, 1) <> "" Then
            MyTxt.Write .Cells(i, 2)
       '如果第七列為文件內容則改cells(i, 2)為cells(i, 7) 注意cells前面有個小數點
        End If
         
        Next
         
        MyTxt.Close
    End With
    Set MyTxt = Nothing
    Set fso = Nothing
     
End Sub



查看全部打賞
  • 股道西風+30理想幣 +10共享幣 : 點贊,知識的價值在于分享,謝謝!
  • 瑩火‘’繭+20理想幣 : 周末愉快!
本主題由 任務系統 于 2020-3-28 00:13 加入精華

舉報

扔雞蛋(0) 回復

楚云龍
Lv.5
發表于 2020-3-27 15:31 復制 2樓 只看該作者
多謝分享,周末愉快!!!

舉報

扔雞蛋(0) 回復

院=長
Lv.6
發表于 2020-3-27 15:36 復制 3樓 只看該作者
多謝分享,周末愉快!!!

舉報

扔雞蛋(0) 回復

面朝春暖
Lv.2
發表于 2020-3-27 15:39 復制 4樓 只看該作者
感謝分享,樓主威武!

舉報

扔雞蛋(0) 回復

瑩火‘’繭
Lv.4
發表于 2020-3-27 15:42 復制 5樓 只看該作者
謝謝分享,周末愉快!

舉報

扔雞蛋(0) 回復

面朝春暖
Lv.2
發表于 2020-3-27 15:52 復制 6樓 只看該作者
高手部分,的確是看不懂

舉報

扔雞蛋(0) 回復

奮斗著
Lv.2
發表于 2020-3-27 15:52 復制 7樓 只看該作者
謝謝老師分享!但沒搞懂為什么叫換手率呢

舉報

扔雞蛋(0) 回復

神秘的大俠
Lv.6
發表于 2020-3-27 15:53 復制 8樓 只看該作者
謝謝老師分享!

舉報

扔雞蛋(0) 回復

太陽寶貝
Lv.4
發表于 2020-3-27 15:55 復制 9樓 只看該作者
謝謝分享,學習學習。

舉報

扔雞蛋(0) 回復

花百可
Lv.1
發表于 2020-3-27 16:11 復制 10樓 只看該作者
高手部分,的確是看不懂

舉報

扔雞蛋(0) 回復

老專家
Lv.3
發表于 2020-3-27 16:13 復制 11樓 只看該作者
謝謝分享,周末愉快!

舉報

扔雞蛋(0) 回復

博納
Lv.4
發表于 2020-3-27 16:15 復制 12樓 只看該作者
高手部分,小白勿看

舉報

扔雞蛋(0) 回復

城主理想2009
Lv.3
發表于 2020-3-27 16:17 復制 13樓 只看該作者
謝謝分享。

舉報

扔雞蛋(0) 回復

微塵天地
Lv.3
發表于 2020-3-27 16:21 復制 14樓 只看該作者
看一下,自己是不是高手

舉報

扔雞蛋(0) 回復

鐵血鋼紀
Lv.2
發表于 2020-3-27 16:31 復制 15樓 只看該作者
果然是高手段時的東東,小白不明白!

舉報

扔雞蛋(0) 回復

江雪誰釣
Lv.6
發表于 2020-3-27 16:32 復制 16樓 只看該作者
周末愉快!!

舉報

扔雞蛋(0) 回復

思由心度
Lv.2
發表于 2020-3-27 16:49 復制 17樓 只看該作者
你直寫Excel或者數據庫多好,搞這么多txt還不如自定義數據好管理,KT交易師和金字塔都有自帶公式直接調用ini的函數,也可以這么管理!

舉報

點亮(3) 扔雞蛋(0) 回復

四水流年
Lv.2
發表于 2020-3-27 16:51 復制 18樓 只看該作者
謝謝分享!

舉報

扔雞蛋(0) 回復

山水58
Lv.4
發表于 2020-3-27 16:55 復制 19樓 只看該作者
謝謝老師分享

舉報

扔雞蛋(0) 回復

曹向陽2009
Lv.5
發表于 2020-3-27 16:56 復制 20樓 只看該作者
謝謝老師分享

舉報

扔雞蛋(0) 回復

林小平2009
Lv.6
發表于 2020-3-27 17:10 復制 21樓 只看該作者
謝謝老師分享!

舉報

扔雞蛋(0) 回復

股中游
Lv.6
發表于 2020-3-27 17:17 復制 22樓 只看該作者
謝謝老師直接提供,這樣我就不用花時間找資料就可以直接學習了.

舉報

點亮(2) 扔雞蛋(0) 回復

hm518
Lv.5
發表于 2020-3-27 17:27 復制 23樓 只看該作者
Sub daochu()
   
  On Error Resume Next
    Dim fso As Object
    Dim MyTxt As Object
    Dim MyFName As String
     
    Set fso = CreateObject("Scripting.FileSystemObject")
     
    With ActiveSheet
        
        Dim i%
         
        For i = 1 To 4000 '起始行,如果是第三行到第一百行,則改成 3 to 100
         
        MyFName = ThisWorkbook.Path & "\" & Cells(i, 1) & ".txt"
        '如果是第五列作為文件名,則改cells(i, 1) 為cells(i, 5)
        Set MyTxt = fso.CreateTextFile(Filename:=MyFName, OverWrite:=True)

        If Cells(i, 1) <> "" Then
            MyTxt.Write .Cells(i, 2)
       '如果第七列為文件內容則改cells(i, 2)為cells(i, 7) 注意cells前面有個小數點
        End If
         
        Next
         
        MyTxt.Close
    End With
    Set MyTxt = Nothing
    Set fso = Nothing
     
End Sub


舉報

扔雞蛋(0) 回復

豬豬離線
Lv.3
發表于 2020-3-27 17:37 復制 24樓 只看該作者
本帖最后由 豬豬離線 于 2020-3-27 17:46 編輯
思由心度 發表于 2020-3-27 16:49
你直寫Excel或者數據庫多好,搞這么多txt還不如自定義數據好管理,KT交易師和金字塔都有自帶公式直接調用in ...


EXCEL 數據庫SQL都有的
通達信不能調用啊  ,有通達信可以調用SQL 或者EXCEL的方法嗎

這些TXT不需要管理,收盤數據庫生成TXT直接就到通達信目錄了

舉報

點亮(1) 扔雞蛋(0) 回復

思由心度
Lv.2
發表于 2020-3-27 17:44 復制 25樓 只看該作者
豬豬離線 發表于 2020-3-27 17:37
EXCEL 數據庫SQL都有的
通達信不能調用啊  ,有通達信可以調用SQL 或者EXCEL的方法嗎

誰知道,我不用通達信,但它不是有dll接口么,要是沒開放,還用它干嘛!

舉報

點亮(1) 扔雞蛋(0) 回復

亂了世界
Lv.2
發表于 2020-3-27 17:51 復制 26樓 只看該作者
雖然看不懂,但是支持一下

舉報

扔雞蛋(0) 回復

番茄薯片
Lv.4
發表于 2020-3-27 17:52 復制 27樓 只看該作者
謝謝分享,周末愉快!

舉報

扔雞蛋(0) 回復

豬豬離線
Lv.3
發表于 2020-3-27 17:53 復制 28樓 只看該作者
思由心度 發表于 2020-3-27 17:44
誰知道,我不用通達信,但它不是有dll接口么,要是沒開放,還用它干嘛!

dll調用的這個,實時數據

舉報

點亮(0) 扔雞蛋(0) 回復

王老五三
Lv.5
發表于 2020-3-27 18:30 復制 29樓 只看該作者
我學歷史的   這個東西看不懂

舉報

扔雞蛋(0) 回復

從哪里來您
Lv.3
發表于 2020-3-27 18:35 復制 30樓 只看該作者
謝謝分享,好好學習

舉報

扔雞蛋(0) 回復

汪志華
Lv.3
發表于 2020-3-27 19:26 復制 31樓 只看該作者
但沒搞懂為什么叫換手率呢

舉報

扔雞蛋(0) 回復

您需要登錄后才可以回帖

本版積分規則

論壇問題
微信掃一掃,添加好友咨詢
驛站問題
微信掃一掃,添加好友咨詢
廣告投放
微信掃一掃,添加好友咨詢
回頂部 到頁底
快速回復 返回頂部 返回列表