Excel VBA学习笔记:取文件夹中所有文件:DIR函数
wptr33 2024-12-09 18:00 41 浏览
Dir 是个函数,返回文件名,是字符串。
用法:第1句:变量=Dir(“文件夹”) ;第2句:变量=Dir 。第1步相当于初始化,这时变量会得到该文件夹下的第1个文件名(按“名称”排序的第1个),之后只需写 变量=Dir 就会依次得到文件名。文件遍历完后,Dir函数会返回Empty 值。
Dir通常与Do…Loop Until 循环语句配合使用。
Sub 遍历()
fn = Dir(“e:\temp\”) ’注意文件夹右边还需要”\”符号
Do
n=n+1
Range(“A”&n)=fn ’在A列 输出 文件名
fn =Dir
Loop until fn = “”
End Sub
fn 得到的文件名,是不含路径的。
Dir 函数支持通配符 *、? 的。示例:fn = Dir(“e:\temp\*.xlsx”) 得到的就只是后缀名为xlsx的文件。
结合上一讲,如果需要处理某个文件夹下的EXCEL文件,而文件夹下文件太多,用GetOpenFilename选取操作也很麻烦。
Sub 遍历文件()
Dim arr(1 To 100)
GF = Application.GetOpenFilename("Excel 文件,*.xls*", MultiSelect:=False)
If VBA.TypeName(GOF) = "Boolean" Then Exit Sub
路径 = Left(GF, InStrRev(GF, "\")) ’InstrRev 从右往左 查找"\"字符
Fn = Dir(路径 & "*.xls") '变量不需要双引号
Do
n = n + 1
arr(n) = Fn '文件名存储到数组中
Fn = Dir
Loop Until Fn = ""
For i = 1 To UBound(arr) '将数组进行循环,打开文件取数据
Set WB = Workbooks.Open(路径 & arr(i))
brr = WB.Sheets(1).UsedRange
ThisWorkbook.Sheets(i).Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
Next i
End IF
在测试DIR函数时,我发现了一“BUG”:就是用后缀名筛选文件时,后缀名为3个字符时会产生BUG,如下图后缀名xls,跟“xls*”一样的效果
而后缀名是2个字符、4个字符都不会产生这种现象。
附带介绍Name 语句:
1、改名:Name “完整的路径+文件名” AS “完整的路径+新文件名”
2、移动:Name “完整的路径+文件名” AS “新的路径+新文件名”;就会移动到新目录中去,“新目录”是已经存在的目录,Name 不会给你新建目录的。
相关推荐
- redis的八种使用场景
-
前言:redis是我们工作开发中,经常要打交道的,下面对redis的使用场景做总结介绍也是对redis举报的功能做梳理。缓存Redis最常见的用途是作为缓存,用于加速应用程序的响应速度。...
- 基于Redis的3种分布式ID生成策略
-
在分布式系统设计中,全局唯一ID是一个基础而关键的组件。随着业务规模扩大和系统架构向微服务演进,传统的单机自增ID已无法满足需求。高并发、高可用的分布式ID生成方案成为构建可靠分布式系统的必要条件。R...
- 基于OpenWrt系统路由器的模式切换与网页设计
-
摘要:目前商用WiFi路由器已应用到多个领域,商家通过给用户提供一个稳定免费WiFi热点达到吸引客户、提升服务的目标。传统路由器自带的Luci界面提供了工厂模式的Web界面,用户可通过该界面配置路...
- 这篇文章教你看明白 nginx-ingress 控制器
-
主机nginx一般nginx做主机反向代理(网关)有以下配置...
- 如何用redis实现注册中心
-
一句话总结使用Redis实现注册中心:服务注册...
- 爱可可老师24小时热门分享(2020.5.10)
-
No1.看自己以前写的代码是种什么体验?No2.DooM-chip!国外网友SylvainLefebvre自制的无CPU、无操作码、无指令计数器...No3.我认为CS学位可以更好,如...
- Apportable:拯救程序员,IOS一秒变安卓
-
摘要:还在为了跨平台使用cocos2d-x吗,拯救objc程序员的奇葩来了,ApportableSDK:FreeAndroidsupportforcocos2d-iPhone。App...
- JAVA实现超买超卖方案汇总,那个最适合你,一篇文章彻底讲透
-
以下是几种Java实现超买超卖问题的核心解决方案及代码示例,针对高并发场景下的库存扣减问题:方案一:Redis原子操作+Lua脚本(推荐)//使用Redis+Lua保证原子性publicbo...
- 3月26日更新 快速施法自动施法可独立设置
-
2016年3月26日DOTA2有一个79.6MB的更新主要是针对自动施法和快速施法的调整本来内容不多不少朋友都有自动施法和快速施法的困扰英文更新日志一些视觉BUG修复就不翻译了主要翻译自动施...
- Redis 是如何提供服务的
-
在刚刚接触Redis的时候,最想要知道的是一个’setnameJhon’命令到达Redis服务器的时候,它是如何返回’OK’的?里面命令处理的流程如何,具体细节怎么样?你一定有问过自己...
- lua _G、_VERSION使用
-
到这里我们已经把lua基础库中的函数介绍完了,除了函数外基础库中还有两个常量,一个是_G,另一个是_VERSION。_G是基础库本身,指向自己,这个变量很有意思,可以无限引用自己,最后得到的还是自己,...
- China's top diplomat to chair third China-Pacific Island countries foreign ministers' meeting
-
BEIJING,May21(Xinhua)--ChineseForeignMinisterWangYi,alsoamemberofthePoliticalBureau...
- 移动工作交流工具Lua推出Insights数据分析产品
-
Lua是一个适用于各种职业人士的移动交流平台,它在今天推出了一项叫做Insights的全新功能。Insights是一个数据平台,客户可以在上面实时看到员工之间的交流情况,并分析这些情况对公司发展的影响...
- Redis 7新武器:用Redis Stack实现向量搜索的极限压测
-
当传统关系型数据库还在为向量相似度搜索的性能挣扎时,Redis7的RedisStack...
- Nginx/OpenResty详解,Nginx Lua编程,重定向与内部子请求
-
重定向与内部子请求Nginx的rewrite指令不仅可以在Nginx内部的server、location之间进行跳转,还可以进行外部链接的重定向。通过ngx_lua模块的Lua函数除了能实现Nginx...
- 一周热门
-
-
C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)
-
因果推断Matching方式实现代码 因果推断模型
-
git pull命令使用实例 git pull--rebase
-
git pull 和git fetch 命令分别有什么作用?二者有什么区别?
-
面试官:git pull是哪两个指令的组合?
-
git 执行pull错误如何撤销 git pull fail
-
git fetch 和git pull 的异同 git中fetch和pull的区别
-
git pull 之后本地代码被覆盖 解决方案
-
还可以这样玩?Git基本原理及各种骚操作,涨知识了
-
git命令之pull git.pull
-
- 最近发表
- 标签列表
-
- git pull (33)
- git fetch (35)
- mysql insert (35)
- mysql distinct (37)
- concat_ws (36)
- java continue (36)
- jenkins官网 (37)
- mysql 子查询 (37)
- python元组 (33)
- mybatis 分页 (35)
- vba split (37)
- redis watch (34)
- python list sort (37)
- nvarchar2 (34)
- mysql not null (36)
- hmset (35)
- python telnet (35)
- python readlines() 方法 (36)
- munmap (35)
- docker network create (35)
- redis 集合 (37)
- python sftp (37)
- setpriority (34)
- c语言 switch (34)
- git commit (34)