Board logo

標題: [發問] 兩個獨立EXCEL 資料互傳 [打印本頁]

作者: blue2263    時間: 2019-5-1 15:05     標題: 兩個獨立EXCEL 資料互傳

本帖最後由 blue2263 於 2019-5-1 15:06 編輯

[attach]30489[/attach]

兩個獨立EXCEL 資料互傳,附件是在網站上找到的相關檔案,稍微修改了一下,
己較符合我所需,但有一點不知如何修改,相請教大大
附檔的操作是將1.xlsm,打開然後,執行開始程序,
該程序直接打開新的EXCEL開啟2.xlsm,然後定期將資料傳到2.xlsm

我不想由開始程序開啟Excel軟體及檔案
我想改為手動先打開兩個EXCEL各自打開1.xlsm &2.xlsm檔案後,直接資料互傳
請教大大 要如何修改程式碼
如何將變數Set book1 = 直接定義為2.xlsm

再煩請大大協助幫忙,謝謝
  1. Dim app1 As Object, book1 As Excel.Workbook, UMode As Byte
  2. Dim sourcedata As Range, targetdata As Range, temp() As Variant
  3. Public Sub 開始()
  4.     UMode = 1
  5.     Set app1 = CreateObject("Excel.Application")
  6.     Set book1 = app1.Workbooks.Open(ThisWorkbook.Path & "\" & "2.xlsm")
  7.     app1.Visible = True
  8.     Set sourcedata = Range("A2:I2")
  9.     Set targetdata = book1.Sheets("b").Range("A2:I2")
  10.     Call 資料跨程式轉寫
  11. End Sub
  12. Public Sub 停止()
  13.     UMode = 0
  14.     Set app1 = Nothing
  15.     Set book1 = Nothing
  16. End Sub
  17. Public Sub 資料跨程式轉寫()
  18. If UMode = 0 Then Exit Sub
  19.     Cells(2, 2) = Cells(2, 2) + 2
  20.     temp = sourcedata
  21.     targetdata.Value = temp '轉寫
  22. Application.OnTime Now + TimeValue("00:00:01"), "工作表1.資料跨程式轉寫" '每一秒轉寫一次

  23. End Sub
複製代碼

作者: GBKEE    時間: 2019-5-6 09:13

回復 1# blue2263

Public Sub 開始() 1.xlsm可定期將資料傳到2.xlsm

我想改為手動先打開兩個EXCEL各自打開1.xlsm &2.xlsm檔案後,直接資料互傳
  
可再詳述你的想法步驟
作者: blue2263    時間: 2019-5-6 20:23

回復 2# GBKEE
G大您好,不好意思,解釋的不夠清楚

我的想法步驟如下
步驟1. 打開EXCEL程式->開啟1.xlsm檔案
步驟2. 打開EXCEL程式->開啟2.xlsm檔案
步驟3. 執行->開始程序->資料跨程式轉寫程序->將資料由1.xlsm定時將資料傳到2.xlsm工作表內

現在的附檔,操作步驟如下
步驟1. 打開EXCEL程式->開啟1.xlsm檔案
步驟2. 執行->開始程序->程序開啟,新的EXCEL程式->程序開啟2.xlsm檔案
步驟3. 資料跨程式轉寫程序->將資料由1.xlsm定時將資料傳到2.xlsm工作表內   

主要差別在步驟2,我不想由程序開啟,想改為手動開啟EXCEL及活頁簿
煩請G大協助,謝謝!!
作者: blue2263    時間: 2019-5-7 05:50

附檔操作時,發現有個問題
1.xlsm定時每一秒轉寫資料到2.xlsm
如下圖在2.xlsm,控制儲存格時,會出現錯誤訊息
請教大大要如何解決
[attach]30526[/attach]
作者: GBKEE    時間: 2019-5-8 08:47

回復 4# blue2263

這錯誤要在執行中才看的出來

步驟2. 執行->開始程序->程序開啟,新的EXCEL程式->程序開啟2.xlsm檔案
關於這點 可參考
關於DDE動態連結問題
作者: blue2263    時間: 2019-5-8 16:40

回復 5# GBKEE
[attach]30544[/attach]

G大您好
我跟著連結操作,沒辦法如上圖
出現必須啟動另一個程式 的訊息
不知那邊出錯了?
作者: blue2263    時間: 2019-5-9 03:38

回復 5# GBKEE
G大您好
因為我少輸入|字原,所以無法正常出現訊息,更正後己可正常打開程式及連結檔案
但昰連結資料一樣無更新,不知道是那個步驟有誤?
[attach]30548[/attach]
作者: GBKEE    時間: 2019-5-9 10:23

回復 7# blue2263

http://forum.twbts.com/redirect.php?goto=findpost&pid=49592&ptid=8779]8]
我PC WIN 10 , 2010版也有這問題還沒搞定
Win 10下也按裝2003版, DEE公式可用,你可試試看
作者: blue2263    時間: 2019-5-9 17:15

回復 8# GBKEE

G大您好

(關於DDE動態連結問題)連結內,Hsieh版主,上傳的圖片,應該是用EXCEL2010版的
不知Hsieh版主,是怎麼做,才讓2010版可以做到DDE連結

[attach]30555[/attach]
作者: blue2263    時間: 2019-5-11 08:19

回復 8# GBKEE
G大您好,我找到如何解決這個問題了,只要改為=excel|'1.xls'!'R1C1'就可以用了
謝謝G大,幫了我一個大忙,這樣我就可以,將肥大EXCEL檔案,分成好幾個檔案,個別運算,來多工處理
:)
[attach]30564[/attach]




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