興小弟讀書筆記

點金靈DDE報價傳輸至Excel後，經常面臨更換商品或更換月份時，必須重新輸入指令的困擾。

以下向大家介紹一種快速更換商品月份的方法。

1.首先在儲存格中輸入要傳輸的報價資訊。

2.「開發人員」籤頁中，點選「插入」，從表單控制項中選擇按鈕。

新增一個巨集，當按鈕按下去的時候，就會自動呼叫這個巨集。

複製輸入下方程式碼。

程式代碼如下

Sub 執行換月()

Dim 主機 As String

Dim 交易所 As String

Dim 月份 As String

主機 = "EWinner|RQ!"

交易所 = Cells.Range("A5")

月份 = Cells.Range("C2")

Cells.Range("C5") = "=" + 主機 & Cells.Range("B5") & 月份 + "." & 交易所 + ".BidPrice"

Cells.Range("D5") = "=" + 主機 & Cells.Range("B5") & 月份 + "." & 交易所 + ".AskPrice"

Cells.Range("E5") = "=" + 主機 & Cells.Range("B5") & 月份 + "." & 交易所 + ".Price"

End Sub

每次換月或更換商品時，只要更新月份(時間格式為_1812)資料或商品代號，再按下執行換月即可