GBKEE

¦^´_ 7# 502243
¸Õ¸Õ¬Ý

1. '****A.xlsm ¸Ì­±
   
2. '**ª«¥óÃþ§O¼Ò²Õ Class1 ªºµ{¦¡½X
   
3. Option Explicit
   
4. Public WithEvents App  As Application
   
5. Property Set T_APP(p As Application)
   
6.     Set App = p     'ª«¥óÃþ§O ¾É¤Jª«¥ó
   
7.     App.Visible = True
   
8. End Property

½Æ»s¥N½X

1. 'A.xlsm
   
2. '¤@¯ë Module1 ªºµ{¦¡½X
   
3. Option Explicit
   
4. Public xApp As New Class1
   
5. Public Ap As Object
   
6. Private Sub Ex_¶}©l()
   
7.     Set Ap = New Application
   
8.     Set xApp.T_APP = Ap
   
9.     Ap.Workbooks.Open (ThisWorkbook.Path & "\C.XLSM")
   
10.                       '** ½Ð­×¥¿¬°¥¿½TÀɮצWºÙ***
    
11. End Sub
    
12. Sub Ex_newexcel()
    
13.     Dim AR As Variant, Rng As Range, E As Range
    
14.     With ThisWorkbook.Sheets(1)  '«ü¦WAÀɤU
    
15.         Set Rng = .Range("A1", .Range("A1").End(xlDown))
    
16.     End With
    
17.     AR = Rng.Value  'AÀɤUªº¼Æ­È
    
18.     Set Rng = Ap.Workbooks(1).Sheets(1).Range("A1") '«ü¦WCÀɤU
    
19.     Rng.EntireColumn = ""
    
20.     Set Rng = Rng.Resize(UBound(AR))
    
21.     Rng.Value = AR  'AÀɤUªº¼Æ­È¶K¦bBÀɤW
    
22.     AR = ""           'AR ²MªÅ
    
23.     For Each E In Rng
    
24.         '¤j©ó5 ¼g¤WDÄ檺­È
    
25.         If E > 5 Then AR = AR & "," & E.Range("d1")
    
26.     Next
    
27.     Set Rng = ThisWorkbook.Sheets(1).Range("C:C")   '
    
28.     Rng = ""
    
29.     If AR <> "" Then
    
30.         AR = Split(Mid(AR, 2), ",")
    
31.         Rng(1).Resize(UBound(AR)) = Application.WorksheetFunction.Transpose(AR)
    
32.         'BÀÉ-->'¤j©ó5 ¼g¤WDÄ檺­È **¼g¦bAÀÉCÄæ
    
33.     End If
    
34. End Sub
    
35. 
    
36. Private Sub Ex_µ²§ô()
    
37.     Ap.Workbooks(1).Close False
    
38.     xApp.App.Visible = False
    
39. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# 502243
§A¥u¥Î¹Ï¤ù»¡©ú,¦ý¦p¦A¯à¥[¤W½d¨ÒÀɲ»¥[»¡©ú¤@¤Áª¬ªp,
¦^ÂЪ̷|¶K¤Áªº¦^µª  


§AºÃ´b<===E.Range("d1")  ¬°¦ó¬O¥ÎE?¦Ó¤£¬O¥ÎAp.Workbooks("c").Sheets(1)
Aªº¸ê®Æ ¤£¬O­n¶K¤WC ªºAÄæ ¶Ü?
Set Rng = Ap.Workbooks(1).Sheets(1).Range("A1") '«ü¦WCÀɤU
¿z¿ï[AÄæ]>5 ¨úªº C ªºDÄæ ªº¸ê®Æ  >>¤£´N  E.Range("d1")

§AºÃ´b  If AR <> "" Then '¦³¸ê®Æ    <====AR³Ì¤W­±¤£¬O¤w¸g²MªÅ¬°0¤F??
³o¸Ì°Ú******
For Each E In Rng
        '¤j©ó5 ¼g¤WDÄ檺­È  **¦³
        If E > 5 Then AR = AR & "," & E.Range("d1")
    Next
***********
xApp.App.Quit   ©Î   Ap.Quit      ³£¥i


¦^´_ 14# 502243
¤£¦Pexcel.exe  ¶¡ ªºª«¥ó µLªk¥ÎCopy

GBKEE

¦^´_ 16# 502243
    '¤@¯ë Module ªºµ{¦¡½X

1.     Option Explicit
   
2.     Public Ap As Object, Aa As Object
   
3.    Sub Ex_¶}©l()
   
4.          '·s¶}2­ÓExcel µ{¦¡
   
5.          Set Ap = New Application
   
6.         Set Aa = New Application
   
7.          Stop '¶}±Ò¤u§@ºÞ²z­û¬Ý¬Ý
   
8.         Ap.Visible = True
   
9.        Stop '¶}±Ò¤u§@ºÞ²z­û¬Ý¬Ý
   
10.         Aa.Visible = True
    
11.         Stop '¶}±Ò¤u§@ºÞ²z­û¬Ý¬Ý
    
12.          
    
13.     End Sub
    
14.      Sub Ex_µ²§ô()
    
15.           Stop '¶}±Ò¤u§@ºÞ²z­û¬Ý¬Ý
    
16.           Ap.Quit
    
17.           Stop '¶}±Ò¤u§@ºÞ²z­û¬Ý¬Ý
    
18.           Aa.Quit
    
19.           Stop '¶}±Ò¤u§@ºÞ²z­û¬Ý¬Ý
    
20.     End Sub
    
21.    

½Æ»s¥N½X