標題: [發問] 剪貼簿無法釋放，且data開不了 [打印本頁]

---

作者: s7659109    時間: 2018-10-30 11:17     標題: 剪貼簿無法釋放，且data開不了

匯入檔會產生暫存區，會發生匯入後，原DATA再開起時，無畫面
但如果手動去除剪貼簿，則DATA 就可開啟，
請問：如何用vba 去除剪貼簿的暫存資料
Sub test()
'Dim wb As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False '提示視窗消失(應該true 是關掉  false是開啟
Set wb = GetObject(ThisWorkbook.Path & "\data.xlsx")
    With wb.Sheets("data")
         Cells.ClearContents
         R = .Cells(.Rows.Count, 1).End(3).Row
          .Range("a1:D" & R).copy
          [a1].PasteSpecial xlPasteValuesAndNumberFormats
          .Range("G1:i" & R).copy
          [J1].PasteSpecial xlPasteValuesAndNumberFormats
        
       End With

    wb.Close False
   
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

---

作者: bobomi    時間: 2018-10-30 14:03

Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.CutCopyMode = False

---

作者: s7659109    時間: 2018-10-30 14:29

本帖最後由 s7659109 於 2018-10-30 14:37 編輯

貼進來後，解決了，但警示是否要刪除，若Application.DisplayAlerts = False，改為true,不警示，但無法刪除，若不警示，直接刪除，該？

---

作者: bobomi    時間: 2018-10-30 16:48

.......
     End With

    wb.Close False

Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True

---

作者: 准提部林    時間: 2018-10-30 17:14

Application.CutCopyMode = False '放前面
wb.Close False

---

作者: s7659109    時間: 2018-10-31 09:33

解決了，謝謝提供協助。

---

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