[發問] 兩個獨立EXCEL 如何將運算完的資料回傳到主Excel?

帖子: 14
主題: 2
精華: 0
積分: 48
點名: 0
作業系統: WIN8
軟體版本: office2013
閱讀權限: 10
性別: 男
註冊時間: 2019-2-25
最後登錄: 2019-8-4

3^#

發表於 2019-3-12 23:24 | 只看該作者

回復 2# zheng211016

感謝zheng211016大大的指教:
1.運算的確是在C.xlsm....因為如果是在同一層excel1.exe裡面處理,這方面的程式我都寫好了
難在新開一個excel2.exe裡面處理後資料回傳..與結束鈕在A.xlsm裡..相關的引用語法我鑽研不出來
2.這邊是小弟筆誤..再C.xlsm D欄多打一個5...造成大家的誤會不好意思..
3.這邊我漏打 ..貼在A.xlsm裡面都可以

ps:因為我程式碼挺多的.所以這邊是大概說明一下方向.
還請各位前輩指點一下...

Scott090

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 55
精華: 0
積分: 599
點名: 43
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-2-20

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

4^#

發表於 2019-3-13 06:17 | 只看該作者

回復 1# 502243

參考一下這裡也許有幫助：
http://forum.twbts.com/viewthrea ... a=pageD1&page=2

帖子: 14
主題: 2
精華: 0
積分: 48
點名: 0
作業系統: WIN8
軟體版本: office2013
閱讀權限: 10
性別: 男
註冊時間: 2019-2-25
最後登錄: 2019-8-4

5^#

發表於 2019-3-13 07:49 | 只看該作者

回復 4# Scott090

感謝前面兩位前輩指點..
這篇我也有注意到....我目前都是鑽研這篇其中得語法..
來繼續撰寫...............只是過程中一直..叮咚叮咚.......
然後還在找相關的文獻...

Scott090

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 55
精華: 0
積分: 599
點名: 43
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-2-20

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

6^#

發表於 2019-3-13 09:00 | 只看該作者

回復 5# 502243

      澄清確認一下：
      Sub newexcel() 這一段程序碼是寫在 Excel2Application.C.xlsm
      叫入 Excel1Application.A.xlsm，然後要到 A.xlsm 執行在A.xlsm 裡面的程式碼( 如按鈕在 A 工作表)，
      用 A 的程式碼把 A 的資料拿到 C 工作表去處理、處理完的資料拿回 A。
      流程回到 C.xlsm 把 A.xlsm 關閉。
      A、C  是2個獨立的物件。

      是這樣嗎?

帖子: 14
主題: 2
精華: 0
積分: 48
點名: 0
作業系統: WIN8
軟體版本: office2013
閱讀權限: 10
性別: 男
註冊時間: 2019-2-25
最後登錄: 2019-8-4

7^#

發表於 2019-3-13 10:37 | 只看該作者

回復 6# Scott090

剛好相反耶…相關的流程圖如新圖所示….

A.xlsm 裡面的程式碼應該只會有:
開始鈕
Sub newexcel()
Dim xlapp As Object
      Set xlapp = CreateObject("Excel.Application") '建立一個新的excel程式
      Set xlbook = xlapp.Workbooks.Open("D:\Excel VBA\c.xlsm") '用excel開啟活頁簿
         xlapp.Visible = True 'excel可以看見
'''''''''' '後面還在撰寫中

End Sub

結束鈕
Sub newexcelclose()

C.xlsm裡面的程式碼:
接收A.xlsm裡面資料
處理資料
回傳資料到A

只是運算與回傳的程式碼的部分
我還在構思要寫在哪個裡面比較洽當….

Scott090

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 55
精華: 0
積分: 599
點名: 43
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-2-20

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

8^#

發表於 2019-3-13 10:59 | 只看該作者

回復 7# 502243

所以版主的訴求是  A  專案程式碼呼叫 C 專案內的程式碼?
   可以參考本論壇：
         http://forum.twbts.com/thread-5960-1-1.html
                     如何用巨集呼叫巨集
                     呼叫不同專案的程序   Run "123.XLS!A01.MAIN"

   或，其他網址
            https://samlifebox.blogspot.com/2015/02/macro-macro.html
                     Excel 之 macro 呼叫 macro

   A、C 是不同的Excel.Application物件，改一改也許可行

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兔年全勤獎章

9^#

發表於 2019-3-13 14:13 | 只看該作者

本帖最後由 GBKEE 於 2019-3-13 14:15 編輯

回復 7# 502243
試試看

'****A.xlsm 裡面
'**物件類別模組 Class1 的程式碼
Option Explicit
Public WithEvents App As Application
Property Set T_APP(p As Application)
Set App = p '物件類別導入物件
App.Visible = True
End Property

複製代碼

'A.xlsm
'一般 Module1 的程式碼
Option Explicit
Public xApp As New Class1
Public Ap As Object
Private Sub Ex_開始()
Set Ap = New Application
Set xApp.T_APP = Ap
Ap.Workbooks.Open (ThisWorkbook.Path & "\C.XLSM")
'** 請修正為正確檔案名稱***
End Sub
Sub Ex_newexcel()
Dim AR As Variant, Rng As Range, E As Range
With ThisWorkbook.Sheets(1) '指名A檔下
Set Rng = .Range("A1", .Range("A1").End(xlDown))
End With
AR = Rng.Value 'A檔下的數值
Set Rng = Ap.Workbooks(1).Sheets(1).Range("A1") '指名C檔下
Rng.EntireColumn = ""
Set Rng = Rng.Resize(UBound(AR))
Rng.Value = AR 'A檔下的數值貼在B檔上
AR = "" 'AR 清空
For Each E In Rng
'大於5 寫上D欄的值
If E > 5 Then AR = AR & "," & E.Range("d1")
Next
Set Rng = ThisWorkbook.Sheets(1).Range("C:C") '
Rng = ""
If AR <> "" Then
AR = Split(Mid(AR, 2), ",")
Rng(1).Resize(UBound(AR)) = Application.WorksheetFunction.Transpose(AR)
'B檔-->'大於5 寫上D欄的值 **寫在A檔C欄
End If
End Sub
Private Sub Ex_結束()
Ap.Workbooks(1).Close False
xApp.App.Visible = False
End Sub

複製代碼

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

帖子: 14
主題: 2
精華: 0
積分: 48
點名: 0
作業系統: WIN8
軟體版本: office2013
閱讀權限: 10
性別: 男
註冊時間: 2019-2-25
最後登錄: 2019-8-4

10^#

發表於 2019-3-13 20:46 | 只看該作者

回復 9# GBKEE

請教GBKEE大大:
剛看了幾個小時在一行一行測試..
有幾個地方不太明白
1.
For Each E In Rng
         '大於5 寫上D欄的值
         If E > 5 Then AR = AR & "," & E.Range("d1")    <===E.Range("d1")  為何是用E?而不是用Ap.Workbooks("c").Sheets(1)...這段看不大明白
      Next

      Set Rng = Ap.Workbooks("1").Sheets(1).Range("C:C") '
      Rng = ""
      If AR <> "" Then '有資料 <====AR最上面不是已經清空為0了??
         AR = Split(Mid(AR, 2), ",") '分割
         Rng(1).Resize(UBound(AR)) = Application.WorksheetFunction.Transpose(AR)
         'B檔-->'大於5 寫上D欄的值 **寫在A檔C欄
      End If

2.跑的時候C.xlsm檔案A欄有複製到值..但D欄還是一樣空空的...而且不會copy回A.xlsm ...C欄
3.另外請問GBKEE大大如果想關閉新開的excel.exe這個物件...當下應該用甚麼指令才行呢? xApp.App.Quit    ' Ap.Quit    ' Ap.Close <==這幾個我試好像都不行