嗯..這VBA的我也不太會 http://www.taltech.com/TALtech_web/support/dde_sw/ddeexcel508.htm 找了一下 有些是直接寫到儲存格 不過這樣要怎麼觸發就不知道了 To use it enter the string: [RUN("GetSWDataBelow")] as the Field Postamble DDE Command after the last data field that you have defined. 不很明瞭... 網址是其中一例 往上一層還有其他 http://www.angelfire.com/biz/rhaminisys/ddeapps.html#DDEExcelSpec 這個也講了一些 但好像比較沒有用(?) ※ 引述《psion (psion)》之銘言： : 標題: [請益] dde怎樣儲存資料? : 時間: Wed Apr 23 01:06:34 2008 : : ※ [本文轉錄自 Stock 看板] : : 作者: psion (psion) 看板: Stock : 標題: [請益] dde怎樣儲存資料? : 時間: Tue Apr 22 23:05:22 2008 : : 我剛學excel : 需要用dde擷取每分鐘大盤成交資訊(成交量買賣均張之類) : 結果進來的資料無法儲存 : 比方說A1格是dde輸入的成交量 : 我想把每分鐘更新的資料依序儲存在A2以後的格子 : 可是發現worksheet_change無法被dde觸發(這是我上網找到的原因) : 請問還有其他方法可以儲存dde資料嗎？ : 謝謝 : : -- :

※ 發信站: 批踢踢實業坊(ptt.cc) : ◆ From: 203.70.6.55 : → powerair:自行寫個VBA程式? :P 04/22 23:28 : → psion:就是不知道怎麼寫啊 XD 想找範例都不知從何找起 04/22 23:39 : → psion:worksheet_change也是別人教我的vba語法 04/22 23:39 : : 我剛剛找上網到一種可能的寫法(利用dde觸發calculate) : 想請高手指點一下 : : Private Sub Worksheet_Calculate() : : Application.EnableEvents = False(請問這行跟下面True那行是必要的嗎？) : : Range("A65536").End(xlUp).Offset(1, 0) = Range("A1").Value : : Range("B65536").End(xlUp).Offset(1, 0) = Range("B1").Value : : Range("C65536").End(xlUp).Offset(1, 0) = Range("C1").Value : : Application.EnableEvents = True : : End Sub : : A1 B1 C1就是dde資料進來的格子 : 不知道這樣離正確的寫法還有多遠？ : 謝謝 網址中的備份一下 Sub GetSWDataBelow() Dim X As Long ' Dim all variables Dim MyVar As Variant Dim MyString As String On Error Resume Next ' ignore errors Application.DisplayAlerts = False ' turn off DDE warning messages X = DDEInitiate("WinWedge", "COM1") ' connect to WinWedge MyVar = DDERequest(X, "Field(1)") ' get Field(1) DDETerminate X ' terminate the DDE link MyString = MyVar(1) ' convert to a string ' find the row number of the last empty cell at the bottom of Column 1 X = Sheets("Sheet1").Cells(65000, 1).End(xlUp).Row + 1 Cells(X, 1).Value = MyString ' put value in the last row End Sub : : -------------------------------------- : ※ 編輯: psion 來自: 203.70.6.55 (04/23 00:11) : ※ 編輯: psion 來自: 203.70.6.55 (04/23 00:13) : → powerair:讀DDE提供的時間 變動時(分+1) 複製到你要的欄位 04/23 00:10 : → psion:ㄟ 問題就在於要怎樣複製 ontime是不必要的 因為本來就是每 04/23 00:14 : → psion:分鐘更新一次 所以光是dde值變動 還要搭配能觸發的事件 04/23 00:16 : → psion:change不能觸發 calculate可以 這是我目前上網找到的心得 04/23 00:16 : → psion:不過很感激您的回應 能請您寫出來讓我學習嗎 謝謝 04/23 00:17 : → powerair:Trading版應該蠻多高手的 我只有觀念 不會寫 抱歉 :) 04/23 00:21 : → psion:呵呵 Trading版人氣很低迷啊 04/23 00:25 : 推 neant:轉去office板 看看 excel高手很多 04/23 00:38 : : -- :

※ 發信站: 批踢踢實業坊(ptt.cc) : ◆ From: 203.70.6.55 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.164.49.110 ※ 編輯: JieJuen 來自: 218.164.49.110 (04/23 15:17)