vba移动文件_Excel VBA 之 按需求移动、复制文件_weixin_39943992的博客-程序员秘密

技术标签: 一个文件夹内有多个go程序文件怎样打开  vba移动文件  如何使文件剪切到另一个文件夹变成复制到另一个文件夹  

27c6bd4bc99074a4f9a8f2577438bd6b.png

今天接到一个需求,用VBA将一个文件夹内的文件分配到不同的文件夹中,我用了几行代码就解决了,现在我来分享给大家。

现在,文件夹内有一些文件,如图:

415ccd6601ba530a18c6a2e523565059.png

我们可以根据自己的需求在Excel表格里将文件结构编写一下,如图:

c4b84293c46127d20f9990fd17c0d663.png

然后,打开VBA编辑器,加入以下代码

00 Sub main()01     Dim fso02     Dim myPath$03     myPath = ThisWorkbook.Path & ""04     Set fso = CreateObject("Scripting.FileSystemObject")05     On Error Resume Next06     For i = 1 To [A1].End(xlToRight).Column07         MkDir (myPath & Cells(1, i))08         If Cells(2, i) <> "" Then09             For j = 2 To Cells(65536, i).End(xlUp).Row10                 If Dir(myPath & Cells(j, i)) <> "" Then11                     'fso.CopyFile myPath & Cells(j, i), myPath & Cells(1, i) & ""'复制12                     fso.MoveFile myPath & Cells(j, i), myPath & Cells(1, i) & "" '移动13                 End If14             Next15         End If16     Next17     On Error GoTo 018     Set fso = Nothing19 End Sub

写过这么多期了,估计大家也已经轻车熟路了,所以就不一一讲解了,如果有不明白的地方,可以私信或评论问我,我一定会回答大家。

其中,主要运用了以下几个知识点,

1.MkDir语句:新建目录或文件夹

2.Dir 函数:返回特定文件名(文件夹名),没有找到则返回“”

3.FileSystemObject 对象的MoveFile方法:将一个或多个文件从一个位置移动到另一个位置

4.FileSystemObject 对象的CopyFile方法:将一个或多个文件从一个位置复制到另一个位置

最后,我们来看一下最终效果:

abbc9f407b404e44ff813522b89e559a.gif

最终效果

大家可以点开下面链接,查看我的其他文章哦!

848个Excel VBA 实用技巧,实例+详细解析,入门必看,建议收藏

Excel VBA 之 去除重复项

Excel VBA 之 年会抽奖小程序

Excel VBA 之 将txt文档批量导入至Excel

Excel VBA 之 统计词汇出现次数

Excel VBA 之 随机抽取数据

。。。

喜欢本文章的朋友记得收藏、点赞、关注哦,网友们如果在Excel中遇到问题都可以找我交流,也可以在评论区或私信告诉我你想看到的VBA办公教程,我将在下期分享给大家,以后不定期更新Excel VBA技巧!

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/weixin_39943992/article/details/110106379

智能推荐

Smarty教程1.引擎定义2.主要优点3.简明教程4.使用判断5.循环数组6.常见问题8.解释程序..._weixin_30567471的博客-程序员秘密

Smarty是一个php模板引擎。更准确的说,它分开了逻辑程序和外在的内容,提供了一种易于管理的方法。可以描述为应用程序员和美工扮演了不同的角色,因为在大多数情况下 ,他们不可能是同一个人。例如,你正在创建一个用于浏览新闻的网页,新闻标题,标签栏,作者和内容等都是内容要素,他们并不包含应该怎样去呈现。在Smarty的程序里,这些被忽略了。模板设计者们编辑模板,组合使用html标签和模板标签去格式化...

Mac 格式化TF卡,获取原来的容量大小。_开心自由天使的博客-程序员秘密

前几天制作树莓派的TF卡映像文件,TF卡容量从64GB变成了700MB左右。现在这个TF卡要重新格式化,恢复64GB,采用FAT32格式。#1.查看磁盘列表diskutil list#2. 请确认TF卡磁盘名称和路径(这个是个危险的操作,其他无关的外设请事先拔出来,以免误操作。)diskutil list #再次确认一下TF卡设备,一般情况下TF卡磁盘容量比Mac 上的磁盘要小很多,一般...

vue 滑动置顶功能_Vue 置顶组件FixedTopWrap 支持自定义内容置顶_曹名的博客-程序员秘密

背景最近项目在实现置顶功能时,由于原使用的双标签替换实现存在状态不一致的问题,所以考虑仅用单标签实现,避免状态问题。同时由于多处使用,所以简单实现了这一组件。使用上只要像一样包裹需要被置顶的内容即可。效果image使用示例置顶内容...import FixedTopWrap from '@/components/FixedTopWrap';export default {data() {retur...

Ubuntu10.04下手动安装gcc4.5.0_weixin_30410999的博客-程序员秘密

  最近ubuntu10.04正式版发布了,所以在虚拟机上装着玩一玩。ubuntu10.04自带的gcc编译器的版本是4.4.3,而目前的最新版本是4.5.0。自己之前一直都是用系统默认的gcc,所以这次想试着自己装一装。不过没想到手动安装gcc如此麻烦(主要是之前一直没编译安装过软件),其中遇到不少问题,用了整整一天时间才搞定。这里我用的ubuntu版本是ubuntu-10.04-desktop...

ACM模板——二分图匹配_weixin_30836759的博客-程序员秘密

1 int a[maxn][maxn]; 2 int linker[maxn]; 3 int cnt = 0; 4 bool dfs(int u) 5 { 6 _for(v,0,n) 7 if(a[u][v] &amp;&amp; !used[v]) 8 { 9 used[v] = ...

robots,白,黑,灰帽_Carrie_zzz的博客-程序员秘密

robots.txtrobots协议(也称为爬虫协议,爬虫规则,机器人协议等)也就是robots.txt,网站通过robots协议告诉搜索引擎哪些页面可以抓取,那些页面不希望抓取。Robots协议是网站国际互联网界通行的道德规范,其目的是保护网站数据和敏感信息,确保用户个人信息和隐私不被侵犯。 因其不是命令,故需要搜索引擎自觉遵守 robots.txt放置位置roboats.txt文件

随便推点

hbase数据java后端分页查询_weixin_33940102的博客-程序员秘密

2019独角兽企业重金招聘Python工程师标准&gt;&gt;&gt; ...

qtp 自动货测试桌面程序-笔记(使用函数)_weixin_30294295的博客-程序员秘密

新建-function写入函数rem 关闭出现错误窗口Function checkExist() If Window("出现错误").WinObject("确定").Exist(3) Then Window("出现错误").WinObject("确定").Click End IfEnd Function保存文件引用:添加函数文件到resources在脚本中使用C...

IOS GCD 使用(三)单例模式_anjueci1221的博客-程序员秘密

一 Dispatch_once函数简介 使用dispatch_once提价的代码块,即便你提交多次,只能执行一次。 voiddispatch_once(dispatch_once_t*predicate,dispatch_block_tblock); 第一个参数是一个传出参...

centOS开启sudo指令_weixin_33863087的博客-程序员秘密

为什么80%的码农都做不了架构师?&gt;&gt;&gt; ...

matlab中的数字滤波器_yxma的博客-程序员秘密_matlab数字滤波器

在进行数字信号处理的时候经常需要对时间序列进行滤波。工具箱中常用的函数是filter常见形式: y = filter(b,a,x) 其中x是输入序列,向量b&a是滤波器的参数。y是输出序列。 下面举一个例子说明一下实际的计算过程。 比如要对一段语音信号做预加重处理,其实就是要让响应的数字序列通过一个高通滤波器。滤波器的传递函数模型为——H(z)=1-μ*z^(-1)。实

推荐文章

热门文章

相关标签