我在excel论坛发帖没人理。。。求助如何用excel打开ppt并运行其中的vb。。

bavinfeather · 发表于 2019-7-19 14:26

本帖最后由 bavinfeather 于 2019-7-19 14:42 编辑

以下代码打开和关闭ppt都没问题，但是无法运行其中的vb。。。

<div class="blockcode"><blockquote>
Set ptApp = CreateObject("PowerPoint.Application")
Set ptPre = ptApp.Presentations.Open("C:\Users\c\Desktop\TEST\2019\s_2019.pptm", msoTrue)
Application.Run ptPre & "SplitSlides"‘脚本名是SplitSlides，网上抄的分割ppt的代码。。。。这一句话无法运行
ptPre.Close
Set ptPre = Nothing
ptApp.Quit
Set ptApp = Nothing

复制代码

求助各位

bavinfeather · 发表于 2019-7-19 15:55

Application.Run ptPre & "SplitSlides"‘脚本名是SplitSlides，网上抄的分割ppt的代码。。。。这一句话无法运行,excel和ppt的执行命令不一样吗。。。

bavinfeather · 发表于 2019-7-22 08:59

求助~需要ppt可用类似Application.Run的命令。。。

bavinfeather · 发表于 2019-7-30 17:16

555555555555555

		自动登录	找回密码
密码			免费注册

[求助] 我在excel论坛发帖没人理。。。求助如何用excel打开ppt并运行其中的vb。。