如何将excel指定文件夹中的文件移至目标文件夹？
发布时间：2023-03-23 19:01:55
Q：如下图1所示，在工作表列A中存储着需要移动的文件所在的文件夹路径，列B中是要将文件移到的目标文件夹路径，现在需要将列A中文件夹下的文件移到列B中文件夹内，如何实现？
图1
A：下面使用FileSystemObject对象的MoveFile方法来移动文件：
Sub MoveFilesToNewFolder()
‘声明FileSystemObject对象
Dim FSO As Object
‘源文件路径
Dim strSourcePath As String
‘目标路径
Dim strTargetPath As String
‘文件类型
Dim strFileExt As String
‘文件名
Dim strFileNames As String
‘最后一行行号
Dim lngLastRow As Long
Dim i As Long
lngLastRow = Cells(Rows.Count,1).End(xlUp).Row
For i = 2 To lngLastRow
strSourcePath = Range(“A”& i).Value
strTargetPath = Range(“B”& i).Value
‘可以修改为你想要移动的文件扩展类型,例如*.docx
strFileExt = “*.*”
If Right(strSourcePath, 1) <>”\” Then
strSourcePath = strSourcePath & “\”
End If
strFileNames = Dir(strSourcePath &strFileExt)
If Len(strFileNames) = 0 Then
MsgBox strSourcePath & “中没有文件.”
End If
Set FSO = CreateObject(“Scripting.FileSystemObject”)
‘目标路径不存在则创建该路径
On Error Resume Next
FSO.CreateFolder (strTargetPath)
‘移动文件
FSO.MoveFile _
Source:=strSourcePath &strFileExt, _
Destination:=strTargetPath
Next i
End Sub
代码中，你可以修改
strFileExt =”*.*”
为你想要移动的文件扩展名，从而实现只移动该类型的文件。
语句：
On Error Resume Next
FSO.CreateFolder(strTargetPath)
在不存在指定名称的文件夹时，将会创建该文件夹。
0
投稿猜你喜欢
如果我们对Word排版并不熟悉，那么可能要花费大量的时间在排版上。如果有小技巧，轻轻松松的搞定，大大提高效率。今天小Q就给你分享几个技巧帮助- 视频的主要内容主要是对EXCEL表格制作操作技巧的介绍。那么下面大家一起欣赏视频吧！视频可以全屏观看哦！点击视频右下角的进入全屏按钮哦！
- wps软件是一款可以用来编辑文档、表格以及ppt等不同类型文件的办公本软件，给用户带来了方法的选择性，用户在使用的过程中可以感受得到里面的功
- 如果我们的电脑安装的是win7操作系统的话，在使用的过程中对于win7无线网络不见了无法上网怎么解决这个问题小编觉得，可能是因为我们的的无线
- 最近有用户在e420上装了win10，不过在安装完之后却感觉win10开机慢。很多小伙伴不知道e420用win10开机慢怎么办，其实e420
- 如何装Windows10系统？Win10系统是现在的主流系统，很多用户都在使用这个系统，当电脑出现问题时，怎么对电脑进行系统重装呢？针对这一
- 苹果今天向开发者发布了 iOS 11 第三个
- Win8怎样在中文语言下添加美式键盘？Winodws 8 或 Windows 8.1 无法在中文语言中添加英文输入法，即“美式键盘”。那如何
- 第一步：选取黄色部分所示数据，点击菜单栏的插入柱形图，选择二维柱形图，生成下图所示的柱形图。第二步：柱形图生成后，右键点击柱形图，选择”选择
- 在制作一些海报或者广告牌的时候我们可能会将标题或者题目的字体设置超大型，但是wps2003中的字体大小默认最多也只是“72”号，完全无法满足
- 通过“接力”，您可以在一台 Apple 设备上（Mac、iPhone、iPad 或 Apple Watch）开始一项任务，然后在另一台设备上
- PS是一款非常好用的图片编辑软件，你知道PS中怎么制作下雨效果的吗？接下来我们一起往下看看PS下雨效果制作的方法吧。方法步骤1、首先将你的照
- win10升级出错提示错误代码0xC1900101-0x3000d该怎么办？在升级win10正式版的时候，卡死在75％了，升级失败的提示是0
- 在写文章时经常会用到一些特殊符号，如“§”就经常用到，特殊符号有很多方法可以输入，WPS提供了好用的符号栏帮助我们更方便地使用各种符号，下面
- U盘再使用完后，将其安全删除，却出现无法停止通用卷设备，请稍候再停止该设备的提示。很多朋友遇到这种问题，都有直接将U盘拔下来的，其实这种做法
- 没有u盘怎么进入pe系统win10？很多用户都清楚，没有u盘的话，是没办法进入pe系统对系统进行重装安装的，其实没有u盘也可以实现的，借助使
- u盘使用的时间比较长，当初设置的密码被忘记了，这个没有什么值得担心的，前提是你的系统是win7的，Win7的密码重设盘指的是将一个优盘做成系
- 使用macOS Ventura系统的朋友是否发现 macOS Ventura 冻结挂起问题，您可能会感到非常沮丧。尽管很烦人，但用户在使用新
- 我们的笔记本除了最常用的Wifi以外，偶尔也会通过连接手机打开的热点来进行上网。但是有的小伙伴遇到笔记本想要连接手机的移动热点却连接不了。接
- 随着Windows10系统的发布，大家都升级到Windows10系统了。微软也提供了镜像安装，Windows10的镜像只要直接载入就可以安装
