vba 用 CreateObject(“Excel.Application”) 另存指定路径
时间: 2024-09-27 09:04:25
浏览: 14
在VBA(Visual Basic for Applications)中,`CreateObject()` 函数通常用于创建并控制外部应用程序的对象,比如Microsoft Excel。如果你想通过VBA操作Excel并另存到指定路径,可以按照以下步骤编写代码:
```vba
Sub SaveExcelToSpecificPath()
' 创建Excel应用对象
Dim excelApp As Object
Set excelApp = CreateObject("Excel.Application")
' 打开需要处理的工作簿,这里假设工作簿名为 "Workbook.xlsx"
Dim workbook As Workbook
Set workbook = excelApp.Workbooks.Open("C:\Your\Current\Workbook.xlsx") ' 指定你的当前工作簿路径
' 更改工作簿保存路径,这里设置为 "D:\NewPath\NewWorkbook.xlsx"
workbook.SaveAs Filename:="D:\NewPath\NewWorkbook.xlsx", FileFormat:=xlExcelXMLWorkbook ' 根据需求选择文件格式
' 关闭工作簿,释放资源
workbook.Close SaveChanges:=True
' 最后关闭Excel应用
excelApp.Quit
```