用VBA打开PDF，打开各种文件的方法

时　间:2016-09-14 08:11:46
作　者:宏鹏   ID：21115  城市：上海
摘　要:用VBA打开任意文件方法
正　文:

Private Sub test1_Click()
    Dim strPathName As String
    If MsgBox("请选择您要打开的格式文件", vbOKCancel + vbInformation, "提示!!!!") = vbOK Then
        With Application.FileDialog(3)
            .Filters.Clear
            '将下面一行的单引号去除,表示启用指定的文件夹位置
            '.InitialFileName = "D:\"
            If .Show Then
                strPathName = .SelectedItems(1)
            End If
        End With
        If strPathName <> "" Then
            Shell "explorer.exe """ & strPathName & """", vbNormalFocus
        End If
    End If
End Sub