Question

我想使用Excel VBA宏打开PDF文件。

我在excel文件中有一个名字列表。一旦命令按钮＆＃34;打开PDF＆＃34;按下我希望宏从某个位置打开一个pdf文件。

带有activecell.value的文件名corrosponds

提前致谢

＆＃13;

Sub Knop1_Klikken()

Dim a As String
Dim myShell As Object

a = ActiveCell.Value

Set myShell = CreateObject("WScript.Shell")
myShell.Run "Z:\simbeton - Solidworks\bp - betonplaten\bp07 - simvlak ZH Sport\PDF\" & "a" & ".pdf"

End Sub

＆＃13;

错误:(我的MS在荷兰语中）：

Fout -2147024894（80070002）tijden uitvoering： Methode Run van对象IWshSHell3是mislukt

翻译： 执行期间错误-2147024894（80070002）：对象IWshSHell3的Methode Run失败。

Answer 1

你知道它是如何完成的吗？如果没有，这就是解决方案：

myShell.Run chr(34) & "C:\" & a & ".pdf" & chr(34)

chr（34）是＆＃34;

区别在于：你的命令发送 C：\ JouBetonInfo.pdf 作为参数我的命令发送＆＃34; C：\ JouBetonInfo.pdf＆＃34; 作为参数。请注意我发送的引号。它适用于我（Excel 2007）。

Answer 2

您可以像这样简单地使用WScript.Shell：

a = ActiveCell.Value
Dim myShell As Object
Set myShell =  CreateObject("WScript.Shell")
myShell.Run "C:\" & a & ".pdf"

使用VBA打开PDF文件

2 个答案: