- 帖子
- 37
- 主題
- 0
- 精華
- 0
- 積分
- 41
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-5-7
- 最後登錄
- 2018-2-10
|
我沒有 "元大Yeswin提供的DDE"
但你可試試下列做法"
儲存格A1值=股票代碼
儲存格B1值=Price
儲存格C1值=Change
儲存格D1值=Volume
在A2填入 2330
執行下列程式
Sub test()
Dim Stock As String
Stock = Range("A2")
Range("B2").Formula = "=YES|DQ!'" & Stock & ".Price'"
Range("C2").Formula = "=YES|DQ!'" & Stock & ".Change'"
Range("D2").Formula = "=YES|DQ!'" & Stock & ".Volume'"
End Sub |
|
發表於 2012-3-31 11:53
| 