ActiveSheet.Paste 실패한 VBA Excel

Question

내 VBA 코드는 한 시트에서 값을 복사하도록 설정되어 있습니다 (이 값은 시트가 열릴 때마다 변경됩니다). 그리고 다음 사용 가능한 행에 '데이터베이스'에 붙여 넣습니다.

생각해 보았지만 붙여 넣기 방법이 실패한 것 같아서 누구나 볼 수 있습니까?

Windows("Invoice Program.xlsm").Activate 
Range("B4").Select 
Application.CutCopyMode = False 
Selection.Copy 
Workbooks.Open ("C:\Users\Invoice Database.xlsx") 
Windows("Invoice Database.xlsx").Activate 
Range("A" & Rows.Count).End(xlUp).Offset(1).Select 
Selection.Paste 

Answer 1

Dim varTemp as Variant 

Windows("Invoice Program.xlsm").Activate 
Range("B4").Select 
varTemp = ActiveCell.Value 
Workbooks.Open ("C:\Users\Invoice Database.xlsx") 
Windows("Invoice Database.xlsx").Activate 
Range("A" & Rows.Count).End(xlUp).Offset(1).Select 
ActiveCell = varTemp 

Answer 2

사용 ActiveSheet.Paste하지만 사용 DoEvents 전에 선이다.

DoEvents 
ActiveSheet.Paste