Word中的Vba宏，用于在Word中带提示从Excel中导出文件

Sub ExportFileFromExcel()
    Dim ExcelApp As Object
    Dim ExcelWorkbook As Object
    Dim ExcelWorksheet As Object
    Dim FilePath As String
    
    ' 创建Excel应用程序对象
    Set ExcelApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set ExcelWorkbook = ExcelApp.Workbooks.Open("C:\Path\To\Excel\File.xlsx")
    
    ' 选择要导出的工作表
    Set ExcelWorksheet = ExcelWorkbook.Worksheets("Sheet1")
    
    ' 设置导出文件的路径
    FilePath = "C:\Path\To\Export\Destination\File.docx"
    
    ' 导出文件
    ExcelWorksheet.ExportAsFixedFormat Type:=wdExportFormatPDF, _
        FileName:=FilePath, Quality:=wdExportQualityPrint
        
    ' 关闭Excel文件
    ExcelWorkbook.Close SaveChanges:=False
    
    ' 退出Excel应用程序
    ExcelApp.Quit
    
    ' 释放对象
    Set ExcelWorksheet = Nothing
    Set ExcelWorkbook = Nothing
    Set ExcelApp = Nothing
    
    ' 提示导出完成
    MsgBox "文件已成功导出到：" & FilePath
End Sub