使用 VBA 打开 PDF 文件

Question

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

我在 excel 文件中有一个姓名列表。一旦按下命令按钮“打开 PDF”，我希望宏从某个位置打开一个 pdf 文件。

文件名与 activecell.value 对应

提前致谢

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

错误：（我的 MS 是荷兰语）：

Fout -2147024894 (80070002) tijden uitvoering： Methode Run van object IWshSHell3 错误

翻译： 执行期间出现错误 -2147024894 (80070002)： 对象 IWshSHell3 的方法运行失败。

Answer 1

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

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

Answer 2

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

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

chr(34) 是一个"

区别在于： 您的命令发送 C:\JouBetonInfo.pdf 作为参数，而 我的命令发送 "C:\JouBetonInfo.pdf" 作为参数。请注意我发送的报价。它对我有用（Excel 2007）。