Vba Excel打开word、powerpoint和pdf文件

我正在尝试使excel打开xls以外的文件（word文件、powerpoint文件和pdf文件）。我只是成功使用excel文件（原因很明显）。有没有办法让excel使用默认程序打开文件。例如，如果我打开一个.doc文件，它应该使用Word，但如果我打开一个.pdf文件，它应该使用Acrobat（或其他pdf阅读器）。我正在使用超链接。我将向您展示我迄今为止所取得的成果：

我有一个列表（本例中为Listbox2），其中包含加载特定文件夹中所有文件的代码：

Private Sub UserForm_Initialize()
Dim MyFolder As String
Dim MyFile As String
Dim j As Integer
USER = TextBox99
MyFolder = "C:\Example"
MyFile = Dir(MyFolder & "\*.*")
Do While MyFile <> ""
    ListBox2.AddItem MyFile
    MyFile = Dir
Loop
End Sub

它将只打开excel文件。其他人会给我一个错误。有没有办法让Excel使用电脑中的默认程序打开任何类型的文件。谢谢您的关注

---

干杯

我可以打开pdf和word文件，但现在我无法打开excel文件。贷记用户1302114（）

我使用的代码是：

    Dim Shex As Object
   Set Shex = CreateObject("Shell.Application")
   tgtfile = "C:\Example" & UserForm1.ListBox2.Column(0)
   Shex.Open (tgtfile)

我还在工具首选项中启用了Acrobat和word库

    Dim Shex As Object
   Set Shex = CreateObject("Shell.Application")
   tgtfile = "C:\Example" & UserForm1.ListBox2.Column(0)
   Shex.Open (tgtfile)