Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Read Sequential Access Files

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