¶}ÀɮצsÀÉOR¤£¦sÀÉ¥X¿ù

kkooo15

¶}ÀÉ®×¥i¥H¦ý¦s¤£¦æ
¶}¬¡­¶¤£¦æ
½Ð°Ý«e½ú§Ú¤°»ò¦a¤è¦³¿ù»~..ÁÂÁÂ

1. Sub ¶}·s¬¡­¶()
   
2.     Workbook.Add
   
3. End Sub
   
4. Sub Ãö·s¬¡­¶()
   
5.     Workbook.Close
   
6. End Sub
   
7. 
   
8. Sub ¶}ÀÉ®×()
   
9.     Workbooks.Open "C:\Users\Administrator\Desktop\TEST001\ÀÉ®×1.xlsx"
   
10. End Sub
    
11. 
    
12. Sub ÃöÀɮפ£¦s()
    
13. Workbooks "C:\Users\Administrator\Desktop\TEST001\ÀÉ®×1.xlsx": .Close False
    
14. End Sub
    
15. Sub ÃöÀɮצsÀÉ()
    
16. Workbooks "C:\Users\Administrator\Desktop\TEST001\ÀÉ®×1.xlsx": .Close savechanges:=True
    
17. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 1# kkooo15


   ¶}±ÒÀɮ׻ݭn¸ô®|¡AÃö³¬«o¤£¥Î¡A¥u­n¸ÓÀɦWºÙ´N¥i¥H¤F
Workbooks("ÀÉ®×1.xlsx").Close False
¸Ô±¡½Ð°Ñ¦ÒVBE¤¤ªºWorkbooks ª«¥ó¦¨­û¤Î Workbook ª«¥ó¦¨­û ªº»¡©ú