超棒的Access打开文件及打开文件夹函数，Access VBA打开文件函数，Access VBA打开文件夹函数【Access软件网】 |
您所在的位置：网站首页 › 手机怎么打开access文件 › 超棒的Access打开文件及打开文件夹函数，Access VBA打开文件函数，Access VBA打开文件夹函数【Access软件网】 |
|
时 间: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群 (群号:483923997) Access源码网店 |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |