相关文件在连接 https://download.csdn.net/download/wei198621/10589098
执行的时候可能会提示如下, 用户定义类型未定义 ADODB.Connection 需要添加引用,我机器上面安装的office版本比较多,选一个 Microsfot ActiveX Data Objects 版本 就可以
工具--》引用
打开 开发工具 -》 宏 -》
选择编辑
插入 模块 定义要工作的PPT页码
如示例中定义了再幻灯片 2 3 中将会执行宏
插入--》类模块
SqlString 类模块内容
OracleHelper类模块内容
宏启用
默认应该是灰色的,需要安装宏工具,安装如下工具
打开VBA方法
ALT+F11 == 菜单 工具 宏 == (放在某个sheet名上面)右键 查看代码 == excel visual basic
最简单的宏写法
https://jingyan.baidu.com/article/4ae03de32663953efe9e6b47.html
getTable
getTable(ActivePresentation.Slides(1), 1) '(从1开始)
ActivePresentation.Slides(1) ,Slide 是幻灯片,从1开始,第一个就是1 ,不是0
Private Function getTable(slide 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 .Shapes(sh).HasTable Then
ei = ei + 1
If ei = index Then
Set getTable = .Shapes(sh).table
Exit For
End If
End If
Next
End With
End Function
getColIndex
Rem key:7月 table:指定table rowIndex:指定行 获取指定列索引
Private Function getColIndex(key 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 Trim(table.Rows(rowIndex).Cells(i).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