如何批量提取PowerPoint中嵌入的Excel工作表以构建Power BI仪表板？

方法一：通过解压PPT文件提取 #

• 把PPT文件的后缀从.pptx改成.zip
• 右键解压这个ZIP文件到任意文件夹
• 打开解压后的ppt/embeddings目录，里面的oleObject1.bin、oleObject2.bin这类文件就是嵌入的Excel内容
• 将这些.bin文件的后缀改为.xlsx，就能直接用Excel打开编辑

方法二：用VBA宏批量导出 #

• 打开目标PPT，按Alt+F11打开VBA编辑器
• 插入新模块，粘贴以下代码：

Sub ExtractEmbeddedExcelFiles()
    Dim slide As slide
    Dim shape As shape
    Dim objOLE As OLEObject
    Dim i As Integer
    Dim savePath As String
    
    savePath = Environ("USERPROFILE") & "\Desktop\ExtractedExcelFiles\"
    MkDir savePath ' 创建保存目录
    
    i = 1
    For Each slide In ActivePresentation.Slides
        For Each shape In slide.Shapes
            If shape.Type = msoEmbeddedOLEObject Then
                Set objOLE = shape.OLEFormat.Object
                If TypeName(objOLE) = "Workbook" Then
                    objOLE.SaveAs savePath & "Extracted_Excel_" & i & ".xlsx"
                    i = i + 1
                End If
            End If
        Next shape
    Next slide
    
    MsgBox "提取完成，文件已保存到：" & savePath
End Sub

• 按F5运行宏，提取的Excel文件会自动保存到桌面的ExtractedExcelFiles文件夹里
• 注意：运行前要把PPT另存为.pptm格式（启用宏的演示文稿），否则宏无法运行

方法三：直接用Power Query导入到Power BI（无需单独存文件） #

• 打开Power BI Desktop，点击获取数据 > 文件 > PowerPoint演示文稿
• 选中目标PPT文件，在导航器里展开每张幻灯片，找到对应的嵌入Excel对象
• 选择需要的数据，点击加载就能直接导入到Power BI，之后可以直接用这些数据做仪表板
• 这个方法最适合你的场景，省去了单独提取保存Excel文件的步骤

内容的提问来源于stack exchange，提问作者Chris Schaeuble