|
DisplayFormulaBarとDisplayStatusBarの設定時にCutCopyModeがFalseになるのが原因です。
>表内のデータをコピーして、新規bookを開き、形式選択で書式と
>値を貼り付けた後、指定した名称で保存するというVBAを組んでいるのですが、
>そこでエラーが発生しました。
マクロで実行しているわけですから、その中でApplication.EnableEventsプロパティを制御して
Workbook_WindowDeactivateイベントが走らないようにすれば良いです。
もしくは、
Sub test()
With Workbooks.Add(xlWBATWorksheet) 'ここでWindowDeactivateイベントが発生する
ThisWorkbook.Sheets("台帳").Range("A1").Copy
With .Sheets(1).Range("A1")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False
.SaveAs "c:\temp\temp.xls"
.Close
End With
End Sub
このようにWindowDeactivateイベントの後でCopyメソッドを発行するような順番にすれば良いです。
基本的には、EnableEventsプロパティでの制御をおすすめします。
#手作業でもコピー可能にしたい場合は、ひと工夫必要です。
|
|