vba移动文件_VBA代码如何移动文件，如何复制文件

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.183-NO.184内容是：

NO. 183：在VBA中使用MoveFile方法将示例文件移动

NO. 184：在VBA中使用CopyFile方法复制

VBA过程代码183：在VBA中使用MoveFile方法将示例文件移动

Sub mynz()

Dim MyFile As Object

On Error Resume Next

Set MyFile = CreateObject("Scripting.FileSystemObject")

MyFile.MoveFile ThisWorkbook.Path & "abc.docx", ThisWorkbook.Path & "ABC"

Set MyFile = Nothing

MsgBox "OK!"

End Sub

代码解析：mynz过程使用MoveFile方法将示例文件所在文件夹中的“abc.docx”文件移动到“ABC”文件夹中。代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。代码使用MoveFile方法移动文件。过程将示例文件所在文件夹中的“abc.docx”文件移动到同一目录中的“ABC”文件夹。

VBA过程代码184：在VBA中使用CopyFile方法复制

Sub mynz()

Dim MyFile As Object

On Error Resume Next

Set MyFile = CreateObject("Scripting.FileSystemObject")

MyFile.CopyFile ThisWorkbook.Path & "abc.docx", ThisWorkbook.Path & "ABC"

Set MyFile = Nothing

MsgBox "OK!"

End Sub

代码解析：mynz过程使用CopyFile方法将示例文件所在文件夹中的“abc.docx”文件复制到“ABC”文件夹中。代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。代码使用CopyFile方法复制文件。过程将示例文件所在文件夹中的“abc.docx”文件复制到“ABC”文件夹中。

VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是较大块的“积木”，可以独立的完成某些或者某类的过程，有需要的朋友可以联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。其一：“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；其二“VBA数据库解决方案”PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第三册的103讲,以上各教程的代码都是经过实测，可以拿来即用。