Excel VBA将工作表复制到未打开工作簿中的现有工作表

Question

这里是VBA新手。

Sub Button5_Click()
'export data to template
Sheets("DataSet").Select 'sheet that I want to copy and paste (resides in macro workbook)
Cells.Select
Selection.Copy
Windows("Missing Data Template (concept1).xlsx").Activate 'destination workbook (no macros)
Sheets("Report").Select 'destination worksheet
Cells.Select
ActiveSheet.Paste

End Sub

谢谢你的教育！

Answer 1

我相信您必须打开另一个工作簿，粘贴，然后关闭：

Sub Button5_Click()

    'a variable to hold our other workbook
    Dim otherwb as Workbook

    'open other workbook assign it to variable
    Set otherwb = Application.Workbooks.Open("Missing Data Template (concept1).xlsx")

    'Copypasta
    Sheets("DataSet").Cells.Copy Destination:=otherwb.Sheets("Report").Range("A1")

    'save and Close other workbook         
    otherwb.Close(true)   

End Sub

您还会注意到，我删除了所有。选择和.active键入code。在VBA中选择实在没有必要，因为选择是人类要做的事情。代码只需要知道获取什么以及将其放在哪里。使用.select或.activate实际上只是有时在末尾使用，以便将光标/选择设置在运行代码的人的特定点（例如，如果您想确保运行代码后，选择了Sheets（“dataset”）.range（“a1”）单元格。