Import any language text files using vbascript

Scripting
#1

hi
i am importing files using this vbascript

Sub Import_All_Text_Files()

Application.ScreenUpdating = False

Dim thisRow As Long
Dim fileNum As Integer
Dim strInput As String

Const strPath As String = "C:\Temp\Temp\"  'Change as required
Dim strFilename As String

strFilename = Dir(strPath & "*.txt")

With ActiveSheet
    thisRow = .Range("A" & .Rows.Count).End(xlUp).Row

    Do While strFilename <> ""

        fileNum = FreeFile()
        Open strPath & strFilename For Binary As #fileNum
        strInput = Space$(LOF(fileNum))
        Get #fileNum, , strInput
        Close #fileNum

        thisRow = thisRow + 1
        .Cells(thisRow, 1).Value = strInput

        strFilename = Dir
    Loop
End With

  Application.ScreenUpdating = True
   End Sub

but the problem is i can’t able to import other language text files. so please add utf-8 code to this script so i can import all text files in any language.

#2

Hi @puneetkansal04,

Does this help?

– Dale