Cách đọc và ghi file text với code VBA Excel ai cũng làm được, đơn giản dễ hiểu khi lập trình excel.

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:

  1. Cách đọc file text để nạp nội dung vào file excel bằng code vba excel
  2. Cách ghi nội dung ra file text bằng code vba excel
  3. Ứ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]
 

Cảm ơn đã xem, đã có 955 lượt xem.
Học vba Excel khác
Tag tìm kiếm:

cach doc file text vao excel bang code vba excel

Thông tin liên hệ

Zalo 0935 999617

Zalo 0972 13 14 19