vba 用 CreateObject("Excel.Application") 创建并命名另存

在VBA中，使用 `CreateObject` 函数可以动态地创建Excel应用程序实例，然后通过该实例操作Excel对象。以下是一个示例，演示如何通过此方法创建一个新的工作簿并命名为“我的工作簿”，然后保存它：

Sub CreateExcelAppAndSaveWorkbook()
    ' 创建Excel应用程序对象
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")

    ' 创建新的工作簿
    Dim newWorkbook As Workbook
    Set newWorkbook = xlApp.WorkBooks.Add

    ' 设置工作簿名称
    newWorkbook.Name = "我的工作簿"

    ' 选择保存位置并保存
    Dim savePath As String
    savePath = "C:\Users\[用户名]\Documents\" ' 请替换为实际的保存路径
    newWorkbook.SaveAs Filename:=savePath & "我的工作簿.xlsx"

    ' 释放对象内存
    Set newWorkbook = Nothing
    Set xlApp = Nothing

    ' 关闭Excel进程（如果需要）
    On Error Resume Next
   xlApp.Quit
    Err.Clear
    On Error GoTo 0
End Sub

在这个宏中，我们首先创建了一个Excel应用实例 `xlApp`，接着创建一个新的工作簿并将其命名为“我的工作簿”。然后指定保存路径并使用 `SaveAs` 方法保存。最后，记得释放对象以防止内存泄漏。