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中發送電子郵件

回答

相關問題