Hướng dẫn này sẽ trình bày cách đọc tệp văn bản thành chuỗi trong VBA.
Chúng ta có thể đọc từng dòng tệp văn bản hoặc toàn bộ tệp.
Đọc toàn bộ tệp văn bản thành một chuỗi
Văn bản trong tệp văn bản thường được tạo thành từ một số dòng, phân tách bằng dấu phân cách. Đây có thể là dấu phẩy (“,”), dấu phẩy với dấu cách (“,“), dấu chấm phẩy (“;”), dấu chấm phẩy với dấu cách (“;“), dấu cách (““), tab (vbTab ) hoặc trong một số trường hợp hiếm hoi, bất kỳ ký tự nào khác như dấu ngã (~). Các dòng thường được phân tách bằng dấu ngắt dòng (vbCRLF).
Cách dễ nhất để đọc toàn bộ tệp văn bản trong VBA là chạy đoạn mã sau sẽ đặt toàn bộ nội dung của tệp văn bản vào một biến chuỗi. Quy trình này sử dụng câu lệnh VBA Open và chức năng VBA FreeFile.
| 12345678910 | Sub ReadFile ()Dim iTxtFile As IntegerDim strFile As StringDim strFileText dưới dạng chuỗistrFile = "C: \ Test \ TestFile.txt"iTxtFile = FreeFileMở strFile để nhập dưới dạng FreeFilestrFileText = Đầu vào (LOF (iTxtFile), iTxtFile)Đóng iTxtFileKết thúc Sub |
Chúng tôi cũng có thể đọc tệp văn bản trong VBA bằng cách sử dụng FileSystemObject. Trong đoạn mã dưới đây, chúng tôi đã sử dụng liên kết muộn với Đối tượng Hệ thống Tệp.
| 1234567891011 | Sub ReadTextFile ()Dim strText As StringLàm mờ FSO dưới dạng Đối tượngLàm mờ TSO dưới dạng đối tượngĐặt FSO = CreateObject ("Scripting.FileSystemObject")Đặt TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO.CloseĐặt TSO = Không có gìĐặt FSO = Không có gìKết thúc Sub |
Chúng tôi cũng có thể sử dụng liên kết sớm trong mã và khai báo Đối tượng Hệ thống Tệp bằng cách tạo một tham chiếu trong dự án Excel của chúng tôi tới Đối tượng Hệ thống Tệp.
| 1234567891011 | Sub ReadTextFile ()Dim strText As StringLàm mờ FSO dưới dạng FileSystemObject mớiLàm mờ TSO dưới dạng đối tượngĐặt FSO = CreateObject ("Scripting.FileSystemObject")Đặt TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO.CloseĐặt TSO = Không có gìĐặt FSO = Không có gìKết thúc Sub |
