vba文件夾下所有excel文件?這個系列集錦一些常用的功能模塊，在一些項目中會穿插應用，現在小編就來說說關于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。排版和細節略作修改，發于頭條

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!