用VBA打开PDF,打开各种文件的方法-宏鹏
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2016/9/14 8:11:46 评论(3) 浏览(28155)  评论 | 加入收藏 | 复制
   
摘 要:用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

Access软件网交流QQ群(群号:198465573)
 
 相关文章
[示例]函数获得PDF文件名称  【钱玉炜  2009/6/6】
运行外部命令计算器用shell函数\调用系统计时器命令的示例  【风行  2011/4/22】
【Access源码示例】用命令按钮打开相对路径与绝对路径的文件或文...  【麥田  2013/1/9】
【Access文章】VBA编程技巧之Shell函数妙用  【缪炜  2014/7/11】
超棒的Access打开文件及打开文件夹函数,Access VBA打...  【月皓星隐  2015/1/10】
常见问答
技术分类
相关资源
文章搜索
关于作者

宏鹏

文章分类

文章存档

友情链接