Sử dụng VBA FileSystemObject (FSO) trong Excel – Tổng quan & ví dụ dễ dàng

VBA FileSystemObject (FSO) là gì?

• Kiểm tra xem tệp hoặc thư mục có tồn tại không.
• Tạo hoặc đổi tên các thư mục / tập tin.
• Nhận danh sách tất cả tên tệp (hoặc tên thư mục con) trong một thư mục.
• Sao chép tệp từ một thư mục này sang thư mục khác.

Lưu ý: FSO chỉ có thể được sử dụng trong Excel 2000 và các phiên bản mới hơn.

Bạn có thể truy cập tất cả các đối tượng nào thông qua FileSystemObject?

Vật	Sự miêu tả
Lái xe	Drive Object cho phép bạn nhận thông tin về ổ đĩa như cho dù nó tồn tại hay không, đó là tên đường dẫn, loại ổ đĩa (có thể tháo rời hoặc cố định), kích thước của nó, v.v.
Thư mục	Đối tượng thư mục cho phép bạn tạo hoặc sửa đổi các thư mục trong hệ thống của bạn. Ví dụ, bạn có thể tạo, xóa, đổi tên, sao chép các thư mục bằng cách sử dụng đối tượng này.
Tập tin	File Object cho phép bạn làm việc với các tập tin trong hệ thống của bạn. Ví dụ, bạn có thể tạo, mở, sao chép, di chuyển và xóa các tập tin bằng cách sử dụng đối tượng này.
TextStream	Đối tượng TextStream cho phép bạn tạo hoặc đọc các tập tin văn bản.

Kích hoạt FileSystemObject trong Excel VBA

1. Đặt tham chiếu đến Thư viện Thời gian chạy Microsoft Scripting (Scrrun.dll)
2. Tạo một đối tượng để tham chiếu đến thư viện từ chính mã đó

Đặt tham chiếu đến thư viện thời gian chạy Microsoft Scripting

1. Trong VB Editor, nhấp vào Tools.
2. Nhấp vào Tham khảo.
3. Trong hộp thoại Tham khảo mở ra, cuộn qua các tham chiếu có sẵn và kiểm tra tùy chọn ‘Microsoft Scripting Runtime’.
4. Nhấp vào OK.

Tạo một thể hiện của FileSystemObject trong mã

Sub CreatingFSO()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
End Sub

1. Từ khóa MỚI tạo ra một thể hiện của FileSystemObject. Điều này có nghĩa rằng bây giờ tôi có thể sử dụng tất cả các phương pháp của FileSystemObject để làm việc với các tập tin và thư mục. Nếu bạn không tạo cá thể này, bạn sẽ không thể truy cập các phương thức của FSO.
2. Từ khóa SET đặt đối tượng MyFSO thành thể hiện mới của FileSystemObject. Điều này cho phép tôi sử dụng đối tượng này để truy cập các tệp và thư mục. Ví dụ, nếu tôi cần tạo một thư mục, tôi có thể sử dụng phương thức MyFSO.CreateFolder.

Sub CreatingFSO()
Dim MyFSO As New FileSystemObject
End Sub

Tạo một đối tượng từ mã

Sub FSODemo()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
End Sub

Ví dụ về VBA FileSystemObject

Ví dụ 1: Kiểm tra xem Tệp hoặc Thư mục có tồn tại không

Sub CheckFolderExist()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
If MyFSO.FolderExists("C:UserssumitDesktopTest") Then
    MsgBox "The Folder Exists"
Else
    MsgBox "The Folder Does Not Exist"
End If
End Sub

Ví dụ 2: Tạo thư mục mới ở vị trí được chỉ định

Sub CreateFolder()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
MyFSO.CreateFolder ("C:UserssumitDesktopTest")
End Sub

Sub CreateFolder()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
If MyFSO.FolderExists("C:UserssumitDesktopTest") Then
    MsgBox "The Folder Already Exist"
Else
    MyFSO.CreateFolder ("C:UserssumitDesktopTest")
End If
End Sub

Ví dụ 3: Nhận danh sách tất cả các tệp trong một thư mục

Sub GetFileNames()
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim MyFolder As Folder

Set MyFSO = New Scripting.FileSystemObject
Set MyFolder = MyFSO.GetFolder("C:UserssumitDesktopTest")

For Each MyFile In MyFolder.Files
    Debug.Print MyFile.Name
Next MyFile

End Sub

Ví dụ 4: Lấy danh sách tất cả các thư mục con trong một thư mục

Sub GetSubFolderNames()
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim MyFolder As Folder
Dim MySubFolder As Folder

Set MyFSO = New Scripting.FileSystemObject
Set MyFolder = MyFSO.GetFolder("C:UserssumitDesktopTest")

For Each MySubFolder In MyFolder.SubFolders
    Debug.Print MySubFolder.Name
Next MySubFolder

End Sub

Ví dụ 5: Sao chép tệp từ một địa điểm sang địa điểm khác

Sub CopyFile()
Dim MyFSO As FileSystemObject
Dim SourceFile As String
Dim DestinationFolder As String
Set MyFSO = New Scripting.FileSystemObject

SourceFile = "C:UserssumitDesktopSourceSampleFile.xlsx"
DestinationFolder = "C:UserssumitDesktopDestination"

MyFSO.CopyFile Source:=SourceFile, Destination:=DestinationFolder & "SampleFileCopy.xlsx"

End Sub

Ví dụ 6: Sao chép tất cả các tệp từ một thư mục sang thư mục khác

Sub CopyFile()
Dim MyFSO As FileSystemObject
Dim SourceFile As String
Dim DestinationFolder As String
Set MyFSO = New Scripting.FileSystemObject

SourceFile = "C:UserssumitDesktopSourceSampleFile.xlsx"
DestinationFolder = "C:UserssumitDesktopDestination"

MyFSO.CopyFile Source:=SourceFile, Destination:=DestinationFolder & "SampleFileCopy.xlsx"

End Sub

Ví dụ 6: Sao chép tất cả các tệp từ một thư mục sang thư mục khác

Sub CopyAllFiles()
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim SourceFolder As String
Dim DestinationFolder As String
Dim MyFolder As Folder
Dim MySubFolder As Folder

SourceFolder = "C:UserssumitDesktopSource"
DestinationFolder = "C:UserssumitDesktopDestination"

Set MyFSO = New Scripting.FileSystemObject
Set MyFolder = MyFSO.GetFolder(SourceFolder)

For Each MyFile In MyFolder.Files
    MyFSO.CopyFile Source:=MyFSO.GetFile(MyFile), _
    Destination:=DestinationFolder & "" & MyFile.Name, Overwritefiles:=False
Next MyFile

End Sub

Sub CopyExcelFilesOnly()
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim SourceFolder As String
Dim DestinationFolder As String
Dim MyFolder As Folder
Dim MySubFolder As Folder

SourceFolder = "C:UserssumitDesktopSource"
DestinationFolder = "C:UserssumitDesktopDestination"

Set MyFSO = New Scripting.FileSystemObject
Set MyFolder = MyFSO.GetFolder(SourceFolder)

For Each MyFile In MyFolder.Files
    If MyFSO.GetExtensionName(MyFile) = "xlsx" Then
        MyFSO.CopyFile Source:=MyFSO.GetFile(MyFile), _
        Destination:=DestinationFolder & "" & MyFile.Name, Overwritefiles:=False
    End If
Next MyFile

End Sub

Các phương thức FileSystemObject (FSO)

FSO Methods	For Object	Description
DriveExists	Drive	Checks whether the drive exists or not
GetDrive	Drive	Returns an instance of the drive object based on the specified path
GetDriveName	Drive	Reruns the drive name
BuildPath	File/Folder	Generate a path from an existing path and a name
CopyFile	File/Folder	Copies a file
GetAbsolutePathName	File/Folder	Return the canonical representation of the path
GetBaseName	File/Folder	Return base name from a path. For example, “D:TestFolderTestFile.xlsm” will return TextFile.xlsm
GetTempName	File/Folder	Generate name that can be used to name a temporary file
CopyFolder	Folder	Copies a folder from one location to other
CreateFolder	Folder	Creates a new folder
DeleteFolder	Folder	Deletes the specified folder
FolderExists	Folder	Checks whether the Folder exists or not
GetFolder	Folder	Returns an instance of the folder object based on the specified path
GetParentFolderName	Folder	Retruns the name of the parent folder based on the specified path
GetSpecialFolder	Folder	Get the location of various system folders.
MoveFolder	Folder	Moves a folder from one location to other
DeleteFile	File	Deletes a file
FileExists	File	Checks if a file exists or not
GetExtensionName	File	Returns the file extension
GetFile	File	Returns the instance of a file object based on the specified path
GetFileName	File	Returns the file name
GetFileVersion	File	Returns the file version
MoveFile	File	Moves a file
CreateTextFile	File	Creates a text file
GetStandardStream	File	Retrieve the standard input, output or error stream
OpenTextFile	File	Open a file as a TextStream

DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.
DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.
Cám ơn.