VBA EXCEL – 提取工作簿的副本

我试图提取我的工作簿副本到VBA中的新文件，但我得到一个“应用程序或对象定义的错误”，我不知道什么是错的。

所有即时通讯使用的是我在微软网站上find的命令？

Public Function EWbtn() ActiveWorkbook.SaveCopyAs "C:\CRC Chart Extract.XLS" End Function 

我很困惑：L

Answer 1

正如Michal所说，更简单的方法就是先创build文件，然后用当前活动工作簿填充文件。 这里是一个应该能够让你开始的样本

 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

Answer 2

我得到了同样的错误。 我通过创build文件来解决它。 大多数情况下可以复制到现有的文件。 添加代码以在复制之前创build文件。

Answer 3

function可以做到这一点是值得怀疑的。 我试着下面的代码，它的工作。

 Public Sub EWbtn() ActiveWorkbook.SaveCopyAs "C:\CRC Chart Extract.XLS" End Sub