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

在VBA (Visual Basic for Applications) 中，`CreateObject("Excel.Application")` 是创建 Microsoft Excel 应用程序的实例，允许我们在脚本中控制Excel。如果你想通过这个对象另存工作簿到特定路径，可以按照以下步骤操作：

Sub SaveWorkbookToSpecificPath()
    ' 创建一个新的Excel应用实例
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")

    ' 检查是否已经打开一个工作簿，如果没有，就创建一个新的
    If xlApp.Workbooks.Count = 0 Then
        Dim wb As Workbook
        Set wb = xlApp.Workbooks.Add
    Else
        Set wb = xlApp.ActiveWorkbook
    End If

    ' 指定你要保存的工作簿路径
    Dim filePath As String
    filePath = "C:\path\to\your\file.xlsx" ' 替换为你需要的文件路径

    ' 使用SaveAs方法另存为新路径
    wb.SaveAs Filename:=filePath, FileFormat:=xlExcelXMLSpreadsheet

    ' 关闭工作簿和退出Excel应用程序
    wb.Close False ' False表示不保存更改，如果需要保存，改为True
    xlApp.Quit

    ' 释放资源
    Set wb = Nothing
    Set xlApp = Nothing
End Sub

在这个例子中，你需要将 `C:\path\to\your\file.xlsx` 替换为你想要保存的实际文件路径。运行此宏后，当前活动的工作簿会被另存在指定位置。