问有没有办法从powerpoint演示文稿中创建excel工作表？

EN

Option Explicit

' ---> ADD REFERENCE TO MICROSOFT POWERPOINT OBJECT LIBRARY

Public Sub CreateSheetsFromSlides()

    Dim vPowerPoint As PowerPoint.Application
    Dim vPresentation As PowerPoint.Presentation
    Dim vSlide As PowerPoint.Slide
    Dim vPowerpointShape As PowerPoint.Shape

    Dim vExcelShape
    Dim vSheet As Worksheet

    ' Open the powerpoint presentation
    Set vPowerPoint = New PowerPoint.Application
    Set vPresentation = vPowerPoint.Presentations.Open("source.pptx")

    ' Loop through each powerpoint slide
    For Each vSlide In vPresentation.Slides

        ' Create a new worksheet ... one per slide ... and name the worksheet same as the slide
        Set vSheet = ThisWorkbook.Sheets.Add(, After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        vSheet.Name = vSlide.Name
        MsgBox vSheet.Name

        ' Loop through each shape on the powerpoint slide and copy to the new worksheet
        For Each vPowerpointShape In vSlide.Shapes
            vPowerpointShape.Copy

            ' Create the shape on the worksheet and position it on the sheet at the same top/left as it is on the slide
            vSheet.PasteSpecial
            Set vExcelShape = vSheet.Shapes(vSheet.Shapes.Count)
            vExcelShape.Top = vPowerpointShape.Top
            vExcelShape.Left = vPowerpointShape.Left
        Next
    Next
    vPresentation.Close
    vPowerPoint.Quit

End Sub