GBKEE

¦^´_ 1# a703130

1. Sub Ex()
   
2.     With Application.Dialogs(xlDialogOpen)
   
3.         If .Show("*.xls") = True Then     '¦³¶}±ÒÀÉ®×
   
4.             With ActiveWorkbook           '¶}±ÒªºÀÉ®×
   
5.                 '½Æ»s¥þ³¡¤u§@ªí
   
6.                 .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
   
7.                 .Close (False)            'Ãö³¬:¶}±ÒªºÀÉ®×
   
8.                 '¤]¥i¥Î²¾°Ê¤èªk
   
9.                 '.Sheets.Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
   
10.             End With
    
11.         End If
    
12.     End With
    
13. End Sub

½Æ»s¥N½X