123456
返回列表 上一主題 發帖

[發問] DDE資料紀錄問題

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
8# 跳轉到 »
發表於 2012-4-26 20:54 | 只看該作者
回復 7# c_c_lai


    Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7)= Sheets(1).[A2:G2].Value
這樣的寫入是以陣列型態寫入，所以不能使用
    Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7)= Sheets(1).[A2:G2].Text
你的問題只是格式的問題
只需將兩個工作表對應欄位格式先設成相同即可使用
例如:Sheets(1)的A2是時間，格式應該是"h:mm:ss"
你就把Sheets(2)的A欄格式也設定成"h:mm:ss"
play.gif
學海無涯_不恥下問

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
7#
發表於 2012-4-26 20:28 | 只看該作者
回復 6# GBKEE
謝謝您！ 經過測試的結果，發現如果將
Sheets("工作表2").Cells(CIndex + 2, 1).Value = Sheets("工作表1").Cells(2, 1).Value 更改成
Sheets("工作表2").Cells(CIndex + 2, 1).Value = Sheets("工作表1").Cells(2, 1).Text 的確 OK。

但是 Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sheets(1).[A2:G2].Value 更改為
Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sheets(1).[A2:G2].Text 就不行了，
結果都沒有任何資料寫入，那豈不說無法完全使用 Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7)
= Sheets(1).[A2:G2].Value 的方式處理呦？

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-4-26 17:59 | 只看該作者
本帖最後由 GBKEE 於 2012-4-26 18:01 編輯

回復 4# c_c_lai
工作表2 的欄位 須設好格式
為什麼 工作表1 的 A2 資料一轉到 工作表2 的欄位，01:44 PM -> 0.572905 ？
0.572905是數字   01:44 PM 是儲存格的格式

Sheets("工作表2").Cells(CIndex + 2, 1) = Sheets("工作表1").Cells(2, 1).Text

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2012-4-26 15:42 | 只看該作者
回復 3# chenua
我將檔案傳E-Mail給妳了，收收看！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2012-4-26 15:37 | 只看該作者
回復 2# Hsieh
回復 3# chenua
我將以能作業的 工作表單 附上， Chenua 妳可以試試看， 如附圖所見。

Hsieh大大，想請教您的是：
(1) 上圖左半部分， 從 A2:A21 的資料室應用 If Not IsError(Sheets(1).[B2]) Then Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) =
       Sheets(1).[A2:G2].Value  的方式處理。 為什麼 工作表1 的 A2 資料一轉到 工作表2 的欄位，01:44 PM -> 0.572905 ？
      所以我便將它的處裡改成 Sheets("工作表2").Cells(CIndex + 2, 1).Value = Sheets("工作表1").Cells(2, 1).Value 結果一樣，
      因為由 DDE 匯入的時間欄位是 A3 (=YT|KS!TXFE2.123),  匯入內容為 134459，此欄數據資料無法應用，故將它轉型到 A2 欄位
      (=TIME(LEFT(A3,LEN(A3)-4),MID(A3,LEN(A3)-3,2),RIGHT(A3,2)))，目前如果從 A3 區出資料就會有問題，所以又再將它改成
     Sheets("工作表2").Cells(CIndex + 2, 1).Value = TimeValue(Now) 的方式，如附圖上的 A22LA28。
(2) 假設目前我想將 A2:G2，K2:P2，以及 H5:J5 等欄位同時抓取的話，如使用像 Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) =
       Sheets(1).[A2:G2].Value  的方式來做處理，請教在語法上應怎麼來表達呢？
謝謝您的指導！
DDE 資料紀錄問題.rar (13.19 KB)

TOP

chenua

帖子
9 
主題
0 
精華
0 
積分
11 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
10 
性別
女 
註冊時間
2012-4-25 
最後登錄
2012-4-26 
3#
發表於 2012-4-26 12:38 | 只看該作者
回復 2# Hsieh


    大概可以了..謝謝版主解答

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-4-26 11:39 | 只看該作者
回復 1# chenua
一般模組輸入以下程式碼，存檔後開啟檔案，測試看看
  1. Sub auto_open()'開檔時自動執行此巨集
  2. GetDDE  '呼叫程序
  3. End Sub
  4. Sub GetDDE()
  5. Dim T As Date
  6. T = Now  '取得現在時間
  7. If Not IsError(Sheets(1).[B2]) Then Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sheets(1).[A2:G2].Value  '工作表1的資料DDE連結成功寫入工作表2
  8. Application.OnTime T + TimeValue("00:00:02"), "GetDDE"  '這是以2秒測試，間隔5分鐘改成TimeValue("00:05:00"),
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
123456
返回列表 上一主題