502243

回復 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
    
14. 
    
15.      Sub Ex_結束( )
    
16.           Stop '開啟工作管理員看看
    
17.           Ap.Quit
    
18.           Stop '開啟工作管理員看看
    
19.           Aa.Qui
    
20.           Stop '開啟工作管理員看看
    
21.     End Sub
    
22. 
    
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物件   建立與關閉不能拆分成兩個副程式?
恩...我在多試幾個看看

502243

回復 22# quickfixer

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

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