vba 更新PPT指定页的表格数据

可以使用以下代码来更新指定页的表格数据：

Sub UpdateTableData()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptShape As PowerPoint.Shape
    Dim pptTable As PowerPoint.Table
    
    '打开PPT应用程序和演示文稿
    Set pptApp = New PowerPoint.Application
    Set pptPres = pptApp.Presentations.Open("C:\Presentation.pptx")
    
    '选择要更新的幻灯片和表格
    Set pptSlide = pptPres.Slides(1)
    Set pptShape = pptSlide.Shapes("Table1")
    Set pptTable = pptShape.Table
    
    '更新表格中的数据
    pptTable.Cell(2, 2).Shape.TextFrame.TextRange.Text = "New Data"
    
    '关闭PPT应用程序和演示文稿
    pptPres.Close
    pptApp.Quit
    
    Set pptTable = Nothing
    Set pptShape = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub

在上面的代码中，我们首先创建了 `PowerPoint.Application` 和 `PowerPoint.Presentation` 对象，然后选择要更新的幻灯片和表格。接下来，我们使用 `pptTable.Cell(row, column).Shape.TextFrame.TextRange.Text` 方法来更新表格中指定单元格的文本内容。最后，我们关闭了应用程序和演示文稿，并将对象设置为 `Nothing` 以释放内存。