12
返回列表 上一主題 發帖

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

502243

帖子
14 
主題
2 
精華
0 
積分
48 
點名
0  
作業系統
WIN8 
軟體版本
office2013 
閱讀權限
10 
性別
男 
註冊時間
2019-2-25 
最後登錄
2019-8-4 
11# 跳轉到 »
發表於 2019-3-15 08:41 | 顯示全部帖子
本帖最後由 502243 於 2019-3-15 08:43 編輯

回復 18# GBKEE
  1.   '一般 Module 的程式碼
  2. Option Explicit
  3.     Public Ap As Object, Aa As Object
  4.    Sub Ex_開始( )
  5.          '新開2個Excel 程式
  6.          Set Ap = New Application
  7.           Set Aa = New Application
  8.             Stop '開啟工作管理員看看
  9.              Ap.Visible = True
  10.             Stop '開啟工作管理員看看
  11.              Aa.Visible = True
  12.       '  Stop '開啟工作管理員看看         
  13.     End Sub

  15.      Sub Ex_結束( )
  16.           Stop '開啟工作管理員看看
  17.           Ap.Quit
  18.           Stop '開啟工作管理員看看
  19.           Aa.Qui
  20.           Stop '開啟工作管理員看看
  21.     End Sub

  23.     Sub test( )
  24.         Dim app1 As Object, book1 As Excel.Workbook
  25.         Set app1 = CreateObject("Excel.Application")
  26.         app1.Visible = True                 
  27.         app1.Quit
  28.         Set app1 = Nothing
  29.     End Sub
複製代碼
剛試了一下 test可以完全關閉新建立excel.exe  與上面的差異 多了一個set app1=Nothing
所以新建excel物件   建立與關閉不能拆分成兩個副程式?
恩...我在多試幾個看看

TOP

502243

帖子
14 
主題
2 
精華
0 
積分
48 
點名
0  
作業系統
WIN8 
軟體版本
office2013 
閱讀權限
10 
性別
男 
註冊時間
2019-2-25 
最後登錄
2019-8-4 
12#
發表於 2019-3-19 10:50 | 顯示全部帖子
回復 22# quickfixer

感謝quickfixer大..一語驚醒夢中人..
還在想說怎麼拆分...
現在已經順利將建成物件..和A檔copy到C檔..C檔copy回A檔 ..分成3個副程式框架
剩下再把其餘的副程式加入其中...
調整一些流程步驟..

感謝回應這篇主題的各位前輩點醒...

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
12
返回列表 上一主題