Excel VBA 对话框选择文件或者文件夹函数实现源码

1.0 VBA

Reference: Microsoft Scriptiong Runtime

1.1 FOLDER精简版

Private Function IChooseFolder() As StringDim dlgOpen As FileDialogSet dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)If dlgOpen.Show = -1 Then IChooseFolder = dlgOpen.SelectedItems(1)Set dlgOpen = Nothing
End Function

1.2 FOLDER增强版

Private Function IFolderPicker() As StringDim FolderDialogObject As FileDialogSet FolderDialogObject = Application.FileDialog(msoFileDialogFolderPicker)With FolderDialogObject.Title = "Select your search folder".InitialFileName = "C:\".ButtonName = "Choose".Show               'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）End WithOn Error Resume NextIFolderPicker = FolderDialogObject.SelectedItems(1)Set FolderDialogObject = Nothing
End Function

1.3 FILE单选

Private Function IFilePicker() As StringDim FileDialogObject As FileDialogSet FileDialogObject = Application.FileDialog(msoFileDialogFilePicker)With FileDialogObject.Title = "Select your search folder".InitialFileName = "C:\".ButtonName = "Choose".Filters.Clear.Filters.Add "Excel Files", "*.xls;*.xlw".Filters.Add "All Files", "*.*".AllowMultiSelect = False  '多选.Show                      'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）End WithOn Error Resume NextIFilePicker = FileDialogObject.SelectedItems(1)Set FileDialogObject = Nothing
End Function

1.4 FILE多选

Private Sub IFileMultiPicker()Dim FileDialogObject As FileDialogSet FileDialogObject = Application.FileDialog(msoFileDialogFilePicker)With FileDialogObject .Title = "Select your search folder".InitialFileName = "C:\".ButtonName = "Choose".Filters.Clear.Filters.Add "Excel Files", "*.xls;*.xlw".Filters.Add "All Files", "*.*".AllowMultiSelect = True   '多选.Show                      'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）For i = 1 To .SelectedItems.CountMsgBox "YourChoseFiles: " & .SelectedItems(i), vbOKOnly + vbInformation, "Tips"NextEnd WithSet FileDialogObject = Nothing
End Sub

1.5 String转Folder

Private Function IFolderCheck(iFldPath As String) As FolderDim tempFld As FolderDim fso As New FileSystemObjectSet tempFld = fso.GetFolder(iFldPath)set IFolderCheck = tempFld
End Function

1.6 String转File

Private Function IFileCheck(iFilePath As String) As fileDim tempFile As fileDim fso As New FileSystemObjectSet tempFile = fso.GetFile(iFilePath)Set IFileCheck = tempFile
End Function

Excel VBA 对话框选择文件或者文件夹函数实现源码相关推荐

EXCEL VBA 对话框MsgBox语法笔记
EXCEL VBA 对话框MsgBox语法 MsgBox(prompt[,buttons] [,title] [,helpfile, context]) prompt:必需项.显示的提示文字内容,字符 ...
php文件直链源码,蓝奏网盘文件夹直链解析源码
蓝奏网盘文件夹直链解析源码 @晶晶易.版本 2 .支持库 spec .程序集程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量返回文本, 文本型 .局部变量 ...
针对大量数据，MATLAB生成EXCEL文件并进行排版处理的源码
#MATLAB生成EXCEL文件并进行排版处理的源码项目要求:给定某海洋站潮位数据在一年之年的每分钟潮位数据(一共有24×60×365=525600个数),txt格式,要求制作出海洋站该年份的潮汐表 ...
C语言选择排序Selection sort算法(附完整源码)
选择排序Selection sort算法选择排序Selection sort算法的完整源码(定义,实现,main函数测试) 选择排序Selection sort算法的完整源码(定义,实现,main函 ...
自己收藏的两款夹娃娃PHP源码
微信红色抓娃娃三级分销源码加第三方支付 http://www.sucaihuo.com/php/2027.html 账号123,密码123 无需公众号(想要在微信内自动登录,必须绑定认证服务号),支付 ...
如何选择网红直播带货平台源码的功能进行开发搭建
据三方数据显示,国内移动互联网在社交.视频.电商等几个领域,行业用户规模均已突破5亿,用户每天花费在互联网上的时间已突破6小时,人均单日时长增加18分钟,下沉市场用户规模高达6.14亿,红利可观.那么 ...
android文件夹管理器源码实现,Android文件夹管理器源码实现
一.资源管理器介绍现在在一些移动终端上面都会有自带的资源管理器,其实其并非是Android系统自带,而是手机产商与app开发商的合作而导致融合,借助第三方的开发软件预装在出厂的手机,是新时代下的另一 ...
file-uploader-cli 关于上传至京东云中文件夹问题的源码修改
file-uploader-cli源码修改注:可以直接跳到最下面看需要修改的部分最近由于Gitee的开源审查,导致其无法再作为图床使用.在对比了多家OSS服务后,决定使用京东云作为新图床,并使用f ...
vue文件夹上传源码
一. 功能性需求与非功能性需求要求操作便利,一次选择多个文件和文件夹进行上传: 支持PC端全平台操作系统,Windows,Linux,Mac 支持文件和文件夹的批量下载,断点续传.刷新页面后继续传输 ...

Excel VBA 对话框选择文件或者文件夹函数实现源码

1.0 VBA

1.1 FOLDER精简版

1.2 FOLDER增强版

1.3 FILE单选

1.4 FILE多选

1.5 String转Folder

1.6 String转File

Excel VBA 对话框选择文件或者文件夹函数实现源码相关推荐

最新文章

热门文章