vba文件夹下所有excel文件（功能模块-文件及文件夹-02-文件整体操作）

这个系列集锦一些常用的功能模块，在一些项目中会穿插应用，现在小编就来说说关于vba文件夹下所有excel文件?下面内容希望能帮助到你，我们来一起看看吧!

vba文件夹下所有excel文件

• 系统环境：Windows 10
• Excel：2016版本

这个系列集锦一些常用的功能模块，在一些项目中会穿插应用

功能模块中又包括很多子模块，本文涉及的是：文件及文件夹

今天讲讲文本文件相关的一些操作

这里指的文本文件指的是类似于.txt文件格式，可以直接使用记事本（NotePad）打开，文件内容直接可读，无需额外编码

包括.xml，.html，.py这类也适用，本质上它们也是一些字符串，只不过用不同的软件打开，显示的效果会有区别

1. FSO引入

Set fso = CreateObject("Scripting.FileSystemObject")

• 判断文本文件是否存在，如果存在， 返回True

fso.FileExists(WenjianAddr)

其中WenjianAddr为文件的绝对地址

• 新建文件，需要包含后缀名，fso.CreateTextFile(文件绝对地址, True)，True表示覆盖原有文件

Set objNewFile = fso.CreateTextFile(WenjianAddr, True)

其实这个函数，还有一个参数，表示编码方式，有兴趣者可以去研究一下

创建文件后关闭使用objNewFile.Close，只有关闭了，之后才可以删除该文件

• 获取文件，fso.GetFile(文件绝对地址)

Set objNewFile1 = fso.GetFile(WenjianAddr)

• 删除文件，获取文件后，使用Delete直接删除

Set objNewFile1 = fso.GetFile(WenjianAddr) objNewFile1.Delete

• 删除文件，fso.DeleteFile (文件绝对地址)

fso.DeleteFile (WenjianAddr)

使用删除文件，必须确保文件未被打开或者打开后已关闭

• 打开文件，fso.OpenTextFile(文件绝对地址,操作方式, 编码方式)

Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateTrue = -1 Set strNewFileOpen = fso.OpenTextFile(WenjianAddr, ForAppending, TristateTrue)

编码方式包括三种：使用系统缺省（-2）；使用Unicode（-1）；使用ASCII（0）

推荐使用Unicode，能够有效显示中文

• 复制文件，fso.CopyFile 原地址，新地址，FileCopy函数亦可以实现

fso.CopyFile WenjianAddr1, CurrentDir & WenjianName2

• 重命名文件

Set objNewFile1 = fso.GetFile(WenjianAddr1) objNewFile1.Name = "3.txt"

以上，为本次的介绍内容，下回见。

本文首发于Excel高效办公之VBA。排版和细节略作修改，发于头条