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