標題: 關於「Excel VBA」DDE... [打印本頁]

---

作者: EGBT    時間: 2015-8-2 14:55     標題: 關於「Excel VBA」DDE...

如標題：關於「Excel VBA 」DDE...

我的Excel接上DDE之後，

用VBA寫

Option Explicit
Dim A As String
Dim X As Integer

Private Sub Workbook_Open()
    A = Range("A1")
End Sub

這樣子寫法，在Excel檔案開啟的時候，接DDE的A1儲存格會先顯示 #N/A

然後就會出現錯誤訊息，執行階段錯誤'13

問題是出在哪裡呢？

麻煩各位大大的解答！

---

作者: c_c_lai    時間: 2015-8-3 06:34

本帖最後由 c_c_lai 於 2015-8-3 06:35 編輯

回復 1# EGBT
試試看： (在取得值前，先行判斷過濾)

1.     If IsError(Sheets("Sheet1").Range("A1").Value) Then
   
2.         A = ""
   
3.     Else
   
4.         A = Sheets("Sheet1").Range("A1").Value
   
5.     End If

複製代碼

---

作者: EGBT    時間: 2015-8-3 08:50

大大您好：
小弟剛試了一下，一樣出現執行階段錯誤'13
問題好像是出在接了DDE然後開啟Excel檔案的一開始
A1會顯示短暫的#N/A
然後就會有數值
但是這中間造成A1有問題

---

作者: c_c_lai    時間: 2015-8-3 12:06

回復 3# EGBT
請上傳檔案，我來測試看看！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)