123
返回列表 上一主題 發帖

[發問] 請問如何利用DDE提供的時間數據定期紀錄在excel活頁簿

lawlu

帖子
6 
主題
0 
精華
0 
積分
6 
點名
0  
作業系統
Win 8 
軟體版本
Office 2010 
閱讀權限
10 
註冊時間
2014-7-19 
最後登錄
2017-5-25 
21# 跳轉到 »
發表於 2014-7-22 16:12 | 只看該作者
Barry 大大您好:

依照您的建議修改如下
但卻跑出錯誤訊息



[attachimg]18740

Error.png (56.23 KB)

Error.png

TOP

barrykuo

帖子
39 
主題
4 
精華
0 
積分
48 
點名
0  
作業系統
windows 7 
軟體版本
sp1 
閱讀權限
10 
性別
男 
註冊時間
2013-2-2 
最後登錄
2014-8-26 
22#
發表於 2014-7-22 17:09 | 只看該作者
回復 21# lawlu
抱歉，end if 刪除。
人生只有三天，只有活在今天最踏實

TOP

lawlu

帖子
6 
主題
0 
精華
0 
積分
6 
點名
0  
作業系統
Win 8 
軟體版本
Office 2010 
閱讀權限
10 
註冊時間
2014-7-19 
最後登錄
2017-5-25 
23#
發表於 2014-7-22 17:45 | 只看該作者
barrykuo大大:

1. 已將end if 刪除
2.程式是沒有出現錯誤訊，但還是沒有紀錄資料
3.不知是否因您之前有提到datarow = Sheets("yyyyyy").[c65536].End(xlUp).Row裡面的yyyyyy填上你記錄的活頁簿名稱

而我將檔名設為"EURO"， 所以我將yyyyyy填上EURO，也就是說如下:

datarow = Sheets("EURO").[c65536].End(xlUp).Row

才造成無法RUN程式

感謝回復

TOP

barrykuo

帖子
39 
主題
4 
精華
0 
積分
48 
點名
0  
作業系統
windows 7 
軟體版本
sp1 
閱讀權限
10 
性別
男 
註冊時間
2013-2-2 
最後登錄
2014-8-26 
24#
發表於 2014-7-23 13:41 | 只看該作者
回復 23# lawlu
lawlu大大，我按自己習慣改了程序，設定5秒記錄一次沒有問題，請再看看。

人生只有三天，只有活在今天最踏實

TOP

lawlu

帖子
6 
主題
0 
精華
0 
積分
6 
點名
0  
作業系統
Win 8 
軟體版本
Office 2010 
閱讀權限
10 
註冊時間
2014-7-19 
最後登錄
2017-5-25 
25#
發表於 2014-7-23 23:14 | 只看該作者
barrykuo大大

依建議修改後，已經可以run了
謝謝您

TOP

        靜思自在 : 小事不做、大事難成。
123
返回列表 上一主題