高分求教：求用VBA实现将PPT中的一段表格复制到EXCEL固定区域中，大谢！

Question

高分求教：求用VBA实现将PPT中的一段表格复制到EXCEL固定区域中，大谢！

Answer 1

这个很讨厌了，写起来稍微麻烦点。我给你几句关键的内容的解释吧，你自己写
假设vba宏写在excel里，打开文件我就不写了

主要的是获取ppt表格内容，假设要获取的表格在第二页，只有一个标题和一个表格

range("A1").value = Presentations(1).Slides(2).Shapes(2).Table.Cell(1,1).Shape.TextFrame.TextRange.Text
range("A1").value 是 当前sheet的A1格
Presentations(1).当前打开的第一个ppt文件
Slides(2).ppt第二页
Shapes(2).第二页内的第二个对象
Table.第二对象是表格对象
Cell(1,1).表格的第一个单元格
Shape.单元格内对象
TextFrame.文本区域
TextRange.文本格
Text文本内容本回答被提问者和网友采纳

Answer 2

dim ps as new powerpoint
dim ex as new excel.applicaton
dim wb as ex.workbook
dim sh as ex.sheet

dim i as integer
dim j as integer

for i=0 to ps.rows-1
for j=0 to ps.columns.-1
sh.cell(i+1,j+1)=ps.tables(1).cell(i+1,j+1)
next j
next i

Answer 3

如果不是数据量大，用VBA做起来不划算追问

其实，我想实现的功能是PPT中的图表和PPT中的表格联动，但是好像不借助Excel实现不了，又想做成自动的样子，所以才想到用VBA。如果您知道如何将PPT中的图标和PPT中的表格联动的话，就更好了，谢谢！

追答

PPT图表双击就会有表格啊，更改数据，图型就更改了啊。