Để dễ hình dung cách sử dụng FileSystemObject (FSO) trong VBA như thế nào miễn phí , bài viết tổng hợp dưới đây Chúng tôi ở đâu tốt sẽ giới thiệu cho bạn một số ví dụ về FileSystemObject trong VBA.
1 mới nhất . Ví dụ về FileSystemObject trong VBA.
1.1 miễn phí . Ví dụ 1: Kiểm tra xem tốc độ các file chi tiết hoặc thư mục có tồn tại hay không
1.2 tổng hợp . Ví dụ 2: Tạo thư mục mới trong vị trí đăng ký vay đã chỉ định
1.3 an toàn . Ví dụ 3: Lấy danh sách tên kỹ thuật tất cả qua web các file trong một thư mục
1.4 tối ưu . Ví dụ 4: Lấy danh sách sử dụng tất cả qua app các thư mục con trong một thư mục cụ thể
1.5 ở đâu tốt . Ví dụ 5: Sao chép file từ thư mục này sang thư mục khác
1.6 mẹo vặt . Ví dụ 6: Sao chép giảm giá tất cả nguyên nhân các file từ thư mục này sang thư mục khác
1 kỹ thuật . Ví dụ về FileSystemObject trong VBA
Dưới đây là một số ví dụ cập nhật để bạn dễ hình dung hơn cách sử dụng FileSystemObject trong VBA.
1.1 Ví dụ 1: Kiểm tra xem đăng ký vay các file phải làm sao hoặc thư mục có tồn tại hay không
Đoạn mã qua app dưới đây phải làm sao sẽ kiểm tra xem thư mục có tên Test có tồn tại hay không trong vị trí cụ thể hay nhất đã chỉ định.
nguyên nhân Nếu thư mục tồn tại trên điện thoại , điều kiện IF là True nguyên nhân và nó qua web sẽ hiển thị thông báo "thư mục tồn tại" trong hộp thoại thông báo thanh toán . link down Nếu thư mục không tồn tại nó tăng tốc sẽ hiển thị thông báo "thư mục không tồn tại".
Sub CheckFolderExist()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
If MyFSO.FolderExists("C:UserssumitDesktopTest") Then
MsgBox "thư mục tồn tại"
Else
MsgBox "thư mục không tồn tại"
End If
End Sub
Tương tự thanh toán , chúng ta qua web cũng quảng cáo có thể kiểm tra xem một file có tồn tại hay không.
Đoạn mã khóa chặn dưới đây kiểm tra xem file có tên Test.xlsx có tồn tại trong thư mục cụ thể hay không:
Sub CheckFileExist()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
If MyFSO.FileExists("C:UserssumitDesktopTestTest.xlsx") Then
MsgBox "File có tồn tại"
Else
MsgBox "File không tồn tại"
End If
End Sub
1.2 Ví dụ 2: Tạo thư mục mới trong vị trí sửa lỗi đã chỉ định
Đoạn mã lừa đảo dưới đây tạo thư mục có tên Test trong ổ C trên hệ thống (chúng ta mới nhất sẽ phải chỉ định đường dẫn trên hệ thống cập nhật của mình tự động , nơi muốn tạo thư mục).
Sub taothumuc()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
MyFSO.taothumuc ("C:UserssumitDesktopTest")
End Sub
Đoạn mã trên đây mật khẩu sẽ trả về thông báo lỗi trong trường hợp tốt nhất nếu thư mục tổng hợp đã tồn tại.
Đoạn mã hỗ trợ dưới đây kiểm tra xem thư mục tốt nhất đã tồn tại hay chưa qua web và tạo thư mục nguyên nhân nếu chưa có đăng ký vay . Trong trường hợp kiểm tra nếu thư mục kỹ thuật đã tồn tại link down , nó qua mạng sẽ hiển thị thông báo lỗi xóa tài khoản . Để kiểm tra thư mục địa chỉ đã tồn tại hay chưa tài khoản , chúng ta sử dụng phương thức FolderExists giá rẻ của FSO:
Sub taothumuc()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
If MyFSO.thu muc ton tai ("C:UserssumitDesktopTest") Then
MsgBox "thư mục sửa lỗi đã tồn tại"
Else
MyFSO.tao thu muc ("C:UserssumitDesktopTest")
End If
End Sub
1.3 Ví dụ 3: Lấy danh sách tên download tất cả ở đâu uy tín các file trong một thư mục
Sử dụng đoạn mã cập nhật dưới đây cập nhật để hiển thị tên tốc độ của xóa tài khoản tất cả tự động các file trong một thư mục cụ thể:
Sub lay ten file ()
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
Đoạn mã này phức tạp hơn một chút so nạp tiền với tốc độ các đoạn mã như thế nào mà Chúng tôi quản lý đã giới thiệu ở trên.
Như tổng hợp đã đề cập ở trên miễn phí , khi tham chiếu thư viện Microsoft Scripting Runtime Library khóa chặn , chúng ta nhanh nhất có thể sử dụng FileSystemObject sửa lỗi cũng như kiểm tra tất cả download các đối tượng khác (như File tự động và Folder).
Trong đoạn mã trên an toàn , chúng ta sử dụng 3 đối tượng là FileSystemObject bản quyền , File dịch vụ và Folder ở đâu tốt . Điều này cho phép chúng ta đi qua từng file trong thư mục an toàn được chỉ định chia sẻ sau đó sử dụng thuộc tính name qua mạng để lấy danh sách tên mật khẩu tất cả trực tuyến các file.
Lưu ý: trong đoạn mã trên chúng ta đang sử dụng Debug.Print địa chỉ để lấy tên mới nhất của nhanh nhất tất cả tài khoản các file giảm giá . Các tên này nơi nào sẽ lấy liền được liệt kê cài đặt và hiển thị trên cửa sổ trên VB Editor.
1.4 Ví dụ 4: Lấy danh sách tự động tất cả đăng ký vay các thư mục con trong một thư mục cụ thể
Đoạn mã kỹ thuật dưới đây tài khoản sẽ hiển thị tên kích hoạt tất cả download các thư mục con trong thư mục cụ thể dữ liệu được chỉ định:
Sub lay ten thu muc con ()
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
1.5 Ví dụ 5: Sao chép file từ thư mục này sang thư mục khác
Đoạn mã danh sách dưới đây sao chép file từ thư mục Source sang thư mục Destination:
Sub sao chep file()
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 ở đâu tốt , Destination:=DestinationFolder & "SampleFileCopy.xlsx"
End Sub
Trong đoạn mã trên chúng ta sử dụng 2 biến SourceFile ở đâu uy tín và DestinationFolder.
Trong đó vô hiệu hóa , biến Source File giữ địa chỉ kiểm tra của file tải về mà chúng ta muốn sao chép nguyên nhân và biến DestinationFolder giữ địa chỉ vô hiệu hóa của thư mục dữ liệu mà chúng ta muốn sao chép file vào.
Lưu ý: khi sao chép file an toàn , vô hiệu hóa nếu chỉ cung cấp tên thư mục đích thôi là chưa đủ giá rẻ . Chúng ta phải chỉ định tên file khóa chặn , trực tuyến và mới nhất có thể sử dụng cùng một tên file hướng dẫn hoặc thay đổi quản lý . Trong ví dụ trên Chúng tôi sao chép file khóa chặn và đặt tên là SampleFileCopy.xlsx.
1.6 Ví dụ 6: Sao chép tối ưu tất cả thanh toán các file từ thư mục này sang thư mục khác
Đoạn mã nạp tiền dưới đây sao chép chia sẻ tất cả sử dụng các file từ thư mục Source sang thư mục Destination:
Sub sao chep tat ca cac file()
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) dữ liệu , _
Destination:=DestinationFolder & "" & MyFile.Name tăng tốc , Overwritefiles:=False
Next MyFile
End Sub
Lưu ý: Trong phương thức MyFSO.CopyFile chi tiết , chúng ta chỉ định thuộc tính Overwritefiles là False (mặc định là True) tăng tốc . Điều này nguyên nhân để đảm bảo trong trường hợp link down nếu file mẹo vặt đã có trong thư mục sửa lỗi , file đó như thế nào sẽ không mẹo vặt được sao chép ứng dụng . quản lý Nếu xóa Overwritefiles cập nhật hoặc thiết lập giá trị là False hỗ trợ , trong trường hợp trực tuyến nếu có cập nhật các file bị trùng trong thư mục đích có cùng tên mẹo vặt , phải làm sao các file này công cụ sẽ bị ghi đè.
giả mạo Nếu chỉ muốn sao chép danh sách các file full crack của một tiện ích mở rộng cụ thể chi tiết , chúng ta tăng tốc có thể làm ở đâu tốt được điều này bằng cách sử dụng lệnh IF Then hỗ trợ để kiểm tra xem tiện ích mở rộng có phải là xlsx hay không.
Sub chi sao chep file Excel ()
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) mật khẩu , _
Destination:=DestinationFolder & "" & MyFile.Name thanh toán , Overwritefiles:=False
End If
Next MyFile
https://thuthuat.taimienphi.vn/tim-hieu-filesystemobject-fso-trong-vba-phan-2-45665n.aspx
Bài viết tìm hiểu FileSystemObject trong VBA (Phần 2) trên đây Chúng tôi vừa giới thiệu cho bạn một số ví dụ về FileSystemObject trong VBA tính năng . tốc độ Ngoài ra bạn đọc nạp tiền có thể tham khảo thêm một số bài viết khác cài đặt đã có trên Chúng tôi ở đâu tốt để tìm hiểu thêm về hàm TRIM trong Excel VBA nguyên nhân nhé.
4.9/5 (86 votes)
