返回列表 上一主題 發帖

[發問] 剪貼簿無法釋放,且data開不了

[發問] 剪貼簿無法釋放,且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

1071030.zip (72.77 KB)

希望支持!

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

TOP

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

貼進來後,解決了,但警示是否要刪除,若Application.DisplayAlerts = False,改為true,不警示,但無法刪除,若不警示,直接刪除,該?
希望支持!

TOP

.......
     End With

    wb.Close False

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

TOP

Application.CutCopyMode = False '放前面
wb.Close False
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

解決了,謝謝提供協助。
希望支持!

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題