Excel Forum

Code: Select all

Sub test()
Dim myfilepath As String
        myfilepath = "C:\Users\Administrator\Desktop\test.txt"
        Open myfilepath For Input As #1
        Do Until EOF(1)
        counter = counter + 1
        Line Input #1, CurLine
        ThisWorkbook.Sheets("Sheet1").Cells(counter, 1).Value = CurLine
        Loop
        Close #1
End Sub

Code: Select all

Public Sub Read_UTF_8_Text_File()
    Dim adoStream As Object
    Dim var_String As Variant
    Set adoStream = CreateObject("ADODB.Stream")
    adoStream.Charset = "UTF-8"
    adoStream.Open
    adoStream.LoadFromFile "C:\Users\Administrator\Desktop\test.txt"
    var_String = Split(adoStream.ReadText, vbCrLf)
    Range("A1").Resize(UBound(var_String) - LBound(var_String) + 1).Value _
        = Application.Transpose(var_String)
End Sub