開檔案存檔OR不存檔出錯

kkooo15

開檔案可以但存不行
開活頁不行
請問前輩我什麼地方有錯誤..謝謝

1. Sub 開新活頁()
   
2.     Workbook.Add
   
3. End Sub
   
4. Sub 關新活頁()
   
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 關檔案不存()
    
13. Workbooks "C:\Users\Administrator\Desktop\TEST001\檔案1.xlsx": .Close False
    
14. End Sub
    
15. Sub 關檔案存檔()
    
16. Workbooks "C:\Users\Administrator\Desktop\TEST001\檔案1.xlsx": .Close savechanges:=True
    
17. End Sub

複製代碼

lpk187

回復 1# kkooo15


   開啟檔案需要路徑，關閉卻不用，只要該檔名稱就可以了
Workbooks("檔案1.xlsx").Close False
詳情請參考VBE中的Workbooks 物件成員及 Workbook 物件成員 的說明