Đọc file trong VBA Access

• Biến mảng(array) trong VBA
• Nạp file excel vào table access với vba

Hướng dẫn cách đọc file trong VBA Access

Cách đọc file trong VBA Access

Cách đọc file 1 (Read file) với VBA

 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 đọc file 2 (Read file) với VBA

  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

 

 Xem video code VBA về đọc file text