用VBA打开PDF文件
我想用Excel VBAmacros打开一个PDF文件。
我有一个在Excel文件中的名称列表。 只要命令button“打开PDF”被按下，我想macros从某个位置打开PDF文件。
文件名corrosponds 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 is mislukt
翻译： 错误-2147024894（80070002）执行期间：对象IWshSHell3的Methode运行失败。
你有没有发现它是如何完成的？ 如果没有，这里的解决scheme是：
myShell.Run chr(34) & "C:\" & a & ".pdf" & chr(34)
（34）是一个“
区别在于：您的命令将C：\ JouBetonInfo.pdf作为参数发送，而我的命令将“C：\ JouBetonInfo.pdf”作为参数发送。 请注意我发送的引号。 它适用于我（Excel 2007）。
你可以像这样简单地使用WScript.Shell ：
a = ActiveCell.Value Dim myShell As Object Set myShell = CreateObject("WScript.Shell") myShell.Run "C:\" & a & ".pdf"