Bạn đang làm nghiệp vụ đọc 1 nội dung của file text (còn gọi là .txt) trong VBA Excel, cần code vba để xử lý vấn đề này.
Trong bài viết này tôi mình trình bày 2 vấn đề chính:
- Cách đọc file text để nạp nội dung vào file excel bằng code vba excel
- Cách ghi nội dung ra file text bằng code vba excel
- Ứng dụng thực tế code vba xử lý file text
***
1. Cách đọc file text để nạp nội dung vào file excel bằng code vba excel
* Cách 1: đọc file text sử dụng thư viện Microsoft Scripting Runtime
Để sử dụng được đoạn code VBA Exccel - bên dưới hãy vào Tool - references, thêm vào: Microsoft Scripting Runtime
{{fmc_vbnet:
Dim doituong_file As New FileSystemObject
Set doituong_file = CreateObject("Scripting.FileSystemObject")
Set FileToRead = doituong_file.OpenTextFile("D:\a.txt", ForReading)
MsgBox FileToRead.ReadAll
FileToRead.Close
* Cách 2: đọc file text từ code chuẩn VBA Excel
{{fmc_vbnet:
duongdanfile = "D:\data.txt"
Dim vitriFile_FREE As Integer, noidungFile As String
vitriFile_FREE = FreeFile 'bien FreeFile tra ve gia tri gi ?
Open duongdanfile For Input As vitriFile_FREE
noidungFile = Input(LOF(vitriFile_FREE), vitriFile_FREE)
Close vitriFile_FREE
Range("A1") = noidungFile
2. Cách ghi nội dung ra file text bằng code vba excel
3. Ứng dụng thực tế code VBA đọc file text như thế nào
- Đọc file text đưa nội dung vào sheet excel
* Thường 1 số phần mềm xuất định dạng csv, txt ... , ta muốn nạp nhanh với file excel để xử lý
- Khi làm các phần mềm lớn bằng VBA excel , khi mở file excel sẽ nạp giá trị file text vào để cấu hình các thông số.
- Lưu file cấu hình ConnectString để kết nối tới SQL Server
- Và nhiều ứng dụng khác
[Mời bạn xem video đọc file text bằng VBA Excel]