找回密码
 立即注册
搜索

[讨论]VBA中如何取得和描述不同电脑的光驱盘符(相对路径)?

0
回复
349
查看
[复制链接]

13

主题

184

帖子

40

幻币

一流武者

Rank: 3Rank: 3

积分
236
QQ
2016-4-12 12:16:08 显示全部楼层 |阅读模式
问题产生环境:有一个PPT演示文稿,有一动作按钮,用VBA调用Microsoft Word,并自动打开硬盘上的*.doc文件,代码如下:Private Sub CommandButton2_Click()Set wrd = CreateObject("Word.Application")wrd.Documents.Open FileName:="""e:My Documents练习.doc"""wrd.Visible = TrueEnd Sub能顺利通过。
问题是当把它刻录为AutoRun光盘(把所有链接文件都放在根目录),“练习.doc”这个文件的绝对路径是“X:练习.doc”,不再是“e:My Documents”了;放进光驱后,PPT文件能自动播放,但单击那个按钮后,已经不能调用doc文件了,提示出错。特向各路大虾请教上面的代码该如何写?我尝试过以下的,但不会写(合并)!已经有点相对路径的味道,但还出错,提示中说“找不到文件”。ActivePresentations.Path &"练习.docthisPresentations.path &"练习.doc可能Word和PowerPoint中语法不一样,难就难在:在PowerPoint如何告诉路径给Word。第三行代码该如何写?
请各位不吝赐教,谢谢了!
PPT学习论坛
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册