VBA程式碼如何刪除示例檔案，如何建立資料夾，如何改名資料夾

分享成果，隨喜真能量。大家好，今日內容仍是和大家分享VBA程式設計中常用的簡單“積木”過程程式碼，這些內容大多是取至我編寫的“VBA程式碼解決方案”教程中內容。NO。183-NO。184內容是：

NO。 185：在VBA中使用DeleteFile方法刪除示例檔案

NO。 186：在VBA中使用CreateFolder方法建立資料夾。

NO。 187：在VBA中使用CopyFolder方法複製並改名資料夾

VBA過程程式碼185：在VBA中使用DeleteFile方法刪除示例檔案

Sub mynz（）

Dim MyFile As Object

On Error Resume Next

Set MyFile = CreateObject（“Scripting。FileSystemObject”）

MyFile。DeleteFile ThisWorkbook。Path & “\abc。docx”

Set MyFile = Nothing

MsgBox “OK！”

End Sub

程式碼解析：mynz過程使用使DeleteFile方法刪除示例檔案所在資料夾中的“abc。docx”檔案。程式碼使用CreateObject函式建立FileSystemObject物件並將該物件賦給變數MyFile。

使用DeleteFile方法刪除檔案。執行mynz過程刪除示例檔案所在資料夾中的“abc。docx”檔案。

VBA過程程式碼186：在VBA中使用CreateFolder方法建立資料夾。

Sub mynz （）

Dim MyFile As Object

On Error Resume Next

Set MyFile = CreateObject（“Scripting。FileSystemObject”）

MyFile。CreateFolder （ThisWorkbook。Path & “\ABC-1”）

Set MyFile = Nothing

MsgBox “OK！”

End Sub

程式碼解析：mynz過程使用CreateFolder方法在示例檔案所在資料夾中建立一個“ABC-1”資料夾。程式碼使用CreateObject函式建立FileSystemObject物件並將該物件賦給變數MyFile。

使用CreateFolder方法建立資料夾。執行mynz過程將在示例檔案所在資料夾中建立一個“ABC-1”資料夾。

VBA過程程式碼187：在VBA中使用CopyFolder方法複製並改名資料夾

Sub mynz （）

Dim MyFile As Object

Set MyFile = CreateObject（“Scripting。FileSystemObject”）

MyFile。CopyFolder ThisWorkbook。Path & “\ABC”， ThisWorkbook。Path & “\ABC-1”

Set MyFile = Nothing

MsgBox “OK！”

End Sub

程式碼解析：mynz過程使用CopyFolder方法將示例檔案所在資料夾中的“ABC”資料夾複製並改名為“ABC-1”資料夾。程式碼使用CreateObject函式建立FileSystemObject物件並將該物件賦給變數MyFile。程式碼使用CopyFolder方法複製資料夾。執行mynz過程將示例檔案所在資料夾中的“ABC”資料夾複製並改名為“ABC-1”資料夾。

VBA是實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，現推出了四部VBA教程，這些是我多年程式設計經驗的記錄，也是我“積木程式設計”思想的體現。每一講都是較大塊的“積木”，可以獨立的完成某些或者某類的過程，有需要的朋友可以聯絡（WeChat：NZ9668）分享。利用這些可以提高自己的程式設計效率。其一：“VBA程式碼解決方案”PDF教程，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點，是初學及中級以下人員必備；其二“VBA資料庫解決方案”PDF教程，資料庫是資料處理的利器，對於中級人員應該掌握這個內容了。其三“VBA陣列與字典解決方案”PDF教程，講解VBA的精華——字典，是我們開啟思路，提高程式碼水平的必備。其四“VBA程式碼解決方案”影片教程。目前正在錄製，“每天20分鐘，半年精進VBA”，越早參與，回饋越多。現在錄製到第三冊的103講，以上各教程的程式碼都是經過實測，可以拿來即用。