stillfish00

¦^´_ 1# yangjie
2.    Application.EnableEvents = False

1. Sub Test()
   
2.   Dim wb1 As Workbook, wb2 As Workbook
   
3.   
   
4.   Application.EnableEvents = False
   
5.   Application.ScreenUpdating = False
   
6.   Application.DisplayAlerts = False
   
7.   
   
8.   Set wb1 = Workbooks.Open("C:\B.xls")
   
9.   Set wb2 = Workbooks.Open("C:\C.xls")
   
10.   wb1.Sheets(Array("sheet1", "sheet2", "sheet3")).Copy After:=wb2.Sheets(wb2.Sheets.Count)
    
11.   wb1.Close False
    
12.   wb2.Close True
    
13.   
    
14.   Application.DisplayAlerts = True
    
15.   Application.ScreenUpdating = True
    
16.   Application.EnableEvents = True
    
17. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 3# yangjie

1. Sub Test()
   
2.   Dim wb1 As Workbook, wb2 As Workbook
   
3.   Dim s
   
4.   
   
5.   Application.EnableEvents = False
   
6.   Application.ScreenUpdating = False
   
7.   Application.DisplayAlerts = False
   
8.   
   
9.   Set wb1 = Workbooks.Open("C:\B.xls")
   
10.   Set wb2 = Workbooks.Open("C:\C.xls")
    
11.   
    
12.   On Error GoTo ERR_HANDLE
    
13.     For Each s In Array("sheet1", "sheet2", "sheet3")
    
14.       wb1.Sheets(s).Copy After:=wb2.Sheets(wb2.Sheets.Count)
    
15.     Next s
    
16.   On Error GoTo 0
    
17.   
    
18.   wb1.Close False
    
19.   wb2.Close True
    
20.   
    
21.   Application.DisplayAlerts = True
    
22.   Application.ScreenUpdating = True
    
23.   Application.EnableEvents = True
    
24.   Exit Sub
    
25.    
    
26. ERR_HANDLE:
    
27.   '©¿²¤(°}¦C¯Á¤Þ¶W¥X½d³ò)¿ù»~
    
28.   If Err.Number = 9 Then Resume Next
    
29.   
    
30.   'Other Error
    
31.   Debug.Print "Error :" & Err.Number & Chr(13) & Err.Description
    
32.   Stop
    
33. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 4# yangjie
§Ú°õ¦æ«á¡A­Y wb¤w¦³sheet1, sheet3, ·|½Æ»s¦¨ sheet1 (1)¡Bsheet3 (1)¡A­ì¥»´N¤£·|Âл\¸ê®Æ¤F¡A¤£¾å±o³Æ¥÷¬O¬Æ»ò¥Î·N?

stillfish00

¦^´_ 8# yangjie
³o¼Ë¨ä¹ê¬O¤£¦nªº§ó·s¤èªk¡A¦ý¬O­n§A­«·s§âVBA»P¸ê®Æ³¡¤À¤À¶}¤S¤£¤Ó²{¹ê¡A8# ªºcode ¥i¥H§â

1.             For j = 1 To wb.Sheets.Count
   
2.                 If wb.Sheets(j).Name = wb1.Sheets(i).Name Then
   
3.                     wb.Sheets(j).Copy After:=wb.Sheets(wb.Sheets.Count)
   
4.                     wb.Sheets(j).Delete
   
5.                     Exit For
   
6.                 End If
   
7.             Next
   
8.             wb1.Sheets(i).Copy After:=wb.Sheets(wb.Sheets.Count)

½Æ»s¥N½X

§ï¦¨¤U­±¸Õ¬Ý¬Ý(¨Ì4#©Ò»¡§ó¦W¡Acopy §ï move...¤Ï¥¿wb1¤£Àx¦s)

1.             For j = 1 To wb.Sheets.Count
   
2.                 If wb.Sheets(j).Name = wb1.Sheets(i).Name Then
   
3.                     wb.Sheets(j).Name = wb.Sheets(j).Name & "_old"
   
4.                     Exit For
   
5.                 End If
   
6.             Next
   
7.             wb1.Sheets(i).Move After:=wb.Sheets(wb.Sheets.Count)

½Æ»s¥N½X