Question

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

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

Public Function EWbtn()

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

End Function

我非常困惑：L

Answer 1

我得到了同样的错误。我通过创建文件解决了它。最有可能的是复制可以对现有文件进行。在复制到文件之前添加代码以创建文件。

Answer 2

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

Answer 3

功能可以做到这一点是值得怀疑的。我尝试了下面的代码并且它正在工作。

Public Sub EWbtn()

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

End Sub

VBA EXCEL - 提取工作簿的副本

3 个答案: