vba使用另存为，但不打开文件

Sub SaveFileWithoutOpening()
    Dim filePath As String
    Dim fileName As String
    
    ' 设置文件路径和文件名
    filePath = "C:\Documents\"
    fileName = "example.xlsx"
    
    ' 创建一个Excel对象
    Dim excelApp As Object
    Set excelApp = CreateObject("Excel.Application")
    
    ' 禁止显示Excel界面
    excelApp.Visible = False
    
    ' 打开一个工作簿
    Dim workbook As Object
    Set workbook = excelApp.Workbooks.Open(filePath & fileName)
    
    ' 在这里可以进行其他操作，如修改数据、添加图表等
    
    ' 另存为文件
    workbook.SaveAs filePath & "new_" & fileName
    
    ' 关闭工作簿和Excel应用程序
    workbook.Close
    excelApp.Quit
    
    ' 释放对象
    Set workbook = Nothing
    Set excelApp = Nothing
End Sub