1234
返回列表 上一主題 發帖

[發問] DDE記錄資料求助

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
26# 跳轉到 »
發表於 2013-4-26 06:14 | 只看該作者
回復 25# n8975067
  1. Option Explicit
  2. Dim timerEnabled As Boolean    ' 判定開啟本工作表單的時段是否為開盤前啟動。

  4. Private Sub Workbook_Open()
  5.     timerEnabled = False
  6.      
  7.     Call timerStart            ' 程式一啟始，便去自動執行 timerStart
  8. End Sub

  10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  11.     On Error Resume Next
  12.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.RTimer", , False
  13.    
  14.     Me.Save
  15. End Sub

  17. Sub timerStart()   
  18.     If timerEnabled Then
  19.         ' 第二次(含)以後均以設定之 "間隔時段" 來處理執行序的作業。
  20.         Application.OnTime (Now + TimeValue("00:05:00")), "ThisWorkbook.updateFollow"    '  每隔五分鐘執行一次
  21.     Else
  22.         timerEnabled = True
  23.         
  24.         ' 將第一次啟動時間更改為設定 "開盤時間"前，如果開啟 Excel 時，已經過了設定 "開盤時間"，則一進入系統即直接去執行紀錄作業。
  25.         If (TimeValue(Now) <= TimeValue("08:45:00")) Then
  26.             Application.OnTime (TimeValue("08:45:00")), "ThisWorkbook.updateFollow"
  27.         Else
  28.             ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，
  29.             ' 這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
  30.             Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.updateFollow"
  31.         End If
  32.     End If
  33. End Sub

  35. Sub updateFollow()
  36.     Dim Rng As Range
  37.    
  38.     On Error Resume Next
  39.     If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub

  41.     With Sheet2
  42.         '  Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
  43.         '
  44.         '  Rng = Sheet1.[c2]
  45.         '  Rng.Offset(, 1) = Sheet1.[d2]
  46.         '  Rng.Offset(, 2) = Sheet1.[e2]
  47.         '  Rng.Offset(, 3) = Sheet1.[f2]
  48.         '  Rng.Offset(, 4) = Sheet1.[g2]
  49.         '  Rng.Offset(, 5) = Sheet1.[h2]
  50.         '  Rng.Offset(, 6) = Sheet1.[i2]
  51.         '  Rng.Offset(, 7) = Sheet1.[j2]
  52.         '  Rng.Offset(, 8) = Sheet1.[k2]
  53.         '  Rng.Offset(, 9) = Sheet1.[l2]
  54.         '  上面之敘述表達與下列的敘述結果是一樣的，差異只在於使用語法之巧妙不同。
  55.         Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1).Resize(1, 10)
  56.         
  57.         Rng(1) = Sheet1.[c2]
  58.         Rng(2) = Sheet1.[d2]
  59.         Rng(3) = Sheet1.[e2]
  60.         Rng(4) = Sheet1.[f2]
  61.         Rng(5) = Sheet1.[g2]
  62.         Rng(6) = Sheet1.[h2]
  63.         Rng(7) = Sheet1.[i2]
  64.         Rng(8) = Sheet1.[j2]
  65.         Rng(9) = Sheet1.[k2]
  66.         Rng(10) = Sheet1.[l2]
  67.     End With
  68.    
  69.     If timerEnabled Then Call timerStart
  70. End Sub
複製代碼
我把你的 updateFollow() 與你的需求，全部整合在一起，
請將它全部覆蓋於 ThisWorkbook 程式碼編輯區塊內。
每日 08:45:00 以前開啟它 ， 08:45:00時間一到，系統便會自動啟動執行，
13:45:00一超過時間，程式便會自動停止不再執行。
按鈕你可以保留，如果系統於突發狀況下停止運作，
你可以點選按鈕恢復系統運作。

TOP

n8975067

帖子
17 
主題
1 
精華
0 
積分
19 
點名
0  
作業系統
VISTA 
軟體版本
OFFICE2003 
閱讀權限
10 
註冊時間
2013-4-12 
最後登錄
2013-4-30 
25#
發表於 2013-4-25 20:29 | 只看該作者
回復 24# c_c_lai
c_c_大，我有找到一篇範例
http://forum.twbts.com/viewthrea ... a=pageD9&page=3
那我是否能將開盤收盤那行移植過來就可以使用?

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
24#
發表於 2013-4-25 15:40 | 只看該作者
回復 22# n8975067
如果你想要系統自動控管開盤、與關盤，
那麼你便要參考其他範例了！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
23#
發表於 2013-4-25 15:17 | 只看該作者
回復  c_c_lai
報告c_c_大，今天試用，已經可以記錄了，但是否是要按按鈕才會啟動?
另外我想要在早上084 ...
n8975067 發表於 2013-4-25 14:47

因為我要測試你所說的問題癥結，為節省測試時間，
所以我以每隔一分鐘一次，來觀察執行結果之故。
按鈕之用意，是在於當你要開始執行時方便你啟用，
而不須再到程式區啟動程式。
如此說明可以嗎？

TOP

n8975067

帖子
17 
主題
1 
精華
0 
積分
19 
點名
0  
作業系統
VISTA 
軟體版本
OFFICE2003 
閱讀權限
10 
註冊時間
2013-4-12 
最後登錄
2013-4-30 
22#
發表於 2013-4-25 14:47 | 只看該作者
回復 21# c_c_lai
報告c_c_大，今天試用，已經可以記錄了，但是否是要按按鈕才會啟動?
另外我想要在早上0845時，每隔整數5分鐘開始記錄(例如0850 0900)，我有看到您的另一篇文章，上面有提到方法，是照那上面的語法嗎?



PS:大大，有個地方我不太了解，為何會有五分鐘跟一分鐘的呼叫呢?

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
21#
發表於 2013-4-24 04:31 | 只看該作者
本帖最後由 c_c_lai 於 2013-4-24 04:36 編輯

回復 20# n8975067
  1. Sub updateFollow()
  2.     Dim Rng As Range
  3.    
  4.     With Sheet2
  5.         '  Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
  6.         '
  7.         '  Rng = Sheet1.[c2]
  8.         '  Rng.Offset(, 1) = Sheet1.[d2]
  9.         '  Rng.Offset(, 2) = Sheet1.[e2]
  10.         '  Rng.Offset(, 3) = Sheet1.[f2]
  11.         '  Rng.Offset(, 4) = Sheet1.[g2]
  12.         '  Rng.Offset(, 5) = Sheet1.[h2]
  13.         '  Rng.Offset(, 6) = Sheet1.[i2]
  14.         '  Rng.Offset(, 7) = Sheet1.[j2]
  15.         '  Rng.Offset(, 8) = Sheet1.[k2]
  16.         '  Rng.Offset(, 9) = Sheet1.[l2]
  17.         '  上面之敘述表達與下列的敘述結果是一樣的，差異只在於使用語法之巧妙不同。
  18.         Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1).Resize(1, 10)
  19.         
  20.         Rng(1) = Sheet1.[c2]
  21.         Rng(2) = Sheet1.[d2]
  22.         Rng(3) = Sheet1.[e2]
  23.         Rng(4) = Sheet1.[f2]
  24.         Rng(5) = Sheet1.[g2]
  25.         Rng(6) = Sheet1.[h2]
  26.         Rng(7) = Sheet1.[i2]
  27.         Rng(8) = Sheet1.[j2]
  28.         Rng(9) = Sheet1.[k2]
  29.         Rng(10) = Sheet1.[l2]
  30.     End With
  31.    
  32.     '  Application.OnTime Now + 60 / 86400#, "ThisWorkbook.updateFollow"    '  每一分鐘呼叫 一次
  33.     Application.OnTime Now + 300 / 86400#, "ThisWorkbook.updateFollow"      '  每五分鐘呼叫 一次
  34. End Sub
複製代碼
已傳給你了！
在 Sheet1 加上了啟動按鈕，方便你執行查核。

TOP

n8975067

帖子
17 
主題
1 
精華
0 
積分
19 
點名
0  
作業系統
VISTA 
軟體版本
OFFICE2003 
閱讀權限
10 
註冊時間
2013-4-12 
最後登錄
2013-4-30 
20#
發表於 2013-4-23 19:43 | 只看該作者
回復 19# c_c_lai
[email protected]

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
19#
發表於 2013-4-23 13:46 | 只看該作者
回復  c_c_lai
c_c_大

我是放置於ThisWorkbook 沒錯
n8975067 發表於 2013-4-23 08:36

你 E-Mail 給我，我把檔案傳給你。

TOP

n8975067

帖子
17 
主題
1 
精華
0 
積分
19 
點名
0  
作業系統
VISTA 
軟體版本
OFFICE2003 
閱讀權限
10 
註冊時間
2013-4-12 
最後登錄
2013-4-30 
18#
發表於 2013-4-23 08:36 | 只看該作者
回復 17# c_c_lai
c_c_大

我是放置於ThisWorkbook 沒錯

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
17#
發表於 2013-4-23 07:19 | 只看該作者
回復  c_c_lai
"ThisWorkbook.updateFollow"
這一句
n8975067 發表於 2013-4-22 21:40

整段程式碼應放置於 ThisWorkbook 內，如果放置於模組內，
你便要去修正 ThisWorkbook.updateFollow 為 Modulex.updateFollow。

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
1234
返回列表 上一主題