VBA代码大全021：如何用vba打开各种格式的文件？

你有没有遇到这样的场景，一段代码跑完，最后要把结果展示出来。

比如操作其它excel文件，等代码跑完，希望看到最后的结果，就需要最后添加打开文件的代码。

再比如爬虫的时候经常会用代码爬取网站的源代码，然后将源代码输入进文本文件，最后显示出来，方便查看。

再比如用代码将word文件另存为Pdf后，希望打开pdf文件查看下效果。

所有的这些都涉及到用vba代码打开文件的操作，而不是人工手动打开。

今天介绍一种用用WScript.Shell 对象的Run方法打开文件的方法。

Run方法可以根据文件的扩展名自动查找对应的匹配程序进行文件的打开，比如遇到.doc为后缀名的word文档，就可以使用word应用程序打开该文件，

比如遇到.pdf为后缀名的pdf文档，就可以使用pdf应用程序打开该文件等等。

代码如下：

Sub 打开文件()
    sPath = Excel.ThisWorkbook.Path & "\"
    Set obj = VBA.CreateObject("Wscript.Shell")
    '打开同路径下的jpg文件
    obj.Run (sPath & "1.jpg")
     '打开同路径下的pdf文件
    obj.Run (sPath & "test.pdf")
     '打开同路径下的doc文件
    obj.Run (sPath & "apple.doc")
     '打开同路径下的xlsx文件
    obj.Run (sPath & "abc.xlsx")
End Sub

用上述方法的好处是不用考虑系统中安装的应用程序，会自动寻找最适合的应用程序打开指定的文件格式。