Cách đọc file text trong VBA Access

Có nhiều cách code VBA để đọc file text vào Access, nhưng mình giới thiệu 2 cách cơ bản nhất

Cách 1: code VBA đọc file text trực tiếp của Access không sử dụng thư viện

 duongdanfile = "D:\a.txt"
   Dim vitriFile_FREE As Integer, noidungFile As String
   vitriFile_FREE = FreeFile
   Open duongdanfile For Input As vitriFile_FREE
   noidungFile = Input(LOF(vitriFile_FREE), vitriFile_FREE)
   MsgBox noidungFile
   Close vitriFile_FREE

Cách 2: Code VBA đọc file text sử dụng thư viện

 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