将多个工作表保存/导出为WIN32COM

Sub ExportWorksheetsToWIN32COM()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim objWIN32COM As Object
    
    ' 打开Excel文件
    Set wb = ThisWorkbook
    
    ' 创建WIN32COM对象
    Set objWIN32COM = CreateObject("WIN32COM.Application")
    
    ' 循环遍历每个工作表
    For Each ws In wb.Worksheets
        ' 将工作表保存为WIN32COM对象
        objWIN32COM.Workbooks.Add
        ws.Copy Before:=objWIN32COM.Workbooks(1).Sheets(1)
    Next ws
    
    ' 保存WIN32COM对象为文件
    objWIN32COM.ActiveWorkbook.SaveAs "C:\path\to\output_file.xlsx"
    
    ' 关闭WIN32COM对象
    objWIN32COM.Quit
    
    ' 释放内存
    Set objWIN32COM = Nothing
End Sub