一、学员问题描述:
请教一下老师,在Access里面怎么用最简单的方法实现打开文件及打开文件夹路径的功能?
二、解决方法:
新建模块,定义一个自定义函数就可以实现↓
'ShellExecute函数二次封装,以简化使用,本段代码写在模块里面保存。
'输入参数File可以是文件名,文件夹,网页地址或命令行
Public Function ShellExe(PathName As Variant, Optional WindowStyle As VbAppWinStyle = vbNormalFocus)
ShellExecute Application.hWndAccessApp, "Open", PathName, 0, 0, WindowStyle
End Function
使用方法:
'单击事件过程或者双击事件过程写
ShellExe Me.路径 'ShellExe函数是在模块里定义的
附 件:
点击下载此附件
图 示: