123456
返回列表 上一主題 發帖

[發問] 請問如何將以連接EXCEL的DDE數據每分鐘紀錄下來？

humanbondage

帖子
3 
主題
0 
精華
0 
積分
8 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-9-15 
最後登錄
2010-11-11 
18# 跳轉到 »
發表於 2010-9-15 22:06 | 只看該作者
小弟初來乍到,也因為想開始透過dde,利用vba的程式將想記錄的固定時間資料存取下來做一些運算
很高興有這麼多高手在此熱心分享
希望能多多學習,謝謉

TOP

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-12-26 
17#
發表於 2010-9-9 14:09 | 只看該作者
嘿嘿!!  今天 又正常  

不明原因  有如  "消失的密室"  

還是 感謝!!  Hsieh大
50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
16#
發表於 2010-9-8 19:30 | 只看該作者
已經農曆8月，怎麼還會有靈異事件?
學海無涯_不恥下問

TOP

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-12-26 
15#
發表於 2010-9-8 19:04 | 只看該作者
Hsieh 大

太棒了!!

由於 昨天太趕  來不及測試

今天 測試起來 正確無誤

在此 真的~ 超級萬分感謝!!



二.
但是 存檔後 再次進入

預計 想修改 秒數

但在 程式碼編輯器內 的資料

卻變不見了 是 空的ㄝ

再次請教
50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
14#
發表於 2010-9-6 18:43 | 只看該作者
回復 13# 7777
這樣試試看
  1. Dim i As Single
  2. Private Sub Workbook_Open()
  3.   Application.OnTime TimeValue("08:45:00"), "ThisWorkBook.ExeSelf"
  4. End Sub
  5. Private Sub ExeSelf()
  6.   On Error Resume Next
  7.   If TimeValue(Now) > TimeValue("13:45:00") Then Exit Sub
  8.   i = i + 1
  9.   If i = 1 Then
  10.   Sheets(1).Cells(1, 1) = Date
  11.   i = i + 1
  12.   End If
  13.   Sheets(1).Cells(i, 2) = Time
  14.   Sheets(1).Cells(i, 3) = Sheets(2).Cells(2, 1)
  15.   Sheets(1).Cells(i, 4) = Sheets(2).Cells(2, 2)
  16.   Sheets(1).Cells(i, 5) = Sheets(2).Cells(2, 3)
  17.   Sheets(1).Cells(i, 6) = Sheets(2).Cells(2, 4)
  18.   Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
  19. End Sub
複製代碼
學海無涯_不恥下問

TOP

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-12-26 
13#
發表於 2010-9-6 16:32 | 只看該作者
GBKEE大
本人  也有類似的問題  借此一問
本人的資訊源 是來至永豐金的易利得軟體 ( 接收 大台指 資料 )
內容如下：

Dim i As Single
Private Sub Workbook_Open()

  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
End Sub
Private Sub ExeSelf()
  On Error Resume Next
  i = i + 1
  If i = 1 Then
  Sheets(1).Cells(1, 1) = Date
  i = i + 1
  End If
  Sheets(1).Cells(i, 2) = Time
  Sheets(1).Cells(i, 3) = Sheets(2).Cells(2, 1)
  Sheets(1).Cells(i, 4) = Sheets(2).Cells(2, 2)
  Sheets(1).Cells(i, 5) = Sheets(2).Cells(2, 3)

  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf", , False
End Sub

問題是：
一啟動檔案，資料就開始接收
非開盤時間沒有資料下，仍然在跑

可否能   我8:30開起檔案
8:45 後才開始  接收資料
13:45 後 就 結束  接收資料

謝謝!!

DDE.rar (40.56 KB)

DDE.rar (40.56 KB)

EED檔

50 字節以內
不支持自定義 Discuz! 代碼

TOP

j1221

帖子
50 
主題
10 
精華
0 
積分
69 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-21 
最後登錄
2015-1-11 
12#
發表於 2010-7-7 09:07 | 只看該作者
回復 10# GBKEE


GBKEE大，我的問題解決了

是我自己腦殘 Rng.Value = R.Offset(, 1).Resize(, 6).Value沒做相對應的更動，難怪不會記錄.....

這樣就不用勞煩您了

真的謝謝你的熱心幫助，感謝您
我愛麻辣家族討論區！！

TOP

j1221

帖子
50 
主題
10 
精華
0 
積分
69 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-21 
最後登錄
2015-1-11 
11#
發表於 2010-7-6 21:14 | 只看該作者
回復 10# GBKEE


感謝您的解答

第二個問題請您查閱附檔，我加上了均買、均賣兩個簡單的計算在sheet1，然後跟之前一樣，希望在sheet2按照每分鐘記錄下來

今天開盤的時候試，發現新增的欄位沒辦法記錄下來（也就是附檔中的J2、K2）只有舊的欄位可以按每分鐘紀錄

今天的紀錄被我腦殘洗掉了....Orz

再次謝謝您這麼熱心的幫忙，真的太感動了

DDE(Yeswin).rar (20.58 KB)

我愛麻辣家族討論區！！

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2010-7-6 17:41 | 只看該作者
回復 9# j1221
Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues) 多了一個h   因為 儲存格時間格式是 h:mm

改成直接尋找時間就不容易出錯
Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)

也就是說我是這樣使用的  --->>   資料 | 空格｜資料 ???  不太暸解 請附檔看看

TOP

j1221

帖子
50 
主題
10 
精華
0 
積分
69 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-21 
最後登錄
2015-1-11 
9#
發表於 2010-7-6 09:21 | 只看該作者
回復 8# GBKEE


感謝GBKEE大，已經可以用了！！！！

但可否請問，之前不能用是因為甚麼問題呢？

此外，若我還想再增加儲存格，是否只要改動儲存格範圍就可以了？

因為我今天確認可以用之後，想說多加幾格試試看，為了便於觀看，我空了一整行當作分隔線，之後才增加我的儲存格

也就是說我是這樣使用的  --->>   資料 | 空格｜資料

結果它依舊只會更新最早指定的那些儲存格，這是因為我中間有空格的關係嗎？還是其實並沒有差別？

再次感謝您
我愛麻辣家族討論區！！

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
123456
返回列表 上一主題