GBKEE

¦^´_ 1# boyao
¤£ª¾§A­n«ç§Ë,µ¹§A¤@­Ó¤è¦V.

1. Private Sub CommandButton1_Click()
   
2.     If Dir([a1]) = "" Then
   
3.         With Application.FileDialog(msoFileDialogFilePicker)
   
4.             .InitialFileName = Range("a1")
   
5.             Do While .Show = 0   '°õ¦æ°j°é: ¨S¦³¿ï¨úÀÉ®×
   
6.             Loop
   
7.             [a1] = .SelectedItems(1) '¶}±Ò ©Ò¿ïªºÀÉ®×
   
8.         End With
   
9.     End If
   
10.     UserForm1.Show
    
11.     'UserForm1¤¤¥Î Workbooks.Open ([A1])
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# boyao

1. Private Sub CommandButton2_Click()
   
2.     'BBBÀÉ®×Ãö³¬«á´N·|¦^¨ìÀɮתºµøµ¡
   
3.     Workbooks([A1]).Close False  '«ü©w¬¡­¶Ã¯.Ãö³¬ÀÉ®× ¤£¦sÀÉ
   
4.     'ThisWorkbook.Activate          '³o¤£´N¬O¦^¨ìÀɮתºµøµ¡
   
5.    
   
6.     'ActiveWorkbook.Close False  '¨Ï¥Î¤¤¬¡­¶Ã¯
   
7.     'Workbooks(1).Close False    '¨Ì¬¡­¶Ã¯¯Á¤Þ
   
8.     'ThisWorkbook.Close False    'µ{¦¡½X©Ò¦b¬¡­¶Ã¯
   
9. End Sub

½Æ»s¥N½X