VBA在excel中发送电子邮件

我的代码的一部分复制了Excell中的一个工作表中的信息。每次运行这个cood时，它都会给最后一行代码（activeSheet.Paste）带来运行时错误“1004”。有谁知道如何修理它？VBA在excel中发送电子邮件

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

来源

2012-12-13 David Van der Vieren

而不是模拟用户“复制+粘贴”，它更容易，更快捷，更稳健，以你的目标范围的值设置为源范围。例如

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

确定一个1004错误的原因可能是不能够查看电子表格非常困难的，所以我肯定会推荐上述方法

来源

2013-06-06 14:54:04

VBA在excel中发送电子邮件

回答

相关问题