GBKEE

¦^´_ 1# borshun88
On Error ³¯­z¦¡ ±Ò°Ê¤@­Ó¿ù»~³B²z±`¦¡¡A¥B«ü©w¦¹±`¦¡¦b¤@­Óµ{§Çùتº¦ì¸m¡C¤]¥i¥Î¨Ó°±¤î¤@­Ó¿ù»~³B²z±`¦¡¡C
Resume ³¯­z¦¡  ¦b¿ù»~³B²z±`¦¡µ²§ô«á¡A«ì´_­ì¦³ªº°õ¦æ¡C»yªk Resume 0 Resume Next

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim A As Workbook, B As Worksheet
   
4.     On Error Resume Next
   
5.     Set A = Workbooks.Open(Filename:=ThisWorkbook.Path & "\bb.xlsm")
   
6.     If Err.Number <> 0 Then
   
7.         MsgBox "ÀÉ®×µLªk¶}±Ò"
   
8.         Exit Sub
   
9.     End If
   
10.     Set B = A.Sheets("¤u§@ªí1")
    
11.     Range("A1") = B.Range("A1")
    
12.    
    
13. End Sub

½Æ»s¥N½X