藍天麗池

回復 40# Andy2483


    有，我有放職進去

Andy2483

回復 41# 藍天麗池


    奇怪了 這兩格植入公式可以顯示數字,VBA卻抓不到值
其他的DDE值VBA都抓到了,就這兩個值抓不到
請檢查一下原本這 L10與K10 這兩格的公式是否正確,貼上來看一下

藍天麗池

回復 42# Andy2483


    我剛剛又試了一下，這次連左邊A-D都不會顯示任何東西了，只會一直出現原本那個錯誤

Andy2483

回復 43# 藍天麗池


    重新開啟檔案,現在是兩個DDE值VBA抓不到,請檢查一下這兩串字  是不是有錯誤
=XQTISC|Quote!'FITXN*1.TF-FiveBidSize'
=XQTISC|Quote!'FITXN*1.TF-FiveAskSize'

Andy2483

回復 43# 藍天麗池


    試一下以下 執行結果
Sub TEST()
MsgBox Evaluate("=XQTISC|Quote!'FITXN*1.TF-BestBidSize1'")
End Sub

藍天麗池

回復 44# Andy2483


   

下載 (75.31 KB)

2024-1-19 11:59

沒有錯誤，我一直點結束，數字會變動喔

藍天麗池

回復 45# Andy2483


    出現跟#36一樣的錯誤

Andy2483

回復 47# 藍天麗池


    那代表VBA 一筆DDE值都沒抓到,請再試一下
試一下以下 這沒有"="的執行結果
Sub TEST()
MsgBox Evaluate("XQTISC|Quote!'FITXN*1.TF-BestBidSize1'")
End Sub

Andy2483

回復 47# 藍天麗池


    忘了一件事: If IsError([K12]) Or IsError([L12]) Then 好像DDE值會有錯誤值所以你原來才有這判斷式
所以加了 If IsError(ThisWorkbook.Sheets(1).[B1]) Then Exit Sub    請再試試看新範例檔
變動記錄_20240119_9.zip (26.96 KB)

下載次數: 4

2024-1-19 15:06

藍天麗池

回復 48# Andy2483


   

下載 (107.49 KB)

2024-1-19 15:25

一樣甚麼都沒有