How import text file to MS Access vba

[stoian88hr]

Down my code is working.

Option Compare Database
 
Private Sub PR_Click()
Dim intfileH   As Integer
  Dim strBuf     As String
  Dim rst        As DAO.Recordset
  Dim strRec, vBuf, strRecDetail
 
  intfileH = FreeFile()
  Open "D:\pr.txt" For Input As #intfileH
  strBuf = Input(LOF(intfileH), #intfileH)
  Set rst = CurrentDb.OpenRecordset("Table3")
 
  vBuf = Split(strBuf, "")
  For Each strRec In vBuf
     If strRec <> "" Then
        strRecDetail = Split(strRec, vbCrLf)
        With rst
           .AddNew
           !Hcod = Split(strRecDetail(0), ":")(1) 
           !Nhour = Mid(strRecDetail(1), 27, 5)
           !Ehour = Split(strRecDetail(1), "-")(1)
           .Update
        End With
     End If
  Next
 
  rst.Close
  Close (intfileH)
 
End Sub

The code is working.

[jforbes]

You might want to check out this thread: Text file to access Table

[NeoPa]

I can't make out what the question means but your code shows you need to read Require Variable Declaration.

[Stephen08]

If your goal is to store some or all data that is in a text file in an Access database, you should import the contents of the file into a new table or append the data to an existing table. You can view and edit the imported data, and the changes you make to the data do not affect the source text file. Have a look on Microsoft blog which may help you.

[ADezii]

If you could Post some Sample Data, or even Dummy Data representing the File's Structure, I'm sure we can be more helpful.