帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-4-19 12:27 | 只看該作者

[發問] DDE記錄資料求助

超級贏家.rar (11.92 KB) 各位大大，當開盤後，excel沒有任何動作，進入巨集內按執行，跳出"此專案的巨集已被暫止"的框框，這是出現了什麼問題?
而且也沒辦法正常關閉excel

handsometrowa

中學生 Rank: 2

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

35^#

發表於 2013-6-5 11:31 | 只看該作者

你設定的那個DDE 是抓取動態資料的
所以你每次在開啟這個巨集的時候要注意的部分就是

1.你的DDE 報價資料來源要先啟動(一般都是券商的報價軟體)
2.你的巨集在2003 以上的版本上面都要手動開啟他才會做程式的動作
不管是外部資料還是你要做動態DDE 的開啟，他在EXCEL輸入公式的那行旁邊
他會告知你是否要啟動

TOP

saleen

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

34^#

發表於 2013-6-5 10:46 | 只看該作者

c_c_lai 大大感謝
我已經解決了 , 把程式中的 "Sheet2" 全都改成 Excel 左下方的 "工作表1" 就可以了 ^^
不過不知道為什麼我如果把左下角的"工作表1"改成 "Sheet2" 卻沒用 ~ 怪

而且又多了好多問題噢
看來要開另一篇文章了 >~<

小妹在此向各位大大求教了 Orz

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

33^#

發表於 2013-6-4 12:24 | 只看該作者

回復 c_c_lai

嗨 c_c_lai 大大您好
小妹最近也想學DDE拉入資料
需求剛好跟樓主一樣
可是我丟進去後 ...
saleen 發表於 2013-6-4 11:10

妳是完整複製 26# 上的程式碼嗎？
妳把執行畫面複製到小畫家 (Print Screen -> 小畫家 -> 貼上 ) 上傳。
謝謝！

TOP

saleen

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

32^#

發表於 2013-6-4 11:10 | 只看該作者

回復 26# c_c_lai

嗨 c_c_lai 大大您好
小妹最近也想學DDE拉入資料
需求剛好跟樓主一樣
可是我丟進去後卻顯示"變數未定義"
是在
Sub updateFollow()
Dim Rng As Range

On Error Resume Next
If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub

With Sheet2
這段
請問該怎麼修正 >"<

小妹在此向各位大大求教了 Orz

TOP

n8975067

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

31^#

發表於 2013-4-29 23:04 | 只看該作者

回復 28# c_c_lai
ok! 收到，明天來試試看~

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

30^#

發表於 2013-4-29 16:23 | 只看該作者

回復 c_c_lai
GBKEE 發表於 2013-4-29 16:01

好久沒聯絡了，近來順意吧！
Application.OnTime Now + 300 / 86400#, "ThisWorkbook.updateFollow"
是順應他原本的程式而未加以異動，我個人習慣用您指教的語法、
或是抓取某設定欄位作為動態處理，謝謝您！

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兔年全勤獎章

29^#

發表於 2013-4-29 16:01 | 只看該作者

回復 26# c_c_lai

Option Explicit
Sub updateFollow()
Dim Rng As Range
With Sheet2
'Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1).Resize(1, 10)
Set Rng = .Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(1, 10) '這樣可簡略些
Rng = Sheet1.[c2:L12].Value 'C:L 共10欄,且為連續可用如此語法
'Rng(1) = Sheet1.[c2]
'Rng(2) = Sheet1.[d2]
'Rng(3) = Sheet1.[e2]
'Rng(4) = Sheet1.[f2]
'Rng(5) = Sheet1.[g2]
'Rng(6) = Sheet1.[h2]
'Rng(7) = Sheet1.[i2]
'Rng(8) = Sheet1.[j2]
'Rng(9) = Sheet1.[k2]
'Rng(10) = Sheet1.[l2]
End With
'凌晨零點零分 #12:00:00 AM#
'凌晨零點零分30秒 #12:00:30 AM#
'凌晨零點1分 #12:01:00 AM#
'凌晨零點5分 #12:05:00 AM#
Application.OnTime Now + #12:00:30 AM#, "ThisWorkbook.updateFollow" ' 每30秒鐘呼叫一次
' Application.OnTime Now + #12:01:00 AM#, "ThisWorkbook.updateFollow" ' 每一分鐘呼叫一次
' Application.OnTime Now + #12:05:00 AM#, "ThisWorkbook.updateFollow" ' 每五分鐘呼叫一次
' Application.OnTime Now + 60 / 86400#, "ThisWorkbook.updateFollow" ' 每一分鐘呼叫一次
' Application.OnTime Now + 300 / 86400#, "ThisWorkbook.updateFollow" ' 每五分鐘呼叫一次
End Sub