超棒的Access打开文件及打开文件夹函数，Access VBA打开文件函数，Access VBA打开文件夹函数

时　间:2015-01-10 22:42:26
作　者:月皓星隐   ID：39720  城市：自贡
摘　要:Access打开文件的函数。
正　文:

      因为有很多程序都需要用到打开文件以获得路径名称，所以便编写了个通用函数，如果需要的可以拿去用，先建立个模块，粘贴下面的函数，然后在按钮的单击事件调用  ‘打开文件 file  ’  或  ‘打开文件 folder ’ 或者VBA代码中直接调用都行，具体可以下载源码示例参考一下，一学就会了！

附   件:

点击下载此示例

图   示:

 

说明及代码:

本程序需要调用  Microsoft office 14.0 object library 运行库 支持

'*******************************************************************

'程序功能：本程序以打开文件或者文件夹为目的，返回所选择文件或者文件夹的地址
'
'程序名称：打开文件
'
'程序参数：打开方式有File（打开文件）0 和Folder（打开文件夹）1
'
'使用范围：access 2003，2007，2010，2013（其他版本的没试过）
'
'使用范例：直接在程序中调用即可，比如 打开文件(File),如果不写则默认为打开文件
'          参数用0代替 file或者 1代替 folder都可以
'程序作者：月皓星隐
'
'编外的话：为了捡懒，所以设置个公用的，反正都可以调用省去了很多时间
'
'编写时间：2015-1-3
'********************************************************************
Function 打开文件(Optional ByVal 打开方式 As String) As String
     If 打开方式 = "" or 打开方式 = "File" or 打开方式 = 0 Then
        With FileDialog(3)
            .AllowMultiSelect = False
            .Filters.Clear
        '    设置标题
            .Title = "选择要导入的文件"
            .Filters.Add "所有文件", "*.*"
        '    取得文件名
            If .Show Then 打开文件 = .SelectedItems(1)
        End With
     ElseIf 打开方式 = "Folder" or 打开方式 = 1 Then
                With FileDialog(msoFileDialogFolderPicker)
            '单选
            .AllowMultiSelect = False
            '清空文件筛选器
            .Filters.Clear
        '    设置标题
            .Title = "选择要导入的文件"
        '    取得文件名
            If .Show Then 打开文件 = .SelectedItems(1)
        End With
     Else
        MsgBox "参数错误，打开文件用 ‘file’；打开文件夹用‘folder’,谢谢使用！"
        Exit Function
     End If
End Function


Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店