vba移动文件_Excel VBA 之按需求移动、复制文件

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

现在，文件夹内有一些文件，如图：

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

然后，打开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方法：将一个或多个文件从一个位置复制到另一个位置

最后，我们来看一下最终效果：

最终效果

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

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

Excel VBA 之去除重复项

Excel VBA 之年会抽奖小程序

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

Excel VBA 之统计词汇出现次数

Excel VBA 之随机抽取数据

。。。

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

vba移动文件_Excel VBA 之按需求移动、复制文件相关推荐

【Java文件操作（三）】递归复制文件夹内所有文件
我的博客--Java文件操作系列 [Java文件操作(一)]递归打印文件目录 [Java文件操作(二)]删除文件夹,但保留其内部文件 [Java文件操作(三)]递归复制文件夹内所有文件 [Java文件 ...
vba移动文件_Excel VBA之FSO-2.3文件夹的移动
Excel VBA之FSO-2.3文件夹的移动前景提要我们之前接触了如何通过FSO来实现文件夹的复制操作,此操作需要注意的一点就是如果当前文件夹中有历史版本的同名文件夹的话,他会直接覆盖原来的数据 ...
linux复制文件带系统时间,不同方法/系统下复制文件时新文件的日期区别，以及查看文件创建时间、修改时间、访问时间的方法...
1:1 格拉摩根的洛斯里克城.有一个狗头人.名叫唯一丢人.是Paradox的伯爵.任天堂的主宰.育碧的bug.波兰蠢驴的打桩机. 1:2 他有三个妻.一名Windows.一名Linux.一名MacOS ...
服务器拷贝文件提示ms-dos功能无效,win7系统复制文件提示“MS-DOS功能无效”的解决方法...
很多小伙伴都遇到过win7系统复制文件提示"MS-DOS功能无效"的困惑吧,一些朋友看过网上零散的win7系统复制文件提示"MS-DOS功能无效"的处理方法,并 ...
java 流复制文件_【Java】使用字节流复制文件
其实用java程序复制文件并不难 import java.io.FileInputStream; import java.io.FileOutputStream; import java.io.IOE ...
linux 复制文件中文,linux中cp命令如何复制文件
在linux中,可以使用cp命令复制文件,将源文件或目录复制到指定的目的文件或目录:它可以将单个源文件复制成一个指定文件名的具体文件或一个已经存在的目录下:该命令支持同时复制多个文件. 本教程操作环境 ...
linux怎么复制文件夹全部内容,linux局域网怎么复制文件夹下的全部文件到另外文件夹...
在Linux系统局域网中复制或拷贝文件我们可以用cp或者copy命令,但要对一个文件夹中的全部文件复制到另外一个文件夹中去,如何进行操作呢?linux局域网复制文件夹下的全部文件到另外文件夹的方法其实 ...
获取文件夹下的文件，包含子文件夹并复制文件
工作的时候用到的一些方法,在这里记录一下. public class GetFileList {private static ArrayList<File> fileList = new ...
linux命令把文件夹拷贝一遍_linux如何复制文件夹和移动文件夹
linux下文件的复制.移动与删除命令为:cp,mv,rm 一.文件复制命令cp 命令格式:cp [-adfilprsu] 源文件(source) 目标文件(destination) cp [opti ...

vba移动文件_Excel VBA 之按需求移动、复制文件

vba移动文件_Excel VBA 之按需求移动、复制文件相关推荐

最新文章

热门文章

vba移动文件_Excel VBA 之 按需求移动、复制文件

vba移动文件_Excel VBA 之 按需求移动、复制文件相关推荐

最新文章

热门文章

vba移动文件_Excel VBA 之按需求移动、复制文件

vba移动文件_Excel VBA 之按需求移动、复制文件相关推荐