如何將台指期的每一分鐘資料都紀錄在sheet 1裡..請教版上高手前輩~~

bobo177

中學生 Rank: 2

帖子: 22
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2012-11-19
最後登錄: 2021-6-23

2014馬年全勤獎章 2013蛇年全勤獎章

41^# 跳轉到 »

發表於 2012-12-14 22:39 | 只看該作者

回復 cfuxiong
還有如果券商的軟體掛了重新開啟， EXCEL 亦要一併先予關閉後再開 (重新連結DDE)。
c_c_lai 發表於 2012-10-3 20:28

有時會發生一種情形, 就是DDE都有顯示連結成功. 但是真的到盤中時, 卻沒跳動. 解決方式確實是重開券商軟體, 連同EXCEL一起更好.
只是很奇怪的是, 為什麼會有這種情形呢?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

42^#

發表於 2012-12-15 07:24 | 只看該作者

回復 40# cfuxiong
38# : 只改到欄數,沒改到位址!!! ,已更正可再參考一下!

' .Cells(Pos, 2).Resize(, 8) = .[b10:g10].Value 'b10:g10 只有6欄 ***這行不要了****
' .Cells(Pos, 2).Resize(, 6) = .[b10:g10].Value '只要修改到欄數為 6 , 沒改到位址
.Cells(Pos, 2).Resize(, 6) = .[b2:g2].Value ' *** 這才完全正確 ***

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

43^#

發表於 2012-12-15 08:17 | 只看該作者

本帖最後由 c_c_lai 於 2012-12-15 08:20 編輯

有時會發生一種情形, 就是DDE都有顯示連結成功. 但是真的到盤中時, 卻沒跳動. 解決方式確實是重開 ...
bobo177 發表於 2012-12-14 22:39

還是老話一句：
1.  如果券商的軟體掛了重新開啟， EXCEL 亦要一併先予關閉後再開 (重新連結DDE)。
   程序是：1. 券商的軟體、以及已開啟的 EXCEL 兩者均要先行關閉；
                  2. 先開啟券商軟體、之後再開啟  EXCEL。
2.  如果券商的軟體開啟正常， EXCEL 都有顯示DDE連結成功，而正常開啟後，
   如果有去瀏覽程式碼不小心異動了程式、或者是之後又另外開啟另一支有 VBA
執行的 EXCEL (此過程先前已開啟的 EXCEL  依然還在執行中)，極有可能它會影響
到之前已開啟的 EXCEL 而造成不意中斷。此時先前已開啟的 EXCEL 亦要一併先予
關閉後再重開 (重新連結DDE)，當然之後第二支另外開啟的 EXCEL 要先關閉。
3. 如都不是，那就要評估你的 EXCEL 程式碼了。

TOP

cfuxiong