我有一点问题,我使用vb6通过代码修改powerpoint。当我从vb6打开它时,将它分配给一个全局变量,以便从一个不同的程序处理它。我的问题是如果在开始我的程序之前它已经打开,如何将powerpoint分配给变量。
我尝试使用此代码但不起作用
dim ppt as powerpoint.presentation
Set ppt = GetObject(pptfile) ' pptfile is powerpoint path and filename that is opened
答案 0 :(得分:0)
这是一个字符串,检查你的字符串。没有必要引用它。你的代码在这里工作。
如果文件未打开,则在没有该文件的情况下打开隐藏状态。当你的参考超出范围时,excel会关闭。
Private Sub Form_Load()
Dim ppt As Excel.Workbook
pptfile = "C:\Users\user\Documents\Super.xls"
Set ppt = GetObject(pptfile)
MsgBox ppt.application & " " & Err.Number & " " & Err.Description
MsgBox ppt.FullNameURLEncoded
End Sub