返回列表 上一主題 發帖

關於「Excel VBA」DDE...

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 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
複製代碼

TOP

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
3#
發表於 2015-8-3 08:50 | 只看該作者
大大您好：
小弟剛試了一下，一樣出現執行階段錯誤'13
問題好像是出在接了DDE然後開啟Excel檔案的一開始
A1會顯示短暫的#N/A
然後就會有數值
但是這中間造成A1有問題

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2015-8-3 12:06 | 只看該作者
回復 3# EGBT
請上傳檔案，我來測試看看！

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題