GBKEE

¦^´_ 1# PKKO
¬O³o¼Ë¶Ü?
¸Õ¸Õ¬Ý

1. Sub Àx¦s«eÀx¦s¦Ü¸ê®Æ®w()
   
2.     Dim Xpath  As String
   
3.     Xpath "P:\REPORT\Daily Check\"
   
4.     Workbooks("x.xlsb").Close False  'Àx¦s¶}±Ò¤¤ªºÀÉ®×,¦¹¶}±Ò¤¤ªºÀɶ·¥ýÃö³¬
   
5.     Application.DisplayAlerts = False
   
6.     ThisWorkbook.SaveCopyAs Xpath & "x.xlsb"  'ThisWorkbook -> ³oµ{¦¡¦b "A.xlsb"ªº±M®×¼Ò²Õ¤¤
   
7.     Application.DisplayAlerts = True
   
8.     Workbooks.Open Xpath & "x.xlsb", ReadOnly:=True  '¦A«×¶}±ÒÀÉ®×(°ßŪ)
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# PKKO

1. Sub Àx¦s«eÀx¦s¦Ü¸ê®Æ®w()
   
2.     Dim Xpath  As String, Sh(1 To 2) As Worksheet, Wo(1 To 2) As Workbook, A As Variant
   
3.     Xpath = "P:\REPORT\Daily Check\"
   
4.     Set Wo(1) = Workbooks("x.xlsb")
   
5.     Wo(1).Close False   'Àx¦s¶}±Ò¤¤ªºÀÉ®×,¦¹¶}±Ò¤¤ªºÀɶ·¥ýÃö³¬
   
6.     Set Wo(1) = Workbooks.Open(Xpath & "x.xlsb")
   
7.     For Each A In Array("A.xlsb", "b.xlsb", "f.xlsb") 'Àɮצ³AÀÉ,BÀÉ~FÀÉ
   
8.         Set Wo(2) = Workbooks.Open(Xpath & A)
   
9.         For Each Sh(2) In Wo(2).Sheets
   
10.             On Error Resume Next
    
11.             Set Sh(1) = Wo(1).Sheets(Sh(2).Name)
    
12.             If Err <> 0 Then
    
13.                 Sh(2).Copy , Wo(1).Sheets(Wo(1).Sheets.Count)
    
14.                 Err.Clear
    
15.                 On Error GoTo 0
    
16.             Else
    
17.                 Sh(1).UsedRange.Clear
    
18.                 Sh(2).UsedRange.Copy Sh(1).Range("a1")
    
19.             End If
    
20.         Next
    
21.         Wo(2).Close False
    
22.     Next
    
23.     Wo(1).Close True
    
24.     Workbooks.Open Xpath & "x.xlsb", ReadOnly:=True  '¦A«×¶}±ÒÀÉ®×(°ßŪ)
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# PKKO

¦ý¥H¤U¨â¦æµ{¦¡½X¬ÒµL¤ÏÀ³
Sh(1).UsedRange.Clear
Sh(2).Copy Sh(1).Range("a1")

¶·§ó¥¿¬°

1. Sh(2).UsedRange.Copy Sh(1).Range("a1")

½Æ»s¥N½X