Hsieh

¦^´_ 1# 198188

1. Private Sub cmdMerge_Click()
   
2. Dim wb As Workbook, msh As Worksheet, mxsh As Worksheet, fs As String, sh, Tr As Range
   
3. Application.ScreenUpdating = False
   
4. fd = ThisWorkbook.Path & "\" 'Àɮץؿý"
   
5. Set msh = ThisWorkbook.Sheets("°Ñ¼Æ³]©w")
   
6. Set mxsh = ThisWorkbook.Sheets("¦X¨Öµ²ªG")
   
7. fs = fd & msh.[B1] & "." & msh.[B2]
   
8. If Dir(fs) = "" Then MsgBox "Àɮץؿý¿ù»~½ÐÀˬd": Exit Sub
   
9. mxsh.Cells.Clear
   
10. Set wb = Workbooks.Open(fs)
    
11.   For Each sh In msh.Range(msh.[B6], msh.[B6].End(xlDown))
    
12.      With wb.Sheets(CStr(sh))
    
13.      If Tr Is Nothing Then Set Tr = .Range(.[A1], .[A1].End(xlToRight)): Tr.Copy mxsh.[A1]
    
14.         .Range("A1").CurrentRegion.Offset(msh.[B4], msh.[B3] - 1).Copy mxsh.[A65536].End(xlUp).Offset(1)
    
15.      End With
    
16.   Next
    
17. wb.Close 0
    
18. MsgBox "¦X¨Ö§¹¦¨"
    
19. Application.ScreenUpdating = True
    
20. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# 198188


    workbooks.open¥D­n¬Ofilename¤Þ¼Æªº¨ú±o
filename¬O¬¡­¶Ã¯ªº¸ô®|¥]§tÀɮצWºÙ©Ò²Õ¦¨ªº¦r¦ê
·Q·Q¦p¦ó±o¨ì¦¹¦r¦ê¬O¸Ñ¨M°ÝÃDªº®Ú¥»
½×¾Â¤¤¦¹Ãþ¤å³¹¬Æ¦h¥i¥H°Ñ¦Ò