使用Word VBA创建Excel工作表副本

Sub CreateExcelCopy()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim newWorkbook As Object
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开现有的Excel工作簿
    Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\original_workbook.xlsx")
    
    ' 获取要复制的工作表
    Set xlWorksheet = xlWorkbook.Worksheets("Sheet1")
    
    ' 创建新的Excel工作簿
    Set newWorkbook = xlApp.Workbooks.Add
    
    ' 复制工作表到新的工作簿
    xlWorksheet.Copy Before:=newWorkbook.Sheets(1)
    
    ' 保存新的工作簿
    newWorkbook.SaveAs "C:\path\to\copied_workbook.xlsx"
    
    ' 关闭Excel应用程序
    xlApp.Quit
    
    ' 释放对象引用
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    Set newWorkbook = Nothing
    
    MsgBox "Excel工作表副本已创建成功！"
End Sub