VBA에서 이메일 보내기

Question

Excell의 워크 시트에서 내 코드 copys 정보의 일부입니다. 이 코드를 실행할 때마다 코드의 마지막 줄 (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 

Answer 1

은 오히려 사용자의 복사 + 붙여 넣기 '를 시뮬레이션하는 것보다, 당신의 소스 범위의 당신의 목표 범위의 값을 설정하기 위해, 더 빠르고 강력한 쉽습니다. 예 :

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

스프레드 시트를 통해 볼 수있는없이 매우 어려울 수 1004 오류의 원인을 결정, 그래서 확실히 위의 방법을 추천 할 것입니다