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 回答