標題: 強制關閉複製的EXCEL [打印本頁]

---

作者: s13983037    時間: 2014-11-22 22:30     標題: 強制關閉複製的EXCEL

大大您好 我想請問一下 當我複製EXCEL中的資料 卻無法關閉 這有甚麼方法可以強制關閉EXCEL嗎
感謝協助

Dim Path As String
Path = ThisWorkbook.Path
Workbooks.Open Path & "\" & Range("B1")
Workbooks("aabtxt").Activate
Workbooks("aabtxt").Sheets(1).Range("A1").Select
Workbooks("aabtxt").Sheets(1).Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy
Windows("測試用2.xlsx").Activate
Worksheets(2).Range("A1").PasteSpecial
'Workbooks("aabtxt").SaveChanges:= False
Workbooks("aabtxt").Close SaveChanges:=False

---

作者: PKKO    時間: 2014-11-22 22:40

1. Dim Path As String
   
2. 如果您的問題是因為你拍的圖片的關係,有簡單兩種方式解決
   
3. 關閉警告視窗 以及清除剪貼簿
   
4. 'Application.DisplayAlerts = False'關閉警告視窗
   
5. Path = ThisWorkbook.Path
   
6. Workbooks.Open Path & "\" & Range("B1")
   
7. Workbooks("aabtxt").Activate
   
8. Workbooks("aabtxt").Sheets(1).Range("A1").Select
   
9. Workbooks("aabtxt").Sheets(1).Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy
   
10. Windows("測試用2.xlsx").Activate
    
11. Worksheets(2).Range("A1").PasteSpecial
    
12. Application.CutCopyMode = xlCopy'清除剪貼簿
    
13. 'Workbooks("aabtxt").SaveChanges:= False
    
14. Workbooks("aabtxt").Close SaveChanges:=False

複製代碼

回復 1# s13983037

---

作者: s13983037    時間: 2014-11-22 23:01

回復 2# PKKO


    感謝幫忙 原來只要這樣就OK了

---

作者: PKKO    時間: 2014-11-23 00:32

回復 3# s13983037


    哪裡,我不小心把說明打入程式碼,哈哈!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)