0

私のコードの一部は、Excell のあるワークシートから別のワークシートに情報をコピーします。この cood を実行するたびに、コードの最後の行 (activeSheet.Paste) で実行時エラー '1004' が発生します。誰もそれを修正する方法を知っていますか?

Sub CopyData()

    ActiveWindow.SmallScroll Down:=-9
    Sheets("sponsor & contributions 2012").Select
    Range("A1:K93").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("remaining payments").Select
    Selection.PasteSpecial Paste:=xlPasteFormats
    ActiveWindow.SmallScroll Down:=-12
    Range("A1:K93").Select
    ActiveSheet.Paste

End Sub
4

1 に答える 1

0

ユーザーの「コピーと貼り付け」をシミュレートするよりも、ターゲット範囲の値をソース範囲の値に設定する方が簡単、迅速、堅牢です。例えば

Public Sub Copy()
    Sheet2.Range("A1:K93").Value = Sheet1.Range("A1:K93").Value
End Sub

1004 エラーの原因を特定することは、スプレッドシートに目を通すことができずに非常に困難になる可能性があるため、上記のアプローチを強くお勧めします。

于 2013-06-06T14:54:04.627 に答える