PageBreak プロパティを設定できません。(AccessVBAでエクセルをコピーするときに、出た)エラーの解消法

   

解消策としては
・一旦[標準]ビューで処理し、最後に[改ページプレビュー]設定する。
・ws_sheet2をActiveにして実行する。
・’* 改ページの挿入の直前に DoEvents を挿入する。
・Application.ScreenUpdating = False で実行する。
いずれでも解消するようです。

私は、コピー元のエクセルファイルを、改ページプレビューにしていたので、
標準ビューに戻したら、解決しました。

以下余談、ちょっと気になったこと。

ws_sheet3.Range(“1:10”).Copy
ws_sheet2.Range(“1:10”).PasteSpecial Paste:=xlPasteAll
xlPasteAllなら
ws_sheet3.Range(“1:10”).Copy ws_sheet2.Range(“1:10”)
でもいいかな、という点と
‘* sheet2 をクリア
なら
ws_sheet2.Cells(1, 1).Resize(9, 4).ClearContents
のほうがいいかな、という点です。

 - AccessVBA開発