VBA生成员工调研PPT 评论数超17报运行时错误2147188160排查

• 报错本质是PPT评论页表格行数不足导致的索引越界：模板第4页用于展示评论的表格Table Placeholder 3默认仅预置17行（1行表头+16行评论位），有效行索引范围为1~17。
• 原代码仅实现了评论数少于16条时删除多余空行的逻辑，未处理评论数超过16条时新增表格行的场景。当单用户评论数达到17条时，写入循环会尝试访问第18行（行号计算规则为s+1，s=17时对应行号18），直接触发“整数超出范围”的运行时错误，和报错信息完全吻合。
• 额外排查到一处代码笔误：主流程中关闭数据源的语句写为bData.Close，正确写法应为wbData.Close，该问题会触发变量未定义的运行时错误，建议一并修复。

1. 全局替换笔误：将主程序中的bData.Close修改为wbData.Close
2. 将原代码中「Update Comments Slide」对应的整段逻辑替换为以下代码，新逻辑会先动态调整表格行数匹配实际评论数，再写入内容，从根源避免越界：

' Update Comments Slide
Set Sl = PPres.Slides(4)
Set sh = Sl.Shapes("TextBox 7")
strText = sh.TextFrame.TextRange.Text
strText = Replace(strText, "____", strFirst)
sh.TextFrame.TextRange.Text = strText  
Set sh = Sl.Shapes("Table Placeholder 3")

' 计算所需总行数：1行表头 + aA条评论对应行
Dim requiredRows As Long
requiredRows = aA + 1

' 行数不足时逐行新增
Do While sh.Table.Rows.Count < requiredRows
    sh.Table.Rows.Add
Loop

' 行数冗余时从末尾向上删除多余空行
Do While sh.Table.Rows.Count > requiredRows
    sh.Table.Rows(sh.Table.Rows.Count).Delete
Loop

' 逐行写入评论内容
For s = 1 To aA
    sh.Table.Rows(s + 1).Cells(1).Shape.TextFrame.TextRange.Text = CStr(clsCommA.Item(s))
Next

Set clsCommA = Nothing

修复后可选取3类样本用户测试宏运行效果：

• 评论数少于16条的用户：确认多余空行被正常删除，评论展示完整
• 评论数等于16条的用户：确认表格无多余空行、无内容截断
• 评论数大于17条的用户：确认表格自动新增行，所有评论正常写入，无运行时错误

内容的提问来源于stack exchange，提问作者LearnerP