Excel VBA，工作簿之间复制/粘贴的问题

Question

我有一个基于在过程中打开的模板的新工作簿，我想将特定单元格从打开的工作簿复制到新工作簿中的单元格。但复制和粘贴似乎不起作用，不确定我在哪里遇到困难。代码只是运行，没有发生复制/粘贴。这里是复制/粘贴交易之一的示例。

TxtBk.Sheets("OAA").Activate
Range("D4").Copy
TmpBk.Sheets("OAA").Activate
Range("G4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

TmpBk 是基于模板新建的工作簿，TxtBk 是源工作簿，已打开。我缺少什么？ 谢谢...

Answer 1

这是问题中显示的之前的代码（包括问题中显示的代码）。 代码的其余部分由尝试从 TxtBk 复制粘贴到 TmpBk 的多次迭代组成。

    Dim wbk as Workbook
    Dim TxtBk as Workbook
    Dim TmpBk as Workbook                                                                     

    Set wbk = ThisWorkbook
    Set TxtBk = ActiveWorkbook
    
'   Get path from worksheet
    fromPath = wbk.Sheets("Instructions").Range("A20").Value
    
'   Make sure there is a backslash at the end of the from path
    If Right(fromPath, 1) <> "\" Then fromPath = fromPath & "\"

'   Open new file based on template
    Set TmpBk = Workbooks.Add(fromPath & "UST37.xltx")

'   Move data from parsed file to template

'   Sheet OAA
'   Running Date
    TxtBk.Sheets("OAA").Activate
    Range("D4").Copy
    TmpBk.Sheets("OAA").Activate
    Range("G4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False `