none
[VBA]如何利用程式碼 處理"剪貼簿還有大量資料,以後還會用到嗎" 的訊息 RRS feed

  • 問題

  • 當我從A.XLS  複製 SHEET 貼到 B.XLS 後,出現
    "剪貼簿還有大量資料,以後還會用到嗎" 的訊息
    有時候,可以利用 Application.DisplayAlerts = False  取消顯示
    但有些 時候,卻無法 利用Application.DisplayAlerts = False 來取消,因為反而會造成 XLS 掛掉--"無回應"
    請問 是否有程式碼 可以 點選該視窗的訊息  "否"  直接處理掉呢
    Sub Macro2()

        ChDir "C:\X"
        
        f = "230_tdk0423_443502090_0001.xls"
        
        Workbooks.Open filename:=f  '--開啟被複製的XLS
        Cells.Select                '--COPY活頁所有資料
        Selection.Copy
        Windows("上載資料.xls").Activate  '----貼到目標 XLS
        Cells.Select
        ActiveSheet.Paste
        
        
        Windows(f).Activate '----沏回來源的 XLS
        
            '------------有些來源資料可以利用     Application.DisplayAlerts = False ,過濾掉 "剪貼簿還有大量資料,以後還會用到嗎" 的訊息
            
            '但有些時候 利用Application.DisplayAlerts = False ,卻會造成 該XLS 掛掉
        ActiveWindow.Close
        
        
        
        Application.WindowState = xlMinimized
    End Sub
    2007年5月7日 上午 08:53

解答