[讨论]VBA中如何取得和描述不同电脑的光驱盘符(相对路径)?
问题产生环境:有一个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。第三行代码该如何写?
请各位不吝赐教,谢谢了!
页:
[1]