首页
学习
活动
专区
工具
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

2.1K20

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

Excel VBA自动化处理文件时,通常有这样的操作: (1)打开文件对话框==>(2)选中文件夹==>(3)确定==>(4)返回文件夹路径==>(5)读取文件夹中的所有文件==>(6)再进行其他操作...允许用户选择文件夹。msoFileDialogOpen。 允许用户打开文件。msoFileDialogSaveAs。 允许用户保存文件。...其中msoFileDialogFolderPicker就是用于打开文件夹的 【代码】 Sub FileDialog_sample1() With Application.FileDialog(msoFileDialogFolderPicker...,一般设置为0;第二个为打开窗体的说明,如上图中的“请选择上传文件夹”;第三个参数控制打开的窗口中显示的内容以及窗体中某些元素的状态,如不显示“新建文件夹”;第四个参数为可选参数,只要控制对话框中文件系统的根目录...【第四个参数】详解 注意:如果设置了其他数据,将不能再打开其他文件夹, 所以建议设置为0 【代码】 Sub yhd_BrowseFolders() Dim objshell As Object

2K30
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

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

    ExcelVBA-打开对话框取得文件夹路径2种方法 Excel VBA自动化处理文件时,通常有这样的操作: (1)打开文件对话框==> (2)选中文件夹==> (3)确定==> (4)返回文件夹路径==...允许用户选择文件夹。 msoFileDialogOpen。 允许用户打开文件。 msoFileDialogSaveAs。 允许用户保存文件。...其中msoFileDialogFolderPicker就是用于打开文件夹的 【代码】 Sub FileDialog_sample1() With Application.FileDialog(msoFileDialogFolderPicker...,一般设置为0; 第二个为打开窗体的说明,如上图中的“请选择上传文件夹”; 第三个参数控制打开的窗口中显示的内容以及窗体中某些元素的状态,如不显示“新建文件夹”; 第四个参数为可选参数,只要控制对话框中文件系统的根目录...图片 如果设置了其他数据,将不能再打开其他文件夹,所以建议设置为0 【代码】 Sub yhd_BrowseFolders() Dim objshell As Object Dim objFolder

    6.2K40

    如何在 指定文件夹 快速打开 jupyter notebook

    所以就希望能在指定文件夹快速打开jupyter notebook。目前常见的方法,就是在CMD命令窗口执行以下语句 jupyter notebook 指定文件夹路径 ?...有的 举个例子,目前我的D:\python_code目录如下图所示,现在我想在该路径下快捷打开jupyter notebook。 ?...会发现jupyter notebook已经自动打开,并且工作路径正是我们所需的D:\python_code。 ?...当然如果当时没有勾选,也可以自行百度搜索如何添加环境变量。 将偷懒进行到底 上面已经将步骤精简为只需输入两个单词就好了。 可是我们要输入这么长的单词,一不小心万一输错了呢。...选定该短语,再回车,就轻松打开了jupyter notebook,是不是更简单啦。 ?

    6.8K50

    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.3K30

    Nest.js 实战 (五):如何实现文件本地上传

    async () => ({ limits: { fileSize: 1024 * 1024 * 5, // 限制文件大小为 5MB }, storage: diskStorage({ // 配置文件上传后的文件夹路径...wmv']; // 视频 const allowedAudioTypes = ['mp3', 'wav', 'ogg']; // 音频 // 根据上传的文件类型将图片视频音频和其他类型文件分别存到对应英文文件夹...temp = 'video'; } else if (allowedAudioTypes.includes(fileExtension)) { temp = 'audio'; } // 文件以年月命名文件夹...const filePath = `upload/${temp}/${dayjs().format('YYYY-MM')}`; checkDirAndCreate(filePath); // 判断文件夹是否存在...不过现在公司业务很少用上传到服务器本地的,业务量大的话会对服务器造成压力,一般这种适合个人站点、博客使用,这里我们当做学习就行。Github:Vue3 Admin官网文档:file-upload

    11500

    第三十二课 如何在Windows环境搭建REMIX本地环境,访问本地目录?1,摘要2,参考文档完成NODE.JS的安装3,命令行安装REMIX IDE4,启动本地IDE5,在REMIX上访问本地文件夹

    IDE 在WINDOWS CMD中输入REMIX-IDE启动程序: remix-ide 然后用CHROME浏览器打开本地链接:http://127.0.0.1:8080/...5,在REMIX上访问本地文件夹 5.1 带参数安装Python 安装 windows-build-tools,会同步安装完Python npm install --global --production...6,http://127.0.0.1 设置本地共享目录 1)以管理员身份打开CMD命令: 2) 设置本地共享目录 在需要的本地合约代码的目录下启动remix-ide, Remix IDE...1)以管理员身份打开CMD命令: 2) 设置本地共享目录 remixd -s D:\jusanban\doc\50-编码实现\BlockChain --remix-ide https:/...更多REMIX的知识学习可参考文章: 《第十课 Solidity语言编辑器REMIX指导大全》 第九课 如何在Remix环境下进行Solidity代码单步调试 8,参考 1)Node.js安装及环境配置之

    6.1K41

    如何让调试线上 JS 报错像调试本地源码一样优雅?

    如果调试线上报错能像本地开发的时候一样就好了。 其实这是可以做到的,今天就分享下如何优雅的调试线上报错: 首先,我们准备一段 JS 代码: 这是我随便找的一段 JS 代码,里面抛了一个错误。...关联 sourcemap 需要在文件末尾加上 //# sourceMappingURL=xxx.js.map 的代码。 但现在这个文件是线上的,不能直接改本地文件。...charles 就可以抓到对应的请求了: 接下来就是断点修改响应的内容了: 点击 Proxy > Breakpoint Settings 添加一个对 guangtest.com 的 dist/index.js...案例代码在:https://github.com/QuarkGluonPlasma/fe-debug-exercize 总结 通过 sourcemap,我们可以调试线上报错的时候直接对应到本地源码来断点调试...这样就可以快速定位线上错误的原因了,体验就和本地开发时一样!

    1.7K30

    情人节Github开源项目大“赏”,花样表白她!

    直接在Github搜索情人节,可以看到有174个相关开源项目,我们来一一“鉴赏” 体验下吧~ 3个前端版本和4个Python版本~ 0、如何将前端代码部署到自己的Github,并让对象在线访问--浪漫案例...2> git clone项目到本地 在自己本地打开一个目录(存放项目代码,比如我在Valentine文件夹下),通过git clone将github上对应仓库下载到本地,并进入到项目目录,过程如下图:...2、在线版本:网页信纸程序风 项目地址: https://github.com/nostarsnow/loving 项目演示: 项目修改说明: 文案修改 在loving/static/js/app.dd44f265da874e0d2a25....js文件中修改文案即可。...love-master ├── 1.mp3 # 背景音乐 ├── 1.png # 对话框图片 ├── love.png # 对话框图片

    3K30

    前端成神之路-vue前端项目06

    将代码提交到本地仓库: git commit -m “完成商品功能开发” 将代码推送到码云: git push 切换到master主分支: git checkout master 将goods_list...,找到素材文件夹,复制citydata.js文件到components/order文件夹中 然后导入citydata.js文件 import cityData from "....因为我们使用的是element-ui中提供的Timeline组件,所以需要导入并注册组件 打开element.js,编写代码会进行导入和注册 import { Timeline,TimelineItem...} from 'element-ui' Vue.use(Timeline) Vue.use(TimelineItem) 打开Order.vue文件,添加代码实现物流进度对话框 <!...将代码提交到本地仓库: git commit -m “完成数据报表功能开发” 将代码推送到码云: git push 切换到master主分支: git checkout master 将report

    1.8K40

    Script Lab 11:OIfficeJS的三种调试方式

    总结 上期教程己经学习了如何完成一个 web add-ins 插件,本期就总结一下如何调试插件。其实上期教程中己经用到了一种。...单击“Office加载项”,在对话框的右上角,单击“上载我的加载项”。...【操作流程】 1、以管理员身份打开命令提示符。 2、将目录更改为加载项项目文件夹的根目录。...3、运行以下命令以在端口3000上启动本地Web服务器实例以提供加载项项目: npm run start 4、以管理员身份打开第二个命令提示符。 5、将目录更改为加载项项目文件夹的根目录。...无论您使用的是Yeoman Generator,Visual Studio Code,node.js,Angular还是其他工具,都可以附加调试器。

    2.3K20

    nodejs安装

    这个其实在上家公司就实现过,许久没玩,今天下下来试试,前段时间写了俩篇关于postman的相关使用,其三篇简单可参考学习一下 Postman之设置环境变量 postman日记之断言篇 Postman日记之多个Json如何断言...基于postman+newman+jenkins环境的安装需要在本地安装nodo程序,今天就是简单的介绍一下这个简单的过程。...2>下载Node.js 打开官网下载链接:https://nodejs.org/en/download/ 我这里下载的是node-v12.9.1-x64.msi,如下图: ?...例如:我希望将全模块所在路径和缓存路径放在我node.js安装的文件夹中,则在我安装的文件夹【D:\Develop\nodejs】下创建两个文件夹【node_global】及【node_cache】如下图...: 创建完两个空文件夹之后,打开cmd命令窗口,输入如下俩条命令,执行完毕就OK,执行过程1-2s npm config set prefix "D:\Develop\nodejs\node_global

    2.4K10
    领券