ActiveSheet.Paste失败的VBA Excel

Question

我的VBA代码设置为从一张纸上复制一个值（NB每次打开纸张时这个值都会改变）并粘贴到下一个可用行的“数据库”中。

认为我已经做对了，但是粘贴方法似乎失败了，有人能看出原因吗？

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