'******************************************************************************************************************
'程序功能：本程序以打开文件或者文件夹为目的，返回所选择文件或者文件夹的地址
'
'程序名称：打开文件
'
'程序参数：打开方式有File（打开文件） 和Folder（打开文件夹）
'
'使用范围：适合所有access
'
'使用范例：直接在程序中调用即可，比如 打开文件(File),如果不写则默认为打开文件
'
'程序作者：云氲之月
'
'编外的话：为了捡懒，所以设置个公用的，反正都可以调用省去了很多时间
'
'编写时间：2015-1-3
'******************************************************************************************************************
Function 打开文件(Optional ByVal 打开方式 As String) As String
If 打开方式 = "" Or 打开方式 = "File" Then
With FileDialog(3)
' .InitialFileName = CurrentProject.path
'单选
.AllowMultiSelect = False
'清空文件筛选器
.Filters.Clear
' 设置标题
.Title = "选择要导入的文件"
'在文件筛选器中筛选出excel文件类型
'.Filters.Add "excel文件", "*.xls,*.xlsx,*.xlsm"
'.Filters.Add "html文件", "*.html"
'.Filters.Add "xml文件", "*.xml"
''在文件筛选器中选择所有文件
.Filters.Add "所有文件", "*.*"
' 取得文件名
If .Show Then 打开文件 = .SelectedItems(1)
End With
ElseIf 打开方式 = "Folder" Then
With FileDialog(msoFileDialogFolderPicker)
' .InitialFileName = CurrentProject.path
'单选
.AllowMultiSelect = False
'清空文件筛选器
.Filters.Clear
' 设置标题
.Title = "选择要导入的文件"
'在文件筛选器中筛选出excel文件类型
'.Filters.Add "excel文件", "*.xls,*.xlsx,*.xlsm"
'.Filters.Add "html文件", "*.html"
'.Filters.Add "xml文件", "*.xml"
''在文件筛选器中选择所有文件
.Filters.Add "所有文件", "*.*"
' 取得文件名
If .Show Then 打开文件 = .SelectedItems(1)
End With
Else
MsgBox "参数错误，打开文件用 ‘file’；打开文件夹用‘folder’,谢谢使用！"
Exit Function
End If
End Function