PPT中Excel表格导出方法详解：从基础操作到高级技巧

创作时间:

作者:

@小白创作中心

PPT中Excel表格导出方法详解：从基础操作到高级技巧

引用

来源

https://docs.pingcode.com/baike/5024508

在PPT中嵌入Excel表格是一种常见的办公场景，但有时我们需要将这些表格导出到独立的Excel文件中进行进一步处理。本文将详细介绍多种导出方法，包括复制粘贴、对象导出、保存为图片、使用VBA宏以及第三方工具等，帮助你根据具体需求选择最适合的方式。

导出PPT中的Excel表格，可以通过复制粘贴、对象导出、保存为图片等方法实现。其中，使用复制粘贴方法是最直接和常见的方式。只需在PPT中选择要导出的Excel表格，复制并粘贴到Excel中，就可以实现导出操作。下面将详细介绍这些方法及其使用步骤。

一、复制粘贴方法

复制粘贴方法是将PPT中的Excel表格直接复制，然后粘贴到Excel中。这种方法操作简单，但有时会丢失格式或数据。以下是具体步骤：

打开PPT文件，找到包含Excel表格的幻灯片。
选择要复制的Excel表格，右键点击并选择“复制”。
打开Excel文件，选择一个空白单元格，右键点击并选择“粘贴”。

这种方法适用于小型表格，但对于大型或复杂的表格，可能会出现格式问题。因此，在粘贴后需要检查和调整格式。

二、对象导出方法

对象导出方法是通过将PPT中的Excel表格作为对象嵌入到Excel中。这种方法可以保持表格的格式和数据完整性。以下是具体步骤：

打开PPT文件，找到包含Excel表格的幻灯片。
选择要复制的Excel表格，右键点击并选择“复制”。
打开Excel文件，选择一个空白单元格，右键点击并选择“选择性粘贴”。
在弹出的对话框中，选择“粘贴为对象”。

这样，Excel表格将作为嵌入对象插入到Excel中，保持原有的格式和数据。

三、保存为图片方法

保存为图片方法是将PPT中的Excel表格保存为图片，然后插入到Excel中。虽然这种方法不能直接编辑表格内容，但可以保持表格的外观和格式。以下是具体步骤：

打开PPT文件，找到包含Excel表格的幻灯片。
选择要保存为图片的Excel表格，右键点击并选择“另存为图片”。
选择保存路径和图片格式，点击“保存”。
打开Excel文件，选择一个空白单元格，点击“插入”菜单中的“图片”选项，选择刚保存的图片。

这种方法适用于需要保持表格外观的场景，但无法直接编辑表格内容。

四、使用VBA宏导出

对于高级用户，可以使用VBA宏来自动化导出PPT中的Excel表格。这种方法适用于需要批量处理的场景。以下是一个简单的VBA宏示例：

Sub ExportExcelFromPPT()  
  
    Dim pptApp As Object  
    Dim pptPres As Object  
    Dim pptSlide As Object  
    Dim pptShape As Object  
    Dim xlApp As Object  
    Dim xlWb As Object  
    Dim xlWs As Object  
    ' 创建PPT应用程序对象  
    Set pptApp = CreateObject("PowerPoint.Application")  
    ' 打开PPT文件  
    Set pptPres = pptApp.Presentations.Open("C:pathtoyourpresentation.pptx")  
    ' 创建Excel应用程序对象  
    Set xlApp = CreateObject("Excel.Application")  
    xlApp.Visible = True  
    ' 创建新的Excel工作簿  
    Set xlWb = xlApp.Workbooks.Add  
    Set xlWs = xlWb.Sheets(1)  
    ' 遍历PPT中的每个幻灯片  
    For Each pptSlide In pptPres.Slides  
        ' 遍历幻灯片中的每个形状  
        For Each pptShape In pptSlide.Shapes  
            ' 判断形状是否为Excel表格  
            If pptShape.Type = msoEmbeddedOLEObject And pptShape.OLEFormat.ProgID = "Excel.Sheet.12" Then  
                ' 复制Excel表格  
                pptShape.OLEFormat.Object.Worksheets(1).UsedRange.Copy  
                ' 粘贴到Excel工作表中  
                xlWs.Paste  
            End If  
        Next pptShape  
    Next pptSlide  
    ' 关闭PPT文件  
    pptPres.Close  
    ' 释放对象  
    Set pptShape = Nothing  
    Set pptSlide = Nothing  
    Set pptPres = Nothing  
    Set pptApp = Nothing  
    Set xlWs = Nothing  
    Set xlWb = Nothing  
    Set xlApp = Nothing  
End Sub

运行这个宏，将PPT中的所有Excel表格导出到一个新的Excel工作簿中。这种方法可以节省大量时间，适用于复杂或批量处理的场景。