สร้าง .text เป็น Format UTF8 สามารถทำได้ไหมครับ

[patipat]

สร้าง .text  เป็น Format  UTF8  สามารถทำได้ไหมครับ

ต้องกำหนด code อย่างไร ปกติเคยจะสร้าง .text ปกติ  (ANSI)   

ทีมเทคนิค อยากได้ .text ที่เป็น Format  UTF8


ขอบคุณมากครับ


/////////////////////////////////
ปกติที่เคยสร้าง กำหนด
Dim AAA As String
Dim BBB As Recordset

dbConnect.dbConnect

AAA = "Hello"

Print #1,  AAA 

Close #1
MsgBox "Gen Text Complete :)"

[UnKnown]

ตัวอย่างชุดคำสั่งส่งออก textfile utf-8

โค๊ด: [Select]

Private Sub Command12_Click()
Set strm = CreateObject("ADODB.Stream")
With strm
   .Open
   .Type = 2
   .Charset = "UTF-8"
   .WriteText "ข้อความ"
   .SaveToFile "c:\ชื่อไฟล์.txt", 2  '2 บันทึกทับไฟล์เก่าได้
   .Close
End With
MsgBox "Gen Text Complete :)"
End Sub

[patipat]

ตัวอย่างชุดคำสั่งส่งออก textfile utf-8

โค๊ด: [Select]

Private Sub Command12_Click()
Set strm = CreateObject("ADODB.Stream")
With strm
   .Open
   .Type = 2
   .Charset = "UTF-8"
   .WriteText "ข้อความ"
   .SaveToFile "c:\ชื่อไฟล์.txt", 2  '2 บันทึกทับไฟล์เก่าได้
   .Close
End With
MsgBox "Gen Text Complete :)"
End Sub

.WriteText "ข้อความ"

ขอสอบถามเพิ่มเติม ถ้าส่วนข้อไม่ใช่ "ข้อความ" แต่เป็น   ตัวแปรที่ประกาศโมดูลไว้จะใส่ยังไงหรอครับ




ตอนนี้ผม ประกาศ Module  Write_TFB
ได้ txt ออกไป ที่  C:\HP\  ครับ แต่อยากได้ เป็น Format  UTF8



/////////////////////////////////////////////
Function PathFile() As String
PathFile = "C:\HP\"
End Function


Sub Write_TFB()
 '*************** dim TextHeader
Dim H_Prefix As String
Dim H_Contract_No As String

dbConnect.dbConnect

H_Prefix = "H"
H_Contract_No = Format(Forms!Frm!Contract_No, "0000000000")


Open PathFile & "HP_" & ".txt" For Output As #1

Print #1, H_Prefix & H_Contract_No


Close #1
MsgBox "Gen Text Complete :)"

End Sub




///////////////////////////////////////////
Code ในปุ่ม กดจากฟอร์มงานครับ

Call WriteTxt.Write_TFB
    MsgBox "finish"
   
   
    Dim Foldername As String
Foldername = "C:\HP\"

[nonc31]

DoCmd.TransferText acExportDelim, , "ชื่อตารางหรือคิวรี่", "C:\text.txt", True, , 65001

65001  คือ รูปแบบ UTF8
874  คือ  ไทย

[UnKnown]

Module  Write_TFB
Function PathFile() As String
PathFile = "C:\HP\"
End Function

Sub Write_TFB()
 '*************** dim TextHeader
Dim H_Prefix As String
Dim H_Contract_No As String
Set strm = CreateObject("ADODB.Stream")

'dbConnect.dbConnect     '<--- เครื่องผม Error เลยปิดใว้

H_Prefix = "H"
H_Contract_No = Format(Forms!Form1!Text0, "0000000000")

With strm
   .Open
   .Type = 2
   .Charset = "UTF-8"
   .WriteText H_Prefix & H_Contract_No
   .SaveToFile PathFile & "HP_" & ".txt", 2
   .Close
End With

MsgBox "Gen Text Complete :)"

End Sub

Code ในปุ่ม
Call Write_TFB
    MsgBox "finish"
'-------------------------