ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query

[001Jetnipit]

อยากเปลี่ยนชื่อพวกนี้ให้เป็นภาษาไทยสามารถทำได้ไหมครับ ใช้ในกรณีที่ User export ไปบางทีเขาอาจไม่เข้าใจฟิลที่มาจาก Table ตรงๆ ครับ

[PNR]

ใช้วิธีการเดี่ยวกับการกำหนดจัดกึ่งกลางนะครับ แต่เพิ่มโค๊ดเข้าไปอีกนิดเช่น

    Dim objExcelApp As Excel.Application
    Dim wb As Excel.Workbook
    Dim sht As Object
    Dim sFilename  As String
   
    sFilename = "E:\ExportedResults1.xls"
    DoCmd.OutputTo acOutputQuery, "ชื่อตาราง", acFormatXLS, sFilename
   
Set objExcelApp = Excel.Application
Set wb = objExcelApp.Workbooks.Open(sFilename)
Set sht = wb.Worksheets(1)
objExcelApp.Visible = True
sht.Columns("A:W").HorizontalAlignment = xlCenter
sht.Columns("A:W").EntireColumn.AutoFit
sht.Range("A1").Value = "ไอดี"    'A1,B1,C1 คือหัวของคอลัมน์
sht.Range("B1").Value = "ชื่อ"
sht.Range("C1").Value = "สกุล"

wb.Save
wb.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Sub

[UnKnown]

แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

[001Jetnipit]

ขอบคุณครับ แต่เหมือนมันเอาไปเรียกใช้บน Form ไม่ได้ใช่ไหมครับ

[001Jetnipit]

ใช้วิธีการเดี่ยวกับการกำหนดจัดกึ่งกลางนะครับ แต่เพิ่มโค๊ดเข้าไปอีกนิดเช่น

    Dim objExcelApp As Excel.Application
    Dim wb As Excel.Workbook
    Dim sht As Object
    Dim sFilename  As String
   
    sFilename = "E:\ExportedResults1.xls"
    DoCmd.OutputTo acOutputQuery, "ชื่อตาราง", acFormatXLS, sFilename
   
Set objExcelApp = Excel.Application
Set wb = objExcelApp.Workbooks.Open(sFilename)
Set sht = wb.Worksheets(1)
objExcelApp.Visible = True
sht.Columns("A:W").HorizontalAlignment = xlCenter
sht.Columns("A:W").EntireColumn.AutoFit
sht.Range("A1").Value = "ไอดี"    'A1,B1,C1 คือหัวของคอลัมน์
sht.Range("B1").Value = "ชื่อ"
sht.Range("C1").Value = "สกุล"

wb.Save
wb.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Sub

Error แบบเดิมเลยครับตรงนี้

[UnKnown]

ถ้าเกี่ยวข้องกับวิธีแก้ชื่อฟิลด์ของผมมันดันมีผลกับทุกอย่างที่เรียกใช้คิวรี่นี้ก็ต้องไปแก้ชื่อฟิลด์ที่เรียกไปใช้เป็นชื่อที่ตั้งใหม่ด้วยอ่ะนะ

แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

[PNR]

ไปที่ VBA Editor ไปที่ TOOL > References
ไปกดติ๊กเลือก Microsoft Excel xx.x Object Library  มาด้วยครับ

[PNR]

แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

ปกติถ้า export จากคิวรี่สามารถสร้าง ชื่อฟิลล์ที่ต้องการได้ตามที่คุณ UnKnown แนะนำมาครับ

[001Jetnipit]

แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

ปกติถ้า export จากคิวรี่สามารถสร้าง ชื่อฟิลล์ที่ต้องการได้ตามที่คุณบอกมา
แต่บางกรณีจะ export Table ผมเลยยกตัวอย่างในกรณีนี้ครับเพื่อเป็นแนวทางต่อไปถ้าเจอกรณีที่จะแก้ไขปรับปรุงข้อมูลที่ export ออกไปยัง excel

ขึ้นแบบนี้ครับ




#ถ้าหากจะเอาไฟล์ให้คอมอื่นใช้ต้องไปติ๊ก Microsoft excel object ให้เขาในเครื่องด้วยไหมครับ

[PNR]

check นามสกุลที่คุณกำหนดจะ export ดีๆนะครับ

ถ้าจะ export เป็น XLSX 
ตรงกับสั่ง EXport ต้องเป็น AcFormatXLSX ครับ

sFilename = "E:\ExportedResults1.xls"
    DoCmd.OutputTo acOutputQuery, "ชื่อตาราง", acFormatXLS, sFilename

ถ้า XLSX

sFilename = "E:\ExportedResults1.xlsx"
    DoCmd.OutputTo acOutputQuery, "ชื่อตาราง", acFormatXLSX, sFilename

[001Jetnipit]

อ๋อไม่ตรงกัน ตอนแรกอ่านยัง งงๆอยู่แต่พอมีตัวอย่างเข้าใจเลยครับ

Excel เป็นภาษาต่างด่าวครับ อันนี้ต้องไปแก้ที่ Excel ด้วยไหมครับ แต่โค้ดตรงกลางใช้งานได้แล้วครับขอบคุณครับ

[PNR]

ตรงแก้ไขชื่อฟิวล์ ทำก่อนเลยในคิวรี่แบบที่คุณ UnKnown บอกครับ เนื่องจากเครื่องคุณไม่ได้ตั้งค่าให้รองรับภาษาไทย

แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

[001Jetnipit]

ตรงแก้ไขชื่อฟิวล์ ทำก่อนเลยในคิวรี่แบบที่คุณ UnKnown บอกครับ

แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

ขอบคุณครับ