Đọc file trong VBA Access

 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

 

     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