Làm cách nào để sử dụng FileSystemObject trong VBA?

Question

Có điều gì tôi cần tham khảo không? Làm cách nào để sử dụng điều này:

Dim fso As New FileSystemObject 
Dim fld As Folder 
Dim ts As TextStream 

Tôi gặp lỗi vì không nhận ra các đối tượng này.

Answer 1

Trong Excel bạn cần phải thiết lập một tham chiếu đến VB script thư viện thời gian chạy. Các tập tin có liên quan thường được đặt tại \Windows\System32\scrrun.dll

• Để tham chiếu tập tin này, nạp Visual Basic Editor (ALT + F11)
• Chọn Tools> Tài liệu tham khảo từ trình đơn thả xuống
• Danh sách tham chiếu có sẵn sẽ được hiển thị
• Đánh dấu vào hộp kiểm bên cạnh 'Microsoft Scripting Runtime'
• Tên đầy đủ và đường dẫn của tệp scrrun.dll sẽ được hiển thị bên dưới hộp danh sách
• Nhấp vào nút OK.

Answer 2

Những anh chàng này có ví dụ tuyệt vời về cách sử dụng các đối tượng hệ thống tập tin http://www.w3schools.com/asp/asp_ref_filesystem.asp

<% 
dim fs,fname 
set fs=Server.CreateObject("Scripting.FileSystemObject") 
set fname=fs.CreateTextFile("c:\test.txt",true) 
fname.WriteLine("Hello World!") 
fname.Close 
set fname=nothing 
set fs=nothing 
%> 

Answer 3

Trong excel 2013 chuỗi tạo đối tượng là:

Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 

thay vì các mã trong các câu trả lời ở trên:

Dim fs,fname 
Set fs=Server.CreateObject("Scripting.FileSystemObject") 

Answer 4

Sau khi thêm tài liệu tham khảo, tôi đã phải sử dụng

Dim fso As New Scripting.FileSystemObject