vba 用 CreateObject(“Excel.Application”) 另存指定路径

在VBA（Visual Basic for Applications）中，`CreateObject()` 函数通常用于创建并控制外部应用程序的对象，比如Microsoft Excel。如果你想通过VBA操作Excel并另存到指定路径，可以按照以下步骤编写代码：

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
    
    ' 确保释放excelApp引用，防止内存泄漏
    Set excelApp = Nothing
End Sub

在上述代码中，你需要将 `C:\Your\Current\Workbook.xlsx` 替换为你要打开的原始工作簿路径，`D:\NewPath\NewWorkbook.xlsx` 替换为你希望另存的新路径。