excel vba文件管理?這個系列集錦一些常用的功能模塊，在一些項目中會穿插應用，我來為大家講解一下關于excel vba文件管理?跟着小編一起來看一看吧!

excel vba文件管理

• 系統環境：Windows 10
• Excel：2016版本

這個系列集錦一些常用的功能模塊，在一些項目中會穿插應用

今天講講與文件夾相關的一些操作

主要是使用fso及VBA自帶的一些函數

1. FSO引入

Set fso = CreateObject("Scripting.FileSystemObject")

• 判斷文件夾是否已經存在，存在則獲取文件夾對象，不存在則創建文件夾

If fso.FolderExists(NewFolderName) Then Set myfolder = fso.Getfolder(NewFolderName) Else Set myfolder = fso.createfolder(NewFolderName) End If

• 判斷文件夾是否已經存在，其中vbDirectory不能省略

If Dir(CurrentDir & NewFolder, vbDirectory) <> "" Then MsgBox "文件夾已存在" End If

• 以文件夾的絕對地址創建文件夾

CurrentDir = ThisWorkbook.Path & "\" NewFolder = "test" MkDir CurrentDir & NewFolder

• 删除文件夾，含有子文件一并删除

fso.DeleteFolder (NewFolderName)

• 删除文件夾，要求文件夾必須為空。若存在文件，可以配合Kill一起使用

RmDir CurrentDir & NewFolder

• 重命名文件夾，Name 原名稱 as 新名稱

Name CurrentDir & NewFolder As CurrentDir & "test6"

• 複制文件夾，fso.CopyFolder 原地址 , 新地址

fso.CopyFolder CurrentDir & "test", CurrentDir & "test8"

• 遍曆文件夾内文件，Wenjian.Name獲得是文件的名稱（含後綴），但不含絕對地址

For Each Wenjian In fso.GetFolder(CurrentDir).Files WenjianName = Wenjian.Name Next

• 遍曆文件夾内子文件夾，Wenjian.Name獲得是文件夾的名稱，但不含絕對地址

For Each Wenjianjia In fso.GetFolder(CurrentDir).SubFolders WenjianjiaName = Wenjianjia.Name Next

以上，為本次的介紹内容，下回見。

本文首發于Excel高效辦公之VBA。排版和細節略作修改，發于頭條

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