คิวรี่ไม่สามารถจัดกึ่งกลางเวลา export ได้ครับ
แต่เราสามารถใช้ การเขียนโค๊ดเปิดไฟล์ที่ Export ไปแล้ว มาแก้ไขเช่นจัดกึ่งกลาง ทำให้เนื้อหาพอดีกับคอลั่มน์ได้ครับเช่น
Private Sub export_Click()
Dim objExcelApp As Excel.Application
Dim wb As Excel.Workbook
Dim sht As Object
Dim sFilename As String
sFilename = "E:\ExportedResults1.xls" 'เลือกตำแหน่งของไฟล์ที่ต้องการ Export และ เปิดมาแก้ไข
DoCmd.OutputTo acOutputQuery, "ชื่อคิวรี่", acFormatXLS, sFilename 'โค้ดสั่ง Export ตามโค๊ดเดิมของท่านได้เลย
Set objExcelApp = Excel.Application
Set wb = objExcelApp.Workbooks.Open(sFilename)
Set sht = wb.Worksheets(1)
objExcelApp.Visible = True
sht.Columns("A:W").HorizontalAlignment = xlCenter 'กำหนดให้ column A ถึง W ของ Sheet จัดกึ่งกลาง จะเอาถึงคอลั่มน์ไหนก็กำหนดเอาได้เลย
sht.Columns("A:W").EntireColumn.AutoFit 'กำหนดให้คอลัมน์พอดีกับข้อมูล
wb.Save 'สั่งบันทึก
wb.Close 'สั่งปิดไฟล์
objExcelApp.Quit 'สั่งจบการทำงาน
Set objExcelApp = Nothing
End Sub
