首页
学习
活动
专区
工具
TVP
发布
您找到你想要的搜索结果了吗?
是的
没有找到

VBA打开文件夹对话框,取得文件夹内文件列表

近来写代码,常用到,就在此做一个备份,以方便日后使用 写成两个函数 【函数一】:打开文件夹对话框,多选文件,确定,返回文件列表数组 【使用方法】:arr=getFilesPath() Sub...[a:a].ClearContents [a1].Resize(UBound(arr) + 1, 1) = Application.Transpose(arr) End Sub '==打开文件夹..." End End If End With getFilesPath = temp_arr End Function 【函数二】 (1)一个是打开文件夹对话框...,获得文件夹 (2)一个是传递进文件夹参数,返回文件列表数组 【使用方法】arr=getFiles("xxx") '==打开文件夹对话框,获得文件夹的路径 Sub GetFloder_FileDialog...string,返回文件夹中所有文件列表数组 '==使用:arr=getFiles(xxx) Function getFiles(folder As String) Dim p, temp_str

1.9K20
领券