返回列表 上一主題 發帖

[分享] 關於DDE動態連結問題

[分享] 關於DDE動態連結問題

股票我本人是沒有涉獵
沒使用過dde擷取即時資料的經驗
但看各位的文章
揣摩一下意思做成附檔
不知道是不是各位想要的
(檔案開啟後按F9即可測試,要自動請於Sheets("dde")設置相關dde連結公式)
dde.rar (9.88 KB)
學海無涯_不恥下問

股票我也不會玩,更不可能為了測DDE而安裝股票軟體
所以我都用 Excel 測試 DDE
在儲存格內輸入 =excel|Book1.xls!x
會出現什麼呢?提供出來大家猜猜!
一卵三四、驚到嘸代誌

TOP

回復 2# 沙拉油


    若定義出book1.xls的x
那麼可以抓到這個值
不過一值試著更新x值
那麼這公式並沒有即時反應出x值
請教沙大
是否有需要做甚麼設定或如何打開dde通道才會做即時的擷取資料呢?
請沙大不吝賜教
謝謝!
學海無涯_不恥下問

TOP

Hsieh板大你好
以前我在學校時所教的 一開始必先要開啟DDE的股票軟體
我以日盛為例 所以要先開啟他裡面的一個 Excel DDE 之後再開啟 EXCEL 才能啟動

然後我們會在EXCEL 一開啟時 check 是否連線成功

之後再寫入下面程式

Sub 載入日盛DDE()
  With ThisWorkbook.Worksheets("外部資料")
    .Cells.Clear
    '寫入時間
    .Range("B1").Formula = "=DDEEXCEL|FUTURETXF" & NearMonth & NearYear & "!時間"
  end  with

至於DDEEXCEL|FUTURETXF" & NearMonth & NearYear & "!時間 是看個DDE軟體定義的
以日盛為例 當開啟EXCEL DDE 把他拖曳到 EXCEL上時 就會出現上面  之後裡面的年月再設變數

如此 至於要擷取他變動的資料 則是使用DDE傳送資料到EXCEL 觸發的calculate 事件特性
去判斷新傳來的值與舊的值是否有相同 如果不相同就記錄

Dim NewVolume As Long
  Dim nRow As Long
  With ThisWorkbook.Worksheets("台指期DDE")
    If IsNumeric(.Range("A1")) = True Then
      NewVolume = .Range("A1")
      If NewVolume <> TXoldVolume Then
        '將即時價差及台指期即時成交價逐行寫入各欄
        With ThisWorkbook.Worksheets("繪圖資料")
          nRow = .Range("B65536").End(xlUp).Row
          If nRow = 1 And .Range("B1") = "" Then
            .Cells(1, 1) = Time
            .Cells(1, 2) = ThisWorkbook.Worksheets("外部資料").Range("C3") '台指期價格
            With ThisWorkbook.Worksheets("外部資料")
              If IsNumeric(.Range("C3")) And IsNumeric(.Range("C11")) And _
                 IsNumeric(.Range("C19")) Then
                ThisWorkbook.Worksheets("繪圖資料").Cells(1, 5) = _
                      CalSpread(.Range("C11"), .Range("C19"), .Range("C3")) '目前價差
              End If
            End With
GinBow

TOP

本帖最後由 沙拉油 於 2010-5-18 23:26 編輯

參考我在 Excel 測試 DDE的作法
一卵三四、驚到嘸代誌

TOP

謝謝沙大指導
我的測試錯誤是因為
我把X定義成動態位置
=OFFSET($A$1,COUNTA(A:A),)
所以當A欄輸入資料並無法更新到目標區
像沙大的固定位置就可行了
多謝沙大指導
學海無涯_不恥下問

TOP

本帖最後由 humanbondage 於 2010-11-11 23:16 編輯

謝謝各位的分享,小弟也是想學習vba捉取期貨的成交資料每一分鐘資料做成k線數據的開高收低,但剛開始摸索而已

看了很多相關的討論文章,完全還在迷霧森林中沒走出半步,希望有點頭序時再向版上高手請教

TOP

在網路上看到股票的檔案,看不到別人是如何寫出來的,我個人也沒有玩股票,但會注意一下。
我也想學但是自己的功力還沒有到那ㄋ,也在學習當中也希望各位板主教導
danny

TOP

請教版主:

client端與server端的檔案路徑若不同

那"=excel|Book1.xls!x"應如何修正?

TOP

請教版主:

client端與server端的檔案路徑若不同

那"=excel|Book1.xls!x"應如何修正?
fpoqua 發表於 2011-1-31 12:16


參考:http://support.microsoft.com/kb/128491
一卵三四、驚到嘸代誌

TOP

        靜思自在 : 自己害自己,莫過於亂發脾氣。
返回列表 上一主題