excel - VBA EXCEL-提取工作簿的副本

我试图将工作簿的副本提取到VBA中的新文件中，但出现“应用程序或对象定义的错误”，我不知道发生了什么错误。

我正在使用的所有命令都是我在Microsoft网站上找到的命令？

Public Function EWbtn()

    ActiveWorkbook.SaveCopyAs "C:\CRC Chart Extract.XLS"

End Function

我很困惑：L

最佳答案

正如Michal所说，更简单的方法是先创建文件，然后用当前活动的工作簿填充文件。这是一个应该可以帮助您入门的示例

Sub try_me()
Dim workbookPath As String
Dim output_filename As String

'getting your active workbook path
workbookPath = ActiveWorkbook.Path

'pre-defined output filename
output_filename = "my_other_worksheet"

'Copy your current active workbook to the new wb
ActiveWorkbook.Sheets.Copy

'save the workbook
ActiveWorkbook.SaveAs Filename:=x & "\" & y & ".xls"
End Sub

在此归功于Smitty：
https://www.mrexcel.com/forum/excel-questions/139831-create-empty-workbook-visual-basic-applications.html