VBA 宏编程相关文件已连接到https://download.csdn.net/download/Wei 198621/10589098
一 前期安装条件
可以通过解压缩13 Vba6.3 for WPS .zip文件夹的内容并执行安装，然后将后缀从pptx更改为pptm来运行宏
错误未定义用户定义类型ADODB.Connection
运行时可能会出现以下提示： 未定义用户定义类型的ADODB.Connection必须添加引用。 我的机器有很多office版本，请选择microsfot ActiveX数据对象的版本
工具— “的引用
打开二 编辑界面开发工具-《宏-》
选择编辑
插入要在模块定义中工作的PPT页码
如示例中定义的，宏在幻灯片2-3上运行
—插入类模块
SQL字符串类模块的内容
OracleHelper类模块的内容
宏启用
默认值应该是灰色的。 必须安装宏工具。 安装以下工具
打开VBA方法
将ALT F11==菜单工具宏===放置在某个图纸名称上在代码上单击鼠标右键==excel visual basic
三 核心函数介绍
最简单的宏写法
3359 jingyan.Baidu.com/article/4a e 03 de 32663953 EFE 9e 6b 47.html
;”>
getTable
getTableActivePresentation.Slides1), 1) ‘（从1开始）
ActivePresentation.Slides1) ，Slide 是幻灯片，从1开始，第一个就是1 ，不是0
Private Function getTableslide As slide, index As Integer)
Dim sh As Integer
Dim ei As Integer
ei = 0
Rem 获取第2页
With slide
For sh = 1 To .Shapes.count
If .Shapessh).HasTable Then
ei = ei + 1
If ei = index Then
Set getTable = .Shapessh).table
Exit For
End If
End If
Next
End With
End Function
getColIndex
Rem key:7月 table:指定table rowIndex:指定行 获取指定列索引
Private Function getColIndexkey As String, table As table, rowIndex As Integer)
Dim colCount As Integer
colCount = table.Columns.count
Dim i As Integer
For i = 1 To colCount
If Trimtable.RowsrowIndex).Cellsi).Shape.TextFrame.TextRange.text) = key Then
Let getColIndex = i
Exit For
End If
Next
End Function
四 真实执行
10.10.128.143:15389 上面有徐磊安装好的环境，将pptm文件放到这个上面，稍微修改 ，运行就可以了
大概执行6 7 分钟，P11页的SQL比较大
五 小知识点
1： 调试快捷键 ： F8 单步执行
2： Debug.Print :打印变量等内容
3： xlsm 后缀 pptm 后缀 的可以进行VBA 编程
由于VBA或者宏代码有一定的危害性，为了提高安全意识，凡是以XLSX为后缀名的文件都不能含有宏代码，需要将后缀保存为XLSM