VBA/Excel/Access/Word/File Path/Sequential Access Files

Create Sequential Access Files

   <source lang="vb">

File Access Modes with VBA Access Mode Writing Data Reading Data Sequential/Append Print#, Write# Input#, Input Random Put Get Binary Put, Write# Get, Input#, Input Public Sub CreateSeqFile()

   Dim filePath As String
   Dim I As Integer
   filePath = ActiveWorkbook.Path & "\MyHeaders.txt"
   Open filePath For Output As #1
       For I = 1 To 5
           Write #1, Cells(1, I).Value
       Next I
   Close #1

End Sub

</source>
   
  

Read Sequential Access Files

   <source lang="vb">

Public Sub ReadSeqFile()

   Dim filePath As String
   Dim I As Integer
   Dim myHeader As String
   I = 1
   filePath = ActiveWorkbook.Path & "\MyHeaders.txt"
   Open filePath For Input As #1
   Do While Not EOF(1)
       Input #1, myHeader
       Cells(1, I).Value = myHeader
       I = I + 1
   Loop
   Close #1

End Sub

</source>
   
  

Write and read Sequential Access Files

   <source lang="vb">

Public Sub CreateSeqFile()

   Dim filePath As String
   Dim I As Integer
   filePath = ActiveWorkbook.Path & "\SeqPhone.txt"
   Open filePath For Output As #1
       For I = 1 To 3
           Write #1, Cells(I, "A").value, Cells(I, "B").value
       Next I
   Close #1

End Sub Public Sub ReadSeqFile()

   Dim filePath As String
   Dim I As Integer
   Dim theName As String
   Dim theNumber As String
   I = 1
   filePath = ActiveWorkbook.Path & "\SeqPhone.txt"
   Open filePath For Input As #1
   Do While Not EOF(1)
       Input #1, theName, theNumber
       Cells(I, "A").value = theName
       Cells(I, "B").value = theNumber
       I = I + 1
   Loop
   Close #1

End Sub

</source>