帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 10
註冊時間: 2012-5-16
最後登錄: 2012-5-21

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-5-17 00:48 | 只看該作者

[發問] 關於盤中DDE紀錄

本帖最後由 irene83 於 2012-5-17 10:46 編輯

雖然看到站內很多相關帖子，但我仍無法自己設定完成
想請教站內的高手們，
目前我使用excel接收看盤軟體dde的資訊，並做成即時動態表格在("DATA"A2:V2)，
想透過VBA讓他每間隔5分鐘紀錄下來到("Sheet1"A2:V66)貼上值，時間從8:30~13:45，

謝謝大大們的幫忙~有勞了!!!

附上檔案，已參考大大建議的程式碼做修改，但仍無法執行
有請教C大，謝謝!

20120517.rar (13.72 KB)

roger1124

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 2
點名: 0
作業系統: windows8.1
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-5-4
最後登錄: 2014-5-4

16^#

發表於 2014-5-4 19:55 | 只看該作者

請教此盤中DDE紀錄…可否適用康和e閃電的下單軟體嗎?

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

15^#

發表於 2012-6-12 17:34 | 只看該作者

我也有阿應是論壇的資料庫發生了問題

TOP

devidlin

中學生 Rank: 2

帖子: 58
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-5-21
最後登錄: 2019-2-26

論壇贊助勳章

14^#

發表於 2012-6-12 17:27 | 只看該作者

小弟也想知道，提問及回文都不翼而飛，是被刪除了，抑或論壇的資料庫發生了問題？

devidlin

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

13^#

發表於 2012-6-12 17:02 | 只看該作者

回復 12# GBKEE
原來 Module1 和 ThisworkBook 之間的置放有這些 Open以及Close的區別，
我將它記錄起來了，謝謝 GBKEE 大大的解說。

我發覺前天與昨日間的提問及回文都不翼而飛，是被刪除了，抑或論壇的資料庫發生了問題？

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

12^#

發表於 2012-6-12 14:13 | 只看該作者

回復 11# devidlin
可參考一下

'DDE 資料紀錄問題在'一般模組(Module1)的程式碼
Option Explicit
Dim 開盤 As Range, 收盤 As Range, 間隔 As Range, 次數 As Range, Time_Dee As Date
'------在一般模組(Module1)不起作用的----------------
'Private Sub Workbook_Open() '是 ThisWorkbook的程序此活頁簿關閉時自動執行的程式
'Private Sub Workbook_BeforeClose(Cancel As Boolean) '是 ThisWorkbook的程序此活頁簿關閉時自動執行的程式
'---------------------------------------------------
Private Sub Auto_Open() '---* 一般模組(Module1)的程序此活頁簿開啟時自動執行的程式
StartProcedure
End Sub
Private Sub Auto_Close() '---* 一般模組(Module1)的程序此活頁簿關閉時自動執行的程式
StopProcedure
ThisWorkbook.Save
End Sub
Sub StartProcedure()
'----- 可設按鈕指定此巨集手動應用-------
'------啟動 Dee_Set 程序的執行巨集-------
If 收盤 Is Nothing Then Time_Set '變數未設定
If Sheets("Sheet1").[A2] <> Date Then Sheets("Sheet1").UsedRange.Offset(1) = ""
'當日第一此開啟檔案清除就有Dee資料
If Time > 收盤 Then '已過收盤時間
MsgBox "已過 " & 收盤
Else '未到收盤時間
If Time >= 開盤 And Time <= 收盤 Then '股市交易時間內
If Time_Dee > 開盤 Then Exit Sub '預防重復:' 下次執行 Dee_Set 的時間大於開盤時間
Dee_Set
Else '未開盤前
次數 = 0 '清除昨日紀錄 DEE 次數
Time_Dee = #8:30:00 AM#
Application.OnTime Time_Dee, "Dee_Set"
MsgBox "預定於 " & #8:30:00 AM# & "更新 Dee資料"
End If
End If
End Sub
Sub StopProcedure()
'----- 可設按鈕指定此巨集手動應用-------
'------停止 Dee_Set 程序的執行巨集-------
On Error Resume Next
Application.OnTime Time_Dee, "Dee_Set", , False
Time_Dee = #12:00:00 AM# '下次執行 Dee_Set 的時間: 小於開盤時間
End Sub
Private Sub Time_Set() '變數設定
With Sheets("DATA")
Set 開盤 = .Range("X5") '開盤時間
Set 收盤 = .Range("Y5") '收盤時間
Set 次數 = .Range("X6") '紀錄 DEE 次數
Set 間隔 = .Range("Y6") '匯入DEE的時間間隔
開盤 = "8:30:00"
收盤 = "13:30:00"
If 間隔 = "" Then 間隔 = "00:01:00" '未設未設立間隔
End With
End Sub
Private Sub Dee_Set()
If Time > 收盤 Then Exit Sub
'----------紀錄 DEE -----------
Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 22).Value = Sheets("DATA").[A2:v2].Value
次數 = 次數 + 1 ' 切記 Counter (計數器) 要加一，否則永遠為零 (當然已也可以不予紀錄資料列述，依個人習性)。
Time_Dee = Time + 間隔 '下次執行 Dee_Set 的時間
Application.OnTime Time_Dee, "Dee_Set"
End Sub