แปลง Excel ออกเป็น text (กำหนดเป็น UTF-8)

[sii]

Sub SaveFile(i As Integer)
Worksheets("Media File").Range(A1:Q40).Copy
Workbooks.Add
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
FileSaveName = Application.GetSaveAsFilename( _
filefilter:="Text Files (*.txt),*.txt")
If FileSaveName <> "False" Then
ActiveWorkbook.SaveAs filename:=FileSaveName, FileFormat:=xlUnicodeText
MsgBox "Already save file " & FileSaveName
Application.DisplayAlerts = False
ActiveWindow.Close

Else
ActiveWindow.Close
End If
End Sub

********จากโค้ด ด้านบน ถ้าต้องการกำหนด FileFormat ให้เป็น UTF-8 ต้องใช้คำสั่งอะไรค่ะ

ขอบคุณล่วงหน้าค่ะ

[snasui]

ไม่มี File Format UFT-8 ครับ ดู link นี้ประกอบครับ http://msdn.microsoft.com/en-us/library ... 12%29.aspx

[sii]

ขอบคุณค่ะ..

แล้วต้องทำยังไง ถึงจะกำหนด เป็น utf-8 ได้ค่ะ

พอจะมีแนวทางบ้างไม๊ ให้ save เป็น .txt แล้ว encoding เป็น utf-8

[snasui]

ลองดูที่นี่ครับ Save เป็น Text เปิดด้วย Word แล้ว Save เป็น UTF-8 http://social.technet.microsoft.com/For ... a4de8db18/