求教excel 数据导入ppt表格中

auto737

excel 数据导入ppt表格中，除了单个单个的赋值，还有没有其他方法！使用复制过去就变成图片了！
我的现有代码如下：


Sub 控制ppt()
Dim objPPT As Object
Dim objPrs As Object
Dim objChart As Object
Set objPPT = CreateObject("Powerpoint.application")
Set objPrs = objPPT.presentations.Open(ThisWorkbook.Path & "\控制.pptx")


objPrs.Slides(1).Shapes("标题 1").TextFrame.TextRange.Text = "第一个PPT控制"

objPrs.Slides(1).Shapes("副标题 2").TextFrame.TextRange.Text = Worksheets("sheet1").Range("A3").Value

objPrs.Slides(2).Shapes("表格 3").Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = Worksheets("sheet1").Range("B7").Value

objPrs.Slides(2).Shapes("表格 3").Table.Cell(1, 2).Shape.TextFrame.TextRange.Text = Worksheets("sheet1").Range("C7").Value

objPrs.Slides(2).Shapes("表格 3").Table.Cell(1, 3).Shape.TextFrame.TextRange.Text = Worksheets("sheet1").Range("D7").Value

objPrs.Slides(2).Shapes("表格 3").Table.Cell(2, 1).Shape.TextFrame.TextRange.Text = Worksheets("sheet1").Range("B8").Value

objPrs.Slides(2).Shapes("表格 3").Table.Cell(2, 2).Shape.TextFrame.TextRange.Text = Worksheets("sheet1").Range("C8").Value

objPrs.Slides(2).Shapes("表格 3").Table.Cell(2, 3).Shape.TextFrame.TextRange.Text = Worksheets("sheet1").Range("D8").Value


objPrs.Save

objPrs.Close

objPPT.Quit

Application.ScreenUpdating = True

Set objPPT = Nothing

Set objPrs = Nothing

MsgBox "移动PPT报告数据更新完毕!"

End Sub


一个一个赋值太头痛了，有没有其他方法！将B7：D8数据 复制到 ppt“表格3”中！
求大神指导！

活在理想的世界

1. Sub d()
   
2. Dim pa, p, s, arr()
   
3. arr = Sheet1.Range("b7").Resize(2, 3)
   
4. Set pa = CreateObject("PowerPoint.Application")
   
5. Set p = pa.Presentations.Open(ThisWorkbook.Path & "\控制.pptx")
   
6. Set s = p.Slides(1)
   
7. s.Shapes.AddTable UBound(arr), UBound(arr, 2)
   
8. For i = 1 To UBound(arr)
   
9.     For j = 1 To UBound(arr, 2)
   
10.         s.Shapes(1).Table.Cell(i, j).Shape.TextFrame2.TextRange = arr(i, j)
    
11.     Next
    
12. Next
    
13. p.Save: p.Close: pa.Quit
    
14. End Sub

复制代码

auto737

活在理想的世界 发表于 2018-7-16 12:47

感谢帮助！谢谢！成功的帮我解决了问题！循环真是个好东西！

活在理想的世界

auto737 发表于 2018-7-16 13:53
感谢帮助！谢谢！成功的帮我解决了问题！循环真是个好东西！

一般情况下PPT是不用VBA控制的。PPT还是要手写的。

auto737

活在理想的世界 发表于 2018-7-16 14:24
一般情况下PPT是不用VBA控制的。PPT还是要手写的。

手写太多了！每个月都要做几十个报表！就是数据不一样！我用excel了透视数据，然后在写入ppt！这样就快多了！

活在理想的世界

auto737 发表于 2018-7-17 11:47
手写太多了！每个月都要做几十个报表！就是数据不一样！我用excel了透视数据，然后在写入ppt！这样就快多 ...

呵呵，第一次看到有求助PPTVBA的，在你提问之前我还没用过PPT的VB语言呢。
VBA主要用在Excel&Access的上面(90%)，Word上面也有一些，OUTLOOK上面也有一些，PPT用VBA真心第一次碰到，要不是的问题我还不知道PPTVBA跟WordVBA有这么大的关系。

chenhuake

这个还有没有前期的一些东西，想了解一下，但是提示错误

qishimj88

不错不错 学习了，循环是个好东西

穷极一生为理想

楼主想请问一下，ppt中的表格编号是怎么看的
objPrs.Slides(2).Shapes("表格 3").Table.Cell(1, 2).Shape.TextFrame.TextRange.Text = Worksheets("sheet1").Range("C7").Value

就是想修改代码中的表格3 我又不知道我的ppt中的表格是表格几