Posted By

buglilorenzo on 10/18/17

Tagged

excel

Versions (?)

Last Edited at 10/18/17 09:06pm

Statistics

Viewed 889 times

Favorited by 0 user(s)

Related snippets

Read data from txt files

/ Published in: Visual Basic

Read data from TXT files to import them in Excel environment

Highlighted TextExpand

Sub ImportFromText(x As Integer, y As Integer, filename As String)
    Dim base As String
    Dim WS As Worksheet
    Dim WB As Workbook
    
    Set WB = ThisWorkbook
    Set WS = WB.Worksheets("Results")
    
    base = ThisWorkbook.PATH
    file_path = base & "\output\" & filename
    Open file_path For Input As #1
    r = x
    Do Until EOF(1)
        Line Input #1, Data
        v = Split(Data, vbTab)
        For i = 0 To 3 Step 1
            If r = x Then
                WS.Range("AA2").Offset(r, y + i) = v(i)
            Else
                WS.Range("AA2").Offset(r, y + i) = Round(CDbl(v(i)), 5)
            End If
        Next i
        r = r + 1
    Loop
    Close #1
End Sub

Sub import_modified_files()
    Call ImportFromText(0, 0, "Stream number 1 - stream function 0,0000.txt")
    Call ImportFromText(0, 4, "Stream number 2 - stream function 0,2500.txt")
    Call ImportFromText(0, 8, "Stream number 3 - stream function 0,5000.txt")
    Call ImportFromText(0, 12, "Stream number 4 - stream function 0,7500.txt")
    Call ImportFromText(0, 16, "Stream number 5 - stream function 1,0000.txt")
End Sub

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.