vba - 如何使用vba仅将单个工作表复制到另一个工作簿

Question

我有 1 个 WorkBook("SOURCE")，其中包含大约 20 个工作表。
我只想使用 Excel VBA 将 1 个特定工作表复制到另一个 Workbook("TARGET")。

请注意，“TARGET”工作簿尚不存在。它应该在运行时创建。

使用的方法 -

1) Activeworkbook.SaveAs <--- 不起作用。这将复制所有工作表。我只想要特定的工作表。

Answer 1

I have 1 WorkBook("SOURCE") that contains around 20 Sheets. I want to copy only 1 particular sheet to another Workbook("TARGET") using Excel VBA. Please note that the "TARGET" Workbook doen't exist yet. It should be created at runtime.

另一种方式

Sub Sample()
    '~~> Change Sheet1 to the relevant sheet
    '~~> This will create a new workbook with the relevant sheet
    ThisWorkbook.Sheets("Sheet1").Copy

    '~~> Save the new workbook
    ActiveWorkbook.SaveAs "C:\Target.xlsx", FileFormat:=51
End Sub

这将自动创建一个名为 Target.xlsx 的新工作簿以及相关工作表