Excel VBA 移动文件和文件夹

不念不忘少年蓝@ 2022-05-24 06:44 1754阅读 0赞

之前有博主的方法，然后觉得可以1和2结合一下，所以试试看。

先放上Excel VBA 移动文件和文件夹的方法。等我研究一下再放新方法。学习学习~

1、移动指定文件：

Public Sub 移动文件()
        Dim myFile As String
        Dim myNewFilePath As String
        Dim fso As Scripting.FileSystemObject
        myFile = ThisWorkbook.Path & "\test.txt"    '要移动的文件
        myNewFilePath = ThisWorkbook.Path & "\hhh\"    '要移动的位置
        Set fso = New Scripting.FileSystemObject
        If fso.FileExists(myFile) Then
            fso.MoveFile myFile, myNewFilePath
            MsgBox "已经将文件 " & myFile & " 移到了文件夹 " & myNewFilePath
        Else
            MsgBox "要移动的文件不存在"
        End If
        Set fso = Nothing
    End Sub

*  1
 *  2
 *  3
 *  4
 *  5
 *  6
 *  7
 *  8
 *  9
 *  10
 *  11
 *  12
 *  13
 *  14
 *  15
 *  16
 *  17
 *  18

2、移动文件夹：

Public Sub 移动文件夹()
        Dim myFolder As String
        Dim myNewFilePath As String
        Dim fso As Scripting.FileSystemObject
        myFolder = ThisWorkbook.Path & "\myfolder"    '要移动的文件夹
        myNewFilePath = ThisWorkbook.Path & "\testfile\"    '要移动的位置
        Set fso = New Scripting.FileSystemObject
        If fso.FolderExists(myFolder) Then
            fso.MoveFolder myFolder, myNewFilePath
            MsgBox "已经将文件夹 " & myFolder & " 移到了文件夹 " & myNewFilePath
        Else
            MsgBox "要移动的文件夹不存在"
        End If
        Set fso = Nothing
    End Sub

发表评论取消回复

表情：

评论列表（有 0 条评论，1754人围观）

还没有评论，来说两句吧...

相关阅读

相关 2. VBA Excel宏

完整版下载链接： [https://download.csdn.net/download/xijinno1/87716168][https_download.csdn.net_

落日映苍穹つ/ 2023年10月09日 18:47/ 0 赞/ 66 阅读

相关 Excel VBA - 文件及目录操作

目录一. 文件处理 1.1 Name 语句 1.2 FileCopy 语句 1.3 Kill 语句 1.4

素颜马尾好姑娘i/ 2023年01月20日 12:52/ 0 赞/ 19 阅读

相关 Excel VBA 学习笔记

Excel VBA 学习笔记编辑器开始语法查漏补缺命名参数赋值（\`:=\`冒号等号）参考 VBA的全称是：

亦凉/ 2022年12月29日 11:29/ 0 赞/ 255 阅读

相关 VBA写excel宏

Sub zzz() ' ' zzz 宏 ' ' 'ActiveWorkbook.Names.Add Name:="S941.群众团体",

刺骨的言语ヽ痛彻心扉/ 2022年08月18日 03:25/ 0 赞/ 224 阅读

相关 EXCEL VBA 备忘录

最最基础的什么录制，加快捷键，被禁用宏，……等基本操作直接过滤，这些还不会的，请百度。此文主要备忘常用的编程语句或语法。 range(“A1”).value 对象和属

太过爱你忘了你带给我的痛/ 2022年05月31日 00:14/ 0 赞/ 374 阅读

相关 Excel VBA 移动文件和文件夹

之前有博主的方法，然后觉得可以1和2结合一下，所以试试看。先放上Excel VBA 移动文件和文件夹的方法。等我研究一下再放新方法。学习学习~ 1、移动指定文件：

不念不忘少年蓝@/ 2022年05月24日 06:44/ 0 赞/ 1755 阅读

相关 Linux新建、移动、删除文件和文件夹

1.新建文件夹在当前目录下，新建文件夹work。 mkdir work 2.新建文件在当前目录下，新建文件main.cpp。

灰太狼/ 2022年04月16日 01:52/ 1 赞/ 561 阅读

相关 Excel VBA 语句集

定制模块行为 (1) Option Explicit ‘强制对模块内所有变量进行声明 Option Private Module ‘标记模块为私有，仅对同一工

亦凉/ 2021年12月10日 18:11/ 0 赞/ 314 阅读

相关 linux如何复制文件夹和移动文件夹

linux下文件的复制、移动与删除命令为：cp，mv，rm 一、文件复制命令cp 命令格式：cp [-adfilprsu] 源文件(source) 目标文件(de

- 日理万妓/ 2021年11月05日 02:14/ 0 赞/ 423 阅读

相关 python 移动文件，将一个文件夹里面的文件移动到另一个文件夹

利用Python将某个文件夹里面的jpg图片移动到另一个文件夹里面，下面的脚本是把/data/temp1里面的图片移动到/data/temp2文件夹中。示例如下：

╰+哭是因爲堅強的太久メ/ 2021年09月07日 06:01/ 0 赞/ 639 阅读