ท่านต้องเตรียม
- Text file ต้องมีรูปแบบแน่นอน fix column ห้ามมีแถวว่าง
ผมใช้ code นี้ ดึงข้อมูลจาก เครื่อง Time Attendant รูดบัตร เข้าออก
- Table ที่จะรับข้อมูล

Dim Y, YY, mm, DD, HH, mmm, Tdate As Variant
Dim Db As Database
Dim Rs As DAO.Recordset
Dim FLine As Integer
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("tbl_WorkTime")
FLine = 0
Open txtPath For Input As #1
    Do While Not EOF(1)
          Line Input #1, Y           ' Y ค่าจาก txt แต่ละแถว
             Rs.AddNew
             Rs!EmployeeID = Trim(Mid(Y, 21, 3))
             DD = Mid(Y, 1, 2)
             mm = Mid(Y, 4, 2)
             YY = Mid(Y, 7, 4)            
             HH = Mid(Y, 12, 2)
             mmm = Mid(Y, 15, 2)
             
             Tdate = CDate(DD & " / " & mm & " / " & YY)
             Rs!WorkDate = Tdate & " " & HH & ":" & mmm             
             Rs!WorkTime = HH & ":" & mmm
             Rs.Update
          End If
    Loop
Close #1


** txtPath = "C:\xxxxxx.txt" หรือดัดแปลงเป็น สร้างปุ่ม Browse ก็ได้

ขอบคุณครับ

ไม่ลองใช้ docmd.transfertext ดูหรอครับ สั้นดี