VBA EXCEL - 提取工作簿的副本

Question

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

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

Public Function EWbtn()

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

End Function

我很困惑:L

Answer 1

正如 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