[發問] 兩個獨立EXCEL 資料互傳

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

ex.rar (29.08 KB)

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

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

再煩請大大協助幫忙,謝謝

Dim app1 As Object, book1 As Excel.Workbook, UMode As Byte
Dim sourcedata As Range, targetdata As Range, temp() As Variant
Public Sub 開始()
UMode = 1
Set app1 = CreateObject("Excel.Application")
Set book1 = app1.Workbooks.Open(ThisWorkbook.Path & "\" & "2.xlsm")
app1.Visible = True
Set sourcedata = Range("A2:I2")
Set targetdata = book1.Sheets("b").Range("A2:I2")
Call 資料跨程式轉寫
End Sub
Public Sub 停止()
UMode = 0
Set app1 = Nothing
Set book1 = Nothing
End Sub
Public Sub 資料跨程式轉寫()
If UMode = 0 Then Exit Sub
Cells(2, 2) = Cells(2, 2) + 2
temp = sourcedata
targetdata.Value = temp '轉寫
Application.OnTime Now + TimeValue("00:00:01"), "工作表1.資料跨程式轉寫" '每一秒轉寫一次
End Sub

複製代碼

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2019-5-6 09:13 | 只看該作者

回復 1# blue2263

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

我想改為手動先打開兩個EXCEL各自打開1.xlsm &2.xlsm檔案後,直接資料互傳

可再詳述你的想法步驟

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

blue2263

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

3^#

發表於 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大協助,謝謝!!

TOP

blue2263