GBKEE

¦^´_ 2# enoch
±N¦³Ãö¤u§@ªí¥t¦s¦¨­Ó§OÀÉ®×,¨Ã¦s©ñ¦bc:\import ¤º, ¨Ò¦p:
ÀÉ®×AA ¥]¬A ¤u§@ªí sheet1, sheet2, sheet3, ¤Îbook1,book2 ¤ºªº©Ò¦³¤u§@ªí
ÀÉ®×BB ¥]¬A ¤u§@ªí sheet4, sheet5, sheet6, book3¤ºªº©Ò¦³¤u§@ªí
sheet1, sheet2, sheet3,sheet4, sheet5, sheet6 ¬O¶}±Ò¤¤Àɮתº¤u§@ªí¶Ü?

GBKEE

¦^´_ 4# enoch
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim NewBook As Workbook
   
3.     With Workbooks("summary.xls")
   
4.         '''''''''''''''''''''''''''''''''''
   
5.         Set NewBook = Workbooks.Open("c:\export\BOOK1.XLS")     '¶}±ÒBOOK1
   
6.         With Workbooks.Open("c:\export\BOOK2.XLS")              '¶}±ÒBOOK2
   
7.             .Sheets.Copy After:=NewBook.Sheets(NewBook.Sheets.Count) '¥þ³¡¤u§@ªí½Æ»s¨ì BOOK1ªº«á­±
   
8.             .Close False                                        'Ãö³¬BOOK2 ¤£¦sÀÉ
   
9.         End With
   
10.         .Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy After:=NewBook.Sheets(NewBook.Sheets.Count)
    
11.                                                                 '©Ò¿ïªº¤u§@ªí½Æ»s¨ì BOOK1ªº«á­±
    
12.         NewBook.Close True, "c:\test\AA.XLS"                    'Ãö³¬BOOK1 ¦sÀɬ° "c:\test\AA.XLS"
    
13.         ''''''''''''''''''''''''''''''''''''''''''
    
14.         Set NewBook = Workbooks.Open("c:\export\BOOK3.XLS")     '¶}±ÒBOOK3
    
15.         .Sheets(Array("Sheet4", "Sheet5", "Sheet6")).Copy After:=NewBook.Sheets(NewBook.Sheets.Count)
    
16.                                                                 '©Ò¿ïªº¤u§@ªí½Æ»s¨ì BOOK3ªº«á­±
    
17.         NewBook.Close True, "c:\test\BB.XLS"                    'Ãö³¬BOOK3 ¦sÀɬ° "c:\test\BB.XLS"
    
18.     End With
    
19. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# enoch
¦p¦¹ªº¸Ü ¬°¦ó§A1¼ÓªºªþÀÉ¥u¦³¤T­Ó¤u§@ªí