第337讲:分别用 VBA 和 Python 来实现:Excel数据一键生成PPT报告—从VBA到的完整实战指南

Sub GeneratePPTFromExcel()    ' ===== 变量声明区 =====    Dim pptApp As Object          ' PowerPoint.Application对象    Dim pptPres As Object         ' Presentation对象    Dim pptSlide As Object        ' Slide对象    Dim pptShape As Object        ' Shape对象    Dim excelRange As Range       ' Excel数据区域    Dim i As Long, j As Long      ' 循环变量    ' ===== 1. 创建PowerPoint应用 =====    On Error Resume Next    Set pptApp = CreateObject("PowerPoint.Application")    If pptApp Is Nothing Then        MsgBox "无法创建PowerPoint应用，请确认已安装PowerPoint。", vbCritical        Exit Sub    End If    On Error GoTo 0    pptApp.Visible = True   ' 让PPT界面可见，便于调试    ' ===== 2. 新建一个演示文稿 =====    Set pptPres = pptApp.Presentations.Add    ' ============================================    ' 第1页：封面页    ' ============================================    Set pptSlide = pptPres.Slides.Add(1, 1) ' 1=ppLayoutTitle    ' 设置主标题    pptSlide.Shapes.Title.TextFrame.TextRange.Text = _        "2024年第三季度经营分析报告"    ' 设置副标题    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = _        "数据截止日期：2024-09-30"    ' ============================================    ' 第2页：核心指标页（带表格）    ' ============================================    Set pptSlide = pptPres.Slides.Add(2, 11) ' 11=ppLayoutBlank    ' --- 添加标题 ---    Set pptShape = pptSlide.Shapes.AddTextbox( _        Orientation:=1, _        Left:=50, Top:=20, Width:=600, Height:=40)    With pptShape.TextFrame.TextRange        .Text = "核心经营指标"        .Font.Name = "微软雅黑"        .Font.Size = 24        .Font.Bold = True    End With    ' --- 添加表格（基于A1:C13）---    Set excelRange = ThisWorkbook.Sheets("Q3_Report").Range("A1:C13")    Set pptShape = pptSlide.Shapes.AddTable( _        NumRows:=excelRange.Rows.Count, _        NumColumns:=excelRange.Columns.Count, _        Left:=50, Top:=70, _        Width:=400, Height:=250)    ' 将Excel数据写入PPT表格    For i = 1 To excelRange.Rows.Count        For j = 1 To excelRange.Columns.Count            With pptShape.Table.Cell(i, j).Shape.TextFrame.TextRange                .Text = excelRange.Cells(i, j).Value                .Font.Name = "微软雅黑"                .Font.Size = 10            End With        Next j    Next i    ' ============================================    ' 第3页：产品线营收占比（饼图）    ' ============================================    Set pptSlide = pptPres.Slides.Add(3, 11) ' 空白页    ' 添加标题    Set pptShape = pptSlide.Shapes.AddTextbox( _        Orientation:=1, _        Left:=50, Top:=20, Width:=600, Height:=40)    With pptShape.TextFrame.TextRange        .Text = "各产品线营收占比"        .Font.Name = "微软雅黑"        .Font.Size = 24        .Font.Bold = True    End With    ' 添加饼图（基于E1:F7）    Dim chartData As Object    Set excelRange = ThisWorkbook.Sheets("Q3_Report").Range("E1:F7")    Set pptShape = pptSlide.Shapes.AddChart2( _        XlChartType:=xlPie, _        Left:=100, Top:=80, Width:=400, Height:=300)    ' 将数据写入图表    Set chartData = pptShape.Chart.ChartData    chartData.Workbook.Sheets(1).Range("A1").Resize( _        excelRange.Rows.Count, _        excelRange.Columns.Count).Value = excelRange.Value    ' 刷新图表    pptShape.Chart.Refresh    ' 清理    Set pptApp = Nothing    Set pptPres = Nothing    Set pptSlide = Nothing    Set pptShape = Nothing    MsgBox "PPT生成完成！", vbInformationEnd Sub

pip install python-pptx pandas openpyxl matplotlib

from pptx import Presentationfrom pptx.util import Inches, Ptfrom pptx.enum.text import PP_ALIGNfrom pptx.chart.data import ChartDatafrom pptx.enum.chart import XL_CHART_TYPEimport pandas as pdimport matplotlib.pyplot as pltimport os# ======================# 1. 读取Excel数据# ======================excel_path = "quarterly_report.xlsx"  # Excel文件路径df_table = pd.read_excel(    excel_path,    sheet_name="Q3_Report",    usecols="A:C",    skiprows=0)df_pie = pd.read_excel(    excel_path,    sheet_name="Q3_Report",    usecols="E:F",    skiprows=0)# ======================# 2. 创建PPT对象# ======================prs = Presentation()# ======================# 3. 第1页：封面页# ======================slide_cover = prs.slides.add_slide(prs.slide_layouts[0])  # 0=标题页布局title = slide_cover.shapes.titlesubtitle = slide_cover.placeholders[1]title.text = "2024年第三季度经营分析报告"subtitle.text = "数据截止日期：2024-09-30"# 统一字体样式for para in title.text_frame.paragraphs:    para.font.name = "微软雅黑"    para.font.size = Pt(32)for para in subtitle.text_frame.paragraphs:    para.font.name = "微软雅黑"    para.font.size = Pt(18)# ======================# 4. 第2页：核心指标表格# ======================slide_table = prs.slides.add_slide(prs.slide_layouts[5])  # 5=空白页# 添加标题title_shape = slide_table.shapes.add_textbox(    left=Inches(0.5),    top=Inches(0.3),    width=Inches(8),    height=Inches(0.5))title_tf = title_shape.text_frametitle_tf.text = "核心经营指标"title_tf.paragraphs[0].font.name = "微软雅黑"title_tf.paragraphs[0].font.size = Pt(24)title_tf.paragraphs[0].font.bold = True# 添加表格rows, cols = df_table.shapetable_shape = slide_table.shapes.add_table(    rows=rows,    cols=cols,    left=Inches(0.5),    top=Inches(1.0),    width=Inches(8),    height=Inches(4)).table# 写入数据for r in range(rows):    for c in range(cols):        cell = table_shape.cell(r, c)        cell.text = str(df_table.iloc[r, c])        cell.text_frame.paragraphs[0].font.name = "微软雅黑"        cell.text_frame.paragraphs[0].font.size = Pt(10)# ======================# 5. 第3页：饼图（先生成图片）# ======================# 使用matplotlib生成饼图plt.figure(figsize=(6, 4))plt.pie(    df_pie.iloc[:, 1],    labels=df_pie.iloc[:, 0],    autopct='%1.1f%%',    startangle=90)plt.title("各产品线营收占比", fontname="SimHei", fontsize=14)plt.axis('equal')pie_chart_path = "pie_chart.png"plt.savefig(pie_chart_path, dpi=100, bbox_inches='tight')plt.close()# 将图片插入PPTslide_chart = prs.slides.add_slide(prs.slide_layouts[5])pic_shape = slide_chart.shapes.add_picture(    pie_chart_path,    left=Inches(1),    top=Inches(1),    width=Inches(6))# ======================# 6. 保存PPT# ======================output_path = "季度经营分析报告.pptx"prs.save(output_path)print(f"PPT已生成：{output_path}")# 可选：删除临时图片if os.path.exists(pie_chart_path):    os.remove(pie_chart_path)