Import Text into Excel เป็นภาษาต่างดาว

[liveday]

เรียนอาจารย์ทุกท่านครับ
ผม Import ไฟล์ Text เพื่มนำมาแสดงใน Excel แล้วเป็นเป็นภาษาต่างดาว ต้องแก้อย่างไรบ้างครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Test()
    Dim fileFilterPattern As String, fileToOpen As String
    fileFilterPattern = "Text Files (*.txt; *.csv),*.txt;*.csv"
    fileToOpen = Application.GetOpenFilename(fileFilterPattern)
    If fileToOpen = "False" Then Exit Sub
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, _
        Destination:=Sheets("Data").Range("A3"))
        .PreserveFormatting = True
        .TextFilePlatform = 65001 
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
        .RefreshStyle = xlOverwriteCells
        .Refresh BackgroundQuery:=False
        ActiveWorkbook.Connections(1).Delete
    End With
End Sub

[liveday]

ได้ตามต้องการเลยครับ ขอบคุณครับ