VBA Excel ปัญหาเมื่อต้องการบันทึกText file เป็น UTF-8

[pattchy]

ได้ทำการเขียนสูตร ที่ Excel โดยกำหนดค่าที่ต้องการ Copy Cell ไว้ที่ช่อง A1 หากป้อนจำนวนแล้วสูตรจะวิ่งไป Copy Cell ให้ตามจำนวนที่ระบุ
และบันทึกออกมาเป็น Text file
แต่ติดปัญหาตรงที่ เมื่อเป็นภาษาไทยแล้วจะไม่แสดงเป็น UTF-8คะ
ต้องเปิด Text file และ save as Unicode เป็น UTF-8 อีกครั้ง

อยากทราบว่าจาก codeนี้ พอจะแทรก หรือเขียนคำสั่งอะไร ให้ Print ด้วย UTF-8 บ้างคะ
ขอบพระคุณคะ

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
Dim myRange As Range
Dim ce As Range

Open "d:\sample.txt" For Output As #1


Set myRange = Worksheets("INPUT").Range("A1:A1")
answer = Application.WorksheetFunction.Min(myRange)

Range("A1").Select
Sheets("OUTPUT").Select


For Each ce In Range("A1" & ":A" & answer)
 
Print #1, ce.Value

Next ce
    Close #1



Sheets("INPUT").Select
Range("A1").Select

 MsgBox ("Done")
    

End Sub

[bank9597]

ลองดูครับ

Code: Select all

Sub test()

        Dim objStream
        Set objStream = CreateObject("ADODB.Stream")
        Dim myRange As Range
        Dim ce As Range
        
        objStream.Charset = "UTF-8"
        objStream.Open
        objStream.SaveToFile "C:\Users\AccountName\Desktop\sample.txt", 2
        
        Open "C:\Users\AccountName\Desktop\sample.txt" For Output As #1
        
        Set myRange = Worksheets("INPUT").Range("A1:A10")
        
        For Each ce In myRange
         
        Print #1, ce.Value
        
        Next ce
        Close #1
        
         MsgBox ("Done")
End Sub

[pattchy]

ลองดูครับ

Code: Select all

Sub test()

        Dim objStream
        Set objStream = CreateObject("ADODB.Stream")
        Dim myRange As Range
        Dim ce As Range
        
        objStream.Charset = "UTF-8"
        objStream.Open
        objStream.SaveToFile "C:\Users\AccountName\Desktop\sample.txt", 2
        
        Open "C:\Users\AccountName\Desktop\sample.txt" For Output As #1
        
        Set myRange = Worksheets("INPUT").Range("A1:A10")
        
        For Each ce In myRange
         
        Print #1, ce.Value
        
        Next ce
        Close #1
        
         MsgBox ("Done")
End Sub

ขอบคุณคะ ได้ทำการลองแล้วคะ แต่ TextFile ยัง Encoding เป็น ANSI อยู่เลยคะ

[bank9597]

ผมทดสอบแล้วครับ สามารถอ่านภาษาไทยได้ครับ แต่ต้องเป็นเครื่องคอมที่ตั้งค่าใน Region & Language เป็น Thai ครับ

แต่หากเป็นอย่างอื่น ก็จะยังใช้ภาษาไทยไม่ได้ครับ

[snasui]

ลองดูตัวอย่างเพิ่มเติมที่นี่ครับ

https://social.technet.microsoft.com/Fo ... -text-file