首页
学习
活动
专区
工具
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
您找到你想要的搜索结果了吗?
是的
没有找到

ExcelVBA-打开对话框取得文件夹路径2种方法

Excel VBA自动化处理文件时,通常有这样的操作: (1)打开文件对话框==>(2)选中文件夹==>(3)确定==>(4)返回文件夹路径==>(5)读取文件夹中的所有文件==>(6)再进行其他操作...允许用户选择文件夹。msoFileDialogOpen。 允许用户打开文件。msoFileDialogSaveAs。 允许用户保存文件。...Shell.Application之BrowseForFolder 语法:CreateObject("Shell.Application").BrowseForFolder(s1, s2, s3, s4) 第一个为对话框的窗体句柄...,一般设置为0;第二个为打开窗体的说明,如上图中的“请选择上传文件夹”;第三个参数控制打开的窗口中显示的内容以及窗体中某些元素的状态,如不显示“新建文件夹”;第四个参数为可选参数,只要控制对话框中文件系统的根目录...Object '后期绑定Shell.Application Set objshell = CreateObject("Shell.Application") '弹出对话框

1.4K30

ExcelVBA文件操作-打开对话框取得文件夹路径2种方法

ExcelVBA-打开对话框取得文件夹路径2种方法 Excel VBA自动化处理文件时,通常有这样的操作: (1)打开文件对话框==> (2)选中文件夹==> (3)确定==> (4)返回文件夹路径==...允许用户选择文件夹。 msoFileDialogOpen。 允许用户打开文件。 msoFileDialogSaveAs。 允许用户保存文件。...Shell.Application之BrowseForFolder 语法:set obj=CreateObject("Shell.Application").BrowseForFolder(s1, s2, s3, s4) 第一个为对话框的窗体句柄...,一般设置为0; 第二个为打开窗体的说明,如上图中的“请选择上传文件夹”; 第三个参数控制打开的窗口中显示的内容以及窗体中某些元素的状态,如不显示“新建文件夹”; 第四个参数为可选参数,只要控制对话框中文件系统的根目录...As Object Set objshell = CreateObject("Shell.Application") '后期绑定Shell.Application '弹出对话框 Set objFolder

5K40

js弹出框、对话框、提示框、弹窗总结

js弹出框、对话框、提示框、弹窗总结 一、JS的三种最常见的对话框 [javascript] view plain copy //====================== JS...最常用三种弹出对话框 ======================== //弹出对话框并输出一段提示信息 function ale() { //弹出一个对话框...; } //弹出一个询问框,有确定和取消按钮 function firm() { //利用对话框返回的值 (true 或者 false) if (confirm...var name = prompt(“请输入您的名字”, “”); //将输入的内容赋给变量 name , //这里需要注意的是,prompt有两个参数,前面是提示的话,后面是当对话框出来后...,在对话框里的默认值 if (name)//如果返回的有内容 { alert(“欢迎您:” + name) }

16.1K30

对话框

对话框是一个现代GUI应用不可或缺的一部分。对话是两个人之间的交流,对话框就是人与电脑之间的对话。对话框用来输入数据,修改数据,修改应用设置等等。...输入对话框 QInputDialog提供了一个简单便利的对话框用于从用户那儿获得只一个值。输入值可以是字符串,数字,或者一个列表中的列表项 #!...if ok: self.label.setFont(font) 文件对话框 文件对话框是用于让用户选择文件或目录的对话框。可以选择文件的打开和保存。 #!...点击菜单栏选项会弹出一个QtGui.QFileDialog对话框,在这个对话框里,你能选择文件,然后文件的内容就会显示在文本编辑框里。...getOpenFileName()方法的第一个参数是说明文字,第二个参数是默认打开的文件夹路径。默认情况下显示所有类型的文件。

2.3K20

JavaScript对话框

在JavaScript中,对话框共有3种,这3种对话框分别使用以下3种方法定义: (1)alert(); (2)confirm(); (3)prompt(); 其中前两种用得比较多,最后一种在实际开发中用得比较少...该对话框效果如下: image.png 语法: alert(message) 说明: 该对话框只是用于提示,并不能对JavaScript脚本产生任何影响。...该对话框效果如下: image.png 语法: confirm(message) 说明: message是必选项,表示弹出对话框中的文本,这是一个字符串。...三、prompt() 在JavaScript中,prompt()方法对话框用于输入并返回用户输入的字符串。...该对话框效果如下: image.png 语法: prompt(message); 说明: 参数message表示对话框提示内容,这是一个字符串。

1.7K60

ExcelVBA-Fso打开文件对话框取得文件夹中的一层目录列表

ExcelVBA-Fso打开文件对话框取得文件夹中的一层目录列表 有时候我们在工作时需要取得文件夹下面的第一层文件夹的目录列表,我们可以dos命令做成bat文件,生成一个txt文件, 也可以用以下的方法...:VBA直接取出,我只要一层就可以啦,今天练习一下用做一个自定义的函数,把取得的列表返回到一个数组中,有时有用,这里做个记录吧 这里有两个代码常常用到,(1)打开文件对话框(2)取得列表并返回到数组中...Dim arr() As String With Application.FileDialog(msoFileDialogFolderPicker) .Title = "请选择文件夹...vbCrLf m = m + 1 Next ' MsgBox s GetFolderList = temp_arr End Function ====这是我的电脑中的一个文件夹

1.2K30

MFC编程入门之六(对话框:创建对话框模板和修改对话框属性)

对话框,大家应该很熟悉了,在我们常用的软件中大多都有对话框界面,例如,360安全卫士的主界面其实就是对话框,知识它做了很多美工 方面的工作,将其大大美化了。    ...创建对话框主要分为两大步:    第一,创建对话框资源,主要包括创建新的对话框模板、设置对话框属性和为对话框添加各种控件;    第二,生成对话框类,主要包括新建对话框类、添加控件变量和控件的消息处理函数等...一、创建对话框的应用程序框架    之前创建的HelloWorld程序是单文档应用程序,生成了多种窗口,如果用它来讲创建对话框的话可能有些复杂,对大家单纯理解对话框有点 影响,所以这里就再创建一个基于对话框的应用程序...二、对话框模板    可见对于主对话框来说,创建对话框第一步中的创建新的对话框模板已经由系统自动完成了。...在这里对经常使用的几个属性操作简单说明,并对Addition对话框进行属性设置说明。    1、ID:对话框ID,唯一标识对话框资源,可以修改。

3.5K10

【Auto.js】 将文件夹压缩成zip包

将一个文件夹压缩成一个zip包,可应用于项目文件夹打包成zip, 文件夹过滤了目录中的空文件夹,因此,空文件夹不会被打包到zip包中....由于本人JS知识有限,JAVA也不懂, 导致该函数, 打包大型文件时, 非常慢,性能低下. 如果@admin 有好的方法, 可以发一下, 谢谢....= "/sdcard/脚本/"; var zipFilePath = "/sdcard/autoJS.zip" dirToZip(srcPath, zipFilePath); /** * 将一个文件夹压缩成...zip包 * @param {string} srcDir 要压缩的文件夹(绝对路径) * @param {string} out 压缩后输出的zip文件(绝对路径) */ function dirToZip...} //解压zip文件 com.stardust.io.Zip.unzip(new java.io.File("解压zip文件的路径"), new java.io.File("要把zip解压到 某个文件夹的路径

1.9K20
领券