Snasui Excel Forum

ขอบคุณมากๆเลยค่ะ พยายามหาข้อมูลอยู่เกือบเดือน ขอบคุณมากจริงๆค่ะ

ขออนุญาตชี้แจ้งวัตถุประสงค์การสร้าง VBA นะคะ
พอดีต้องการแยกไฟล์ excel แต่ละ row เป็น 1 ไฟล์ xml ค่ะ ลองค้นหาวิธีการตามเว็บต่างๆ เลยไปเจอไฟล์จากเว็บบอร์ดต่างประเทศที่เค้าทำมาให้แล้วเสร็จ แล้วโพสลงในเว็บบอร์ดค่ะ จึงนำมาประยุกต์กับไฟล์ตัวเองค่ะ แต่ติดตรงที่เวลาแสดงผล ไม่ขึ้นเป็นภาษาไทยค่ะ

ไม่แน่ใจว่าทำถูกต้องตามกฎแล้วรึยังคะ รบกวนผู้รู้แนะนำการแก้ปัญหาด้วยค่ะ พอดีติดมาหลายวันแล้ว ขอบพระคุณมากเลยนะคะ

Option Explicit

Sub ExportXML()
Dim outPATH As String, LR As Long, Rw As Long, fNAME As String, Str As String

outPATH = ThisWorkbook.Path & "\XML\"
On Error Resume Next
MkDir outPATH
On Error GoTo 0

LR = Range("A" & Rows.Count).End(xlUp).Row
For Rw = 2 To LR
fNAME = Trim(Cells(Rw, "M").Value ...

รบกวนสอบถามการตั้งค่า หรือการเขียนโค้ด VBA ค่ะ เนื่องจากไม่แสดงผลเป็นภาษาไทย
เช่น ลองเปลี่ยนข้อมูลในตารางเป็นคำว่า "ไทย" แต่แสดงผลเป็น "xE4xB7xC2"