使用python提取PowerPoint幻灯片中表格并保存到文本及Excel文件

from spire.presentation import *
from spire.presentation.common import *

# 创建一个Presentation实例
presentation = Presentation()

# 加载PowerPoint文件
presentation.LoadFromFile("示例.pptx")

tables = []
# 遍历所有的幻灯片
for slide in presentation.Slides:
    # 遍历所有的形状
    for shape in slide.Shapes:
        # 检查形状是否为表格
        if isinstance(shape, ITable):
            tableData = ""
            # 遍历所有的行
            for row in shape.TableRows:
                rowData = ""
                # 遍历行中的所有单元格
                for i in range(0, row.Count):
                    # 获取单元格的值
                    cellValue = row[i].TextFrame.Text
                    rowData += (cellValue + "\t" if i < row.Count - 1 else cellValue)
                tableData += (rowData + "\n")
            tables.append(tableData)

# 将表格写入文本文件
for idx, table in enumerate(tables, start=1):
    fileName = f"output/Tables/Table-{idx}.txt"
    with open(fileName, "w") as f:
        f.write(table)

presentation.Dispose()

from spire.presentation import *
from spire.presentation.common import *
from spire.xls import *
from spire.xls.common import *

# 创建一个Presentation实例
presentation = Presentation()

# 加载PowerPoint文件
presentation.LoadFromFile("示例.pptx")

# 创建一个Excel文件并清除默认工作表
workbook = Workbook()
workbook.Worksheets.Clear()

tables = []
# 遍历所有的幻灯片
for slide in presentation.Slides:
    # 遍历所有的形状
    for shape in slide.Shapes:
        # 检查形状是否为表格
        if isinstance(shape, ITable):
            tables.append(shape)

# 遍历所有的表格
for t in range(len(ttables)):
    table = tables[t]
    sheet = workbook.Worksheets.Add(f"Sheet-{t+1}")
    for i in range(0, table.TableRows.Count):
        row = table.TableRows[i]
        for j in range(0, row.Count):
            sheet.Range[i + 1, j + 1].Value = row[j].TextFrame.Text
    # 自动调整行和列的大小
    sheet.AllocatedRange.Style.Font.FontName = "HarmonyOS Sans SC"
    sheet.AllocatedRange.Style.Font.Size = 12.0
    sheet.AllocatedRange.AutoFitColumns()
    sheet.AllocatedRange.AutoFitRows()

# 保存Excel文件
workbook.SaveToFile("output/PresentationTables.xlsx", FileFormat.Version2016)

presentation.Dispose()
workbook.Dispose()