用vba在把路径"C:\Users\Administrator\OneDrive\桌面\终端数据日常通报\渠道5G终端沙盘数据报表.docx"的word里面的嵌入的EXCEl文件提取出来

在VBA中，可以使用以下代码将嵌入在Word文档中的Excel文件提取出来：

Sub ExtractEmbeddedExcel()
    Dim wdApp As Object ' Word.Application
    Dim wdDoc As Object ' Word.Document
    Dim wdShape As Object ' Word.InlineShape
    Dim xlApp As Object ' Excel.Application
    Dim xlBook As Object ' Excel.Workbook
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = False ' 设置为不可见
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Users\Administrator\OneDrive\桌面\终端数据日常通报\渠道5G终端沙盘数据报表.docx")
    
    ' 遍历Word文档中的所有嵌入对象
    For Each wdShape In wdDoc.InlineShapes
        ' 判断是否为嵌入的Excel文件
        If wdShape.Type = 1 Then ' wdInlineShapeEmbeddedOLEObject
            ' 获取嵌入对象的OLE格式数据
            wdShape.OLEFormat.Activate
            wdShape.OLEFormat.DoVerb 2 ' 打开OLE对象
            
            ' 获取Excel应用程序对象
            Set xlApp = GetObject(, "Excel.Application")
            
            ' 获取活动工作簿
            Set xlBook = xlApp.ActiveWorkbook
            
            ' 保存Excel文件到指定路径
            xlBook.SaveAs "C:\Users\Administrator\OneDrive\桌面\终端数据日常通报\提取的Excel文件.xlsx"
            
            ' 关闭Excel文件
            xlBook.Close False
            
            ' 退出Excel应用程序
            xlApp.Quit
            
            ' 释放Excel对象
            Set xlBook = Nothing
            Set xlApp = Nothing
            
            ' 退出循环，只提取第一个嵌入的Excel文件
            Exit For
        End If
    Next wdShape
    
    ' 关闭Word文档
    wdDoc.Close False
    
    ' 退出Word应用程序
    wdApp.Quit
    
    ' 释放Word对象
    Set wdDoc = Nothing
    Set wdApp = Nothing
    
    MsgBox "已成功提取嵌入的Excel文件！"
End Sub

请将代码中的路径"C:\Users\Administrator\OneDrive\桌面\终端数据日常通报\渠道5G终端沙盘数据报表.docx"替换为你实际的Word文档路径。执行该VBA宏后，嵌入的Excel文件将被提取到指定路径"C:\Users\Administrator\OneDrive\桌面\终端数据日常通报\提取的Excel文件.xlsx"中。