返回列表 上一主題 發帖

兩個"獨立"運作的Excel活頁薄如何用DDE互傳資訊??

barrykuo

帖子
39 
主題
4 
精華
0 
積分
48 
點名
0  
作業系統
windows 7 
軟體版本
sp1 
閱讀權限
10 
性別
男 
註冊時間
2013-2-2 
最後登錄
2014-8-26 
1# 跳轉到 »
發表於 2014-7-7 15:39 | 顯示全部帖子
回復 3# GBKEE
GBKEE大大，你好！
按您的程序
如果BOOK1.XLS放在某個目錄下
  1. Public APP As New Application
  2. Private Sub Workbook_Open()
  3.         APP.Visible = True    '第二個Excel: 顯示
  4.         APP.Workbooks.Open "D:\programs\BOOK1.XLS" '第二個Excel:開啟活頁簿
  5. End Sub
複製代碼
結果下面執行出現錯誤訊息＝「執行階段錯誤424」說明此觸需要物件。
  1. Sub Ex()
  2.     ThisWorkbook.Sheets(1).[A1] = APP.Workbooks("D:\programs\BOOK1.XLS").Sheets(1).[A1]
  3. End Sub
複製代碼
請問哪裡出錯？
人生只有三天，只有活在今天最踏實

TOP

barrykuo

帖子
39 
主題
4 
精華
0 
積分
48 
點名
0  
作業系統
windows 7 
軟體版本
sp1 
閱讀權限
10 
性別
男 
註冊時間
2013-2-2 
最後登錄
2014-8-26 
2#
發表於 2014-7-10 13:05 | 顯示全部帖子
回復 7# stillfish00
回stillfish00大大，謝謝您!
可我真的存一個文件叫[book1.xls]，而且存在目錄為[D:\programs底下]，按GBKEE大大程序執行Ex巨集出現錯誤訊息＝「執行階段錯誤424」說明此觸需要物件。

所以不懂Ex()底下這樣寫是不是不對，APP.Workbooks("D:\programs\BOOK1.XLS").Sheets(1).[A1]。
感謝你們!
人生只有三天，只有活在今天最踏實

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題