關於DDE動態連結問題 - Excel程式區

帖子: 44
主題: 2
精華: 0
積分: 49
點名: 0
作業系統: Windows XP SP3
軟體版本: Office 2003
閱讀權限: 150
性別: 男
來自: 呆丸
註冊時間: 2010-5-1
最後登錄: 2013-1-27

論壇貢獻勳章終身榮譽會員勳章

13^# 跳轉到 »

發表於 2011-5-1 00:03 | 只看該作者

沙大你好!
我用EXCEL2010在儲存格內輸入 =excel|Book1.xls!x
馬上出現當機(沒有回應)，請問EXCEL哪 ...
wells330 發表於 2011-4-29 22:10

沒你那種電腦環境可以測試！
請自己看看 Excel 說明
或請 Win7+Office 2010 的人幫你看看！
底下是網路上找到類似的問題
參考網路上的連結 << 英文
參考網路上的連結 << 中文

一卵三四、驚到嘸代誌

wells330

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

12^#

發表於 2011-4-29 22:10 | 只看該作者

沙大你好!
我用EXCEL2010在儲存格內輸入 =excel|Book1.xls!x
馬上出現當機(沒有回應)，請問EXCEL哪裡設定出問題?

謝謝!

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

piero

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 7
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2011-4-27
最後登錄: 2011-5-20

11^#

發表於 2011-4-27 19:18 | 只看該作者

上面的bbb.xls,改變價位

在接收端的excel要如何一筆一筆的向下接資料

煩麻各位大大,分享一下簡單的寫法

感謝^^

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

沙拉油

　暱稱: 沙拉油
　頭銜: 正港A水電工

帖子: 44
主題: 2
精華: 0
積分: 49
點名: 0
作業系統: Windows XP SP3
軟體版本: Office 2003
閱讀權限: 150
性別: 男
來自: 呆丸
註冊時間: 2010-5-1
最後登錄: 2013-1-27

論壇貢獻勳章終身榮譽會員勳章

10^#

發表於 2011-4-22 16:24 | 只看該作者

請教版主：

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

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

參考：http://support.microsoft.com/kb/128491

一卵三四、驚到嘸代誌

fpoqua

帖子: 12
主題: 2
精華: 0
積分: 53
點名: 0
作業系統: Win XP
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2010-8-5
最後登錄: 2019-11-7

9^#

發表於 2011-1-31 12:16 | 只看該作者

請教版主：

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

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

danny001

帖子: 55
主題: 11
精華: 0
積分: 90
點名: 0
作業系統: windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-7-22
最後登錄: 2019-5-2

8^#

發表於 2010-11-11 23:42 | 只看該作者

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

danny

humanbondage

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-9-15
最後登錄: 2010-11-11

7^#

發表於 2010-11-10 23:39 | 只看該作者

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

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

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

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兔年全勤獎章

6^#

發表於 2010-5-14 07:27 | 只看該作者

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

學海無涯_不恥下問

沙拉油

　暱稱: 沙拉油
　頭銜: 正港A水電工

帖子: 44
主題: 2
精華: 0
積分: 49
點名: 0
作業系統: Windows XP SP3
軟體版本: Office 2003
閱讀權限: 150
性別: 男
來自: 呆丸
註冊時間: 2010-5-1
最後登錄: 2013-1-27

論壇貢獻勳章終身榮譽會員勳章

5^#

發表於 2010-5-13 23:40 | 只看該作者

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

參考我在 Excel 測試 DDE的作法

一卵三四、驚到嘸代誌

ginbow

帖子: 28
主題: 4
精華: 0
積分: 54
點名: 0
作業系統: windows xp pro
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2010-5-5
最後登錄: 2016-6-8

4^#

發表於 2010-5-13 18:09 | 只看該作者

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