从一个工作簿复制工作表并保存在新工作簿中，名称为单元格中的值

Question

我想从 Workbook1 复制 Sheet2 并将其粘贴到新 Workbook 的 Sheet1 中，并将新 Workbook 保存为 Sheet2、Workbook 1 中单元格 A1 的值。我希望当我单击一个按钮时触发此宏我已经添加了。

这是我到目前为止所做的，但它创建了两个工作簿 - 一个名称正确但不包含Sheet2、Workbook1 的内容 - 另一个具有 Sheet2、Workbook1 的内容但不是正确的 Workbook 名称

Sub CreateWorkbook()

Dim n As String
n = ThisWorkbook.Path & "\" & Range("A1").Value & ".xls"
Workbooks.Add
ActiveWorkbook.SaveAs n
ThisWorkbook.Sheets("Sheet2").Copy
ActiveWorkbook.Sheets("Sheet1").PasteSpecial xlPasteValues

End Sub

我在这里错过了什么？

Answer 1

我认为Workbooks.Add 创建的新工作簿默认不会变成ActiveWorkbook。

使用 ThisWorkbook 和 ActiveWorkbook 会让人感到困惑。

我喜欢将工作簿和工作表之类的东西设置为变量，这样你就知道你在处理什么:)

我无法让Copy 然后PasteSpecial 位工作（尽管我没有那么努力）。

下面的示例应该可以满足您的需求。我使用Sheet2!A1 作为文件名，不确定代码示例中的AK545 是做什么用的。

Sub Example()
Dim Output As Workbook
Dim FileName As String

Set Output = Workbooks.Add
FileName = ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(2).Cells(1, 1).Value & ".xls"

Output.SaveAs FileName

Application.DisplayAlerts = False

Output.Worksheets("Sheet1").Delete
ThisWorkbook.Worksheets(2).Copy Before:=Output.Worksheets("Sheet2")
Output.Worksheets(1).Name = "Sheet1"

Application.DisplayAlerts = True

Output.Save

End Sub