Mục lục
Hướng dẫn này sẽ trình bày cách sử dụng phương thức OpenTextFile của FileSystemObject.
Mở tệp văn bản
Bài học này sử dụng FileSystemObject. Để sử dụng nó, bạn sẽ cần đặt một tham chiếu đến thư viện thời gian chạy tập lệnh VB. Xem ở đây để biết thêm thông tin.
Bạn có thể mở một tệp văn bản hiện có để đọc:
| 1 | Đặt FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
và sau đó dán nội dung của nó vào ô đầu tiên của trang tính hiện tại, ví dụ:
| 12345678910 | Sub FSOReadFromTextFile ()Làm mờ FSO dưới dạng FileSystemObject mớiĐặt FSO = CreateObject ("Scripting.FileSystemObject")Đặt FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Giá trị = Chuỗi văn bảnKết thúc Sub |
Để biết thêm tùy chọn với chế độ ForReading, hãy xem tại đây.
Trong chế độ Viết, bạn có thể thay thế nội dung của tệp hiện có bằng dữ liệu mới nhưng bạn không thể đọc từ tệp.
| 123456789 | Sub FSOWriteToTextFile ()Làm mờ FSO dưới dạng FileSystemObject mớiĐặt FSO = CreateObject ("Scripting.FileSystemObject")Đặt FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "dòng kiểm tra"FileToWrite.CloseKết thúc Sub |
Để biết thêm tùy chọn với chế độ Viết chữ, hãy xem tại đây.
Trong chế độ ForAppending, bạn có thể ghi vào cuối tệp. Bạn không thể đọc từ tệp này.
| 123456789 | Sub FSOAppendToTextFile ()Làm mờ FSO dưới dạng FileSystemObject mớiĐặt FSO = CreateObject ("Scripting.FileSystemObject")Đặt FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "nội dung thêm vào"FileToAppend.CloseKết thúc Sub |
