GBKEE

¦^´_ 1# twcg

1. Sub Ex()
   
2.     Dim MergePath As String, FS As Object, MergeWorkbook As Workbook, E
   
3.     MergePath = "D:\test\"  '¦X¨ÖÀɮתº¸ê®Æ§¨
   
4.     Set FS = CreateObject("Scripting.FileSystemObject").GETFOLDER(MergePath).Files
   
5.     'FS=¦X¨ÖÀɮ׸ê®Æ§¨¤¤©Ò¦³Àɮת«¥óªº¶°¦X
   
6.     Set MergeWorkbook = Workbooks.Add(xlWBATWorksheet)  '·s¶}ªºÀÉ®×
   
7.     Application.ScreenUpdating = False
   
8.     For Each E In FS
   
9.         If E Like "*.xls" Then  'ÀÉ®× ªº°ÆÀɦW¬°xls
   
10.             With Workbooks.Open(E)
    
11.                 .Sheets(1).Copy MergeWorkbook.Sheets(1)  '±N¤u§@ªí ½Æ»s¨ì·s¶}ªºÀɮפ¤
    
12.                 .Close
    
13.             End With
    
14.         End If
    
15.     Next
    
16.     Application.DisplayAlerts = False
    
17.     MergeWorkbook.SaveAs MergePath & "¦X¨Ö.XLS"  '¦X¨ÖÀɦsÀÉ
    
18.     Application.DisplayAlerts = True
    
19.     Application.ScreenUpdating = True
    
20. End Sub

½Æ»s¥N½X

GBKEE

¦^´_  GBKEE

    «Ü¦n¥Îªº¥\¯à, ½Ð°Ý¬O§_¥i¥H±N¤u§@ªí¦WºÙ«ö­ì¨Ó¤u§@ï¦WºÙ©R¦W?
ANGELA µoªí©ó 2010-10-5 10:50

With Workbooks.Open(E)
       .Sheets(1).Copy MergeWorkbook.Sheets(1)  '±N¤u§@ªí ½Æ»s¨ì·s¶}ªºÀɮפ¤
     MergeWorkbook.Sheets(1).Name = E.Name
       .Close
End With

GBKEE

¦^´_  GBKEE


    ½Ð°Ý³o­n¥Î¤°»òµ{¦¡¥h°õ¦æ
twcg µoªí©ó 2010-10-5 13:01

½Ð¥ý±Nµ{¦¡½Æ»s¨ìÀÉ®×VBA±M®×¸Ì ¥B­×§ïMergePath ¬°¦X¨ÖÀɮתº¸ê®Æ§¨¬°¥¿½Tªº¸ô®|
¤èªk¤@ ¦p¹Ï1

¤U¸ü (31.02 KB)

2010-10-5 14:14

¤èªk¤G ¦p¹Ï2

¤U¸ü (33.93 KB)

2010-10-5 14:21

¤èªk¤T ¦p¹Ï3    1.¶·±N·Æ¹«²¾°Ê¨ì«ü©wªºµ{¦¡½X  2.«öF5 °õ¦æ«ü©wªºµ{¦¡

¤U¸ü (44.51 KB)

2010-10-5 14:29

GBKEE

¦^´_ 8# b9208
MergeWorkbook.Sheets(1).Name =Mid( E.Name, 5, 6)

GBKEE

¦^´_ 11# qwern
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim MergePath As String, FS As String, Rng As Range
   
4.     MergePath = "D:\test\"                                      '¦X¨ÖÀɮתº¸ê®Æ§¨
   
5.     FS = Dir(MergePath & "*.xls")                               '´M§ä xls ÀÉ®×
   
6.     If FS <> "" Then
   
7.         Set Rng = Workbooks.Add(xlWBATWorksheet).Sheets(1).[a1] '·s¶}ªºÀÉ®×(¥u¦³¤@±i¤u§@ªí)¤u§@ªíªºA1
   
8.         Application.ScreenUpdating = False
   
9.         Application.DisplayAlerts = False
   
10.         Do
    
11.             With Workbooks.Open(MergePath & FS)
    
12.                 .Sheets(1).UsedRange.Copy Rng                     'MergePath & ¤¤¤u§@ªí¸ê®Æ  ½Æ»s¨ìRng
    
13.                 .Close
    
14.             End With
    
15.             FS = Dir                                              'Ä~Äò´M§ä(MergePath & "*.XLS")
    
16.             Set Rng = Rng.End(xlDown).Offset(1)                   '­«³]Rng ¬°©¹¤U¨ì³Ì«á¦³¸ê®ÆªºÀx¦s®æ¤U¤@­ÓªÅ¥Õ¤§Àx¦s®æ
    
17.         Loop While FS <> ""
    
18.         Application.DisplayAlerts = False
    
19.         Rng.Parent.Parent.SaveAs MergePath & "¦X¨Ö.xls"           '¦X¨ÖÀɦsÀÉ
    
20.         Application.DisplayAlerts = True
    
21.         Application.ScreenUpdating = True
    
22.     Else
    
23.         MsgBox MergePath & " ¨S¦³ xls ÀÉ®×"
    
24.     End If
    
25. End Sub

½Æ»s¥N½X

PS «ö¦^ÂÐÁä §A­n¦^ÂЪ̷|±o¨ì³qª¾

GBKEE

¦^´_ 13# leungko
MergePath = "D:\test\"                                      '¦X¨ÖÀɮתº¸ê®Æ§¨:³o¸Ì ­n¦³ °ÆÀɦW¬° xls ªºEXCELÀÉ®×
FS = Dir(MergePath & "*.xls")                             '´M§ä xls ÀÉ®×

GBKEE

¦^´_ 15# leungko

MergePath = "D:\test\"                                      '¦X¨ÖÀɮתº¸ê®Æ§¨:³o¸Ì ­n¦³ °ÆÀɦW¬° xls ªºEXCELÀÉ®×

¬õ¦âªº¸ô®|¥i­×§ï¬°§A¤¤PC ¦³°ÆÀɦW¬° xls EXCELÀɮתº¸ê®Æ§¨

GBKEE

¦^´_ 17# leungko
¦A§ï¤@¤U¸Õ¸Õ¬Ý
MergePath = "C:\Documents and Settings\choikeun\Desktop\New\"                                      '¦X¨ÖÀɮתº¸ê®Æ§¨