Access培训
网站公告
·Access快速平台QQ群号:84825014    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

用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


Access软件网QQ交流群 (群号:252407829)       access源码网店

最新评论 查看更多评论(3)

2018/12/8 11:50:17陨石袭海
打开的文件是自己电脑上D盘文件,还是服务器上D盘的文件?

2018/12/8 11:49:27陨石袭海
是打开客户端上的文件还是打开服务器上的文件?

2018/2/18 13:41:39龚元福
好用,谢谢。

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助