作者：绿色风
分类：
时间：2022-08-18
浏览：137
楼主
kevinchengcw |
Q: 如何用vba代码将excel数据复制到固定类型的ppt中？
A: 代码如下：- Sub test()
- Dim Sh As Shape, SL As Slide, Dic As Object, Wb, N&, Arr
- Set Dic = CreateObject("scripting.dictionary") '创建字典
- Set Wb = GetObject(ActivePresentation.Path & "\book1.xls") '打开excel文件
- With Wb.worksheets(1) '读取指定工作表的内容并放入字典中
- For N = 2 To .Cells(.Rows.Count, 1).End(3).Row
- Dic(.Cells(N, 1).Value) = .Cells(N, 2).Value
- Next N
- End With
- Wb.Close False '关闭文件
- Set Wb = Nothing '清空项目
- Arr = Dic.keys '将字典keys项转给数组
- With ActivePresentation
- For N = LBound(Arr) To UBound(Arr) '循环数组内容
- If N + 1 > .Slides.Count Then '如果当前循环项数大于幻灯片页数,则复制最后一个幻灯片并粘贴到最后
- .Slides(N).Copy
- .Slides.Paste N
- End If
- With .Slides(N + 1) '给幻灯片中的两个图形加上文字
- .Shapes(1).TextFrame.TextRange.Text = Arr(N)
- .Shapes(2).TextFrame.TextRange.Text = Dic(Arr(N))
- End With
- Next N
- End With
- Set Dic = Nothing '清空字典
- End Sub
注意，本段代码需放入ppt文档中，同理也可以写出放在excel文档中的代码。 |
2楼
亡者天下 |
过来学习一下！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一