โค้ด Export Excel file เปลี่ยนฟร้อน

[Earth]

อยากสอบถามโค้ดเปลียนฟร้อนExcel เมื่อExport ออกมาแล้วค่ะ
ตอนนี้โค้ดExportนี้อยู่ค่ะ

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Stockcard", outputFileName, True
พอExport มาได้ฟร้อนเป็นแบบนี้ 


มีวิธไหนเปลี่ยนฟร้อนได้บ้างคะ

[ปิ่นณรงค์]

สามารถทำได้ครับ แต่คงต้องใช้วิธี กด Export ก่อนแล้ว ทำการซ่อนไว้ก่อนจากนั้นก็ใช้การเขียน code แก้ไข Font และ ขนาดของฟ้อนอีกทีนึง แล้วค่อย Call .....  เข้ามา อีกทีนึงเดี่ยวผมว่างๆ จะลองทำดูให้นะครับ

[ปิ่นณรงค์]

สวัสดีครับผมได้ทำตัวอย่างการ Export File Excel แล้วให้มีการเปลี่ยน รูปแบบของฟ้อนตามที่เราต้องการ
โดยผมจะยังใช้ไฟล์ตัวเดิมมายกตัวอย่างนะครับ
สามารถกำหนดได้ดังนี้ครับ

โค๊ด: [Select]

Private Sub ExportExcel_Click()   'เมื่อกด export
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "QuerySelect_Type", "C:\QuerySelect_Type.xls", True
'ตรง QuerySelect_Type คือชื่อของ table หรือ Query ที่จะ Export
'ส่วน "C:\QuerySelect_Type.xls" คือตำแหน่งของไฟล์ที่ Export จะนำไปเก็บไว้สามารถเปลี่ยนชื่อได้
Call changefont  'เรียกใช้ชุดคำสั่ง
MsgBox "ได้ทำการ Export ข้อมูลและเปลี่ยนรูปแบบฟ้อนที่กำหนดแล้ว!!" , vbOKOnly, "แจ้ง"
End Sub
Sub changefont()
Dim XLapp As Object, sheet As Object
Set XLapp = CreateObject("Excel.Application")
XLapp.Workbooks.Open ("C:\QuerySelect_Type.xls") '<<<< ระบุตำแหน่งของไฟล์ที่ export ไปไว้เพื่อเปิดมาแก้ไข
Set sheet = XLapp.ActiveWorkbook.Sheets(1)
With sheet.Cells.Font
     .Name = Me.ListFont
     .FontStyle = "Regular"    '<<<< ตัวหนาก็ใส่ Bold ตัวบางก็ Regular
     .Size = Me.FontSize       
     .Strikethrough = False 'เขียนเส้นทับ true ใช่ false ไม่ใช่
          End With
  XLapp.TransitionNavigKeys = False
  XLapp.ActiveWorkbook.Close True
End Sub



[ปิ่นณรงค์]

รูปแบบนี้จะสร้าง combobox รายการของ ฟอนต์ และขนาดฟอนต์ก่อนกด Export เพื่อความสะดวก ในการใช้งานครับ
รูปตัวอย่างด้านล่างครับ และตัวอย่างไฟล์ครับ

[Earth]

ถ้าที่อยู่ที่เราSAVE ไฟล์ กำหนดไว้แบบนี้
outputFileName = CurrentProject.Path & "\Stock" & Format(Date, "yyyyMMdd") & "_" & strReportName & ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Stockcard", outputFileName, True

*******************************************************

- เลยแก้ไขตรง*ระบุตำแหน่งของไฟล์ที่ export ไปไว้เพื่อเปิดมาแก้ไข เป็นoutputFileName แทน เหมือนข้างล่าง ต้องใส่ยังไงคะ ถึงไม่เออเร่อค่ะ
- ส่วนตรงฟร้อน เราสามารถระบุชื่อฟร้อนไปเลยได้ไหมคะ ขนาดด้วย ดังโค้ดด้านล่างค่ะ


Sub changefont()
Dim XLapp As Object, sheet As Object
Set XLapp = CreateObject("Excel.Application")
outputFileName = CurrentProject.Path & "\Stock" & Format(Date, "yyyyMMdd") & "_" & strReportName & ".xls"
XLapp.Workbooks.Open outputFileName 'ระบุตำแหน่งของไฟล์ที่ export ไปไว้เพื่อเปิดมาแก้ไข
Set sheet = XLapp.ActiveWorkbook.Sheets(1)
With sheet.Cells.Font
     .Name = "Angsana New" 'ระบุไปเลยได้ไหมคะ
     .FontStyle = "Regular" 
     .Strikethrough = False
          End With
  XLapp.TransitionNavigKeys = False
  XLapp.ActiveWorkbook.Close True
End Sub

[ปิ่นณรงค์]

XLapp.Workbooks.Open outputFileName 'ระบุตำแหน่งของไฟล์ที่ export ไปไว้เพื่อเปิดมาแก้ไข
ตรงนี้กำหนดไปที่ตัวไฟล์ที่ Export ออกไปแล้ว
แต่คำสั่ง outputFileName = CurrentProject.Path & "\Stock" & Format(Date, "yyyyMMdd") & "_" & strReportName & ".xls" คือคำสั่งตอน Export ครับ วิธีการง่ายๆคือ Export ออกไปแล้วไฟล์ไปอยู่ตรงไหนก็ระบุตำแหน่งไฟล์ และชื่อไฟล์มาใส่ครับ

ส่วนชื่อฟ้อน ถ้าไม่อยากจะเลือกหลายๆแบบ อยากกำหนดไปเลยทำได้คับ

With sheet.Cells.Font
     .Name = "Angsana New" 'ระบุฟอนต์
     .FontStyle = "Regular"     'ระบุตัวหนา หรือบาง Regular กับ Bold
     .Size = 16           'ระบุขนาดฟ้อนต์   
     .Strikethrough = False
          End With

[Earth]

Export ออกไปแล้วไฟล์ไปอยู่ตรงไหนก็ระบุตำแหน่งไฟล์ และชื่อไฟล์มาใส่

>>>ถ้าตรงนี้เรากำหนดตั้งแต่Export มาแล้วว่าให้ไฟล์Export มันจะอยู่ตำแหน่งเดียวกับไฟล์ที่สร้าง
เพราะถ้านำไปใช้กับเครื่องอื่น ผู้ใช้อาจนำไฟล์ไปไว้คนละตำแหน่งเช่น D:, C:
มีวิธีไหนจะระบุแบบไม่ฟิกซ์ แล้วตามไฟล์ที่exportมาบ้างคะ

>>> ส่วนชื่อไฟล์ มีการนำฟิลด์ในQueryมาใส่ด้วยค่ะ  มันจึงฟิกซ์เป็นชื่อไม่ได้
** ตรง  strReportName = [TYPE]

[Earth]

แบบนี้ค่ะ

[Earth]

รบกวนช่วยดูให้หน่อยนะคะ

[ปิ่นณรงค์]

โค๊ด: [Select]

Private Sub ExportExcel_Click()
Dim outputFileName As String
outputFileName = CurrentProject.Path & "\Stock" & Format(Date, "yyyyMMdd") & "_" & strReportName & ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "StockCard", outputFileName, True
Call changefont
MsgBox "ได้ Export ข้อมูลไปไว้ที่  " & outputFileName & ".", vbOKOnly, "แจ้ง"
End Sub


Sub changefont()
Dim XLapp As Object, sheet As Object
Set XLapp = CreateObject("Excel.Application")
XLapp.Workbooks.Open Application.CurrentProject.Path & "\Stock" & Format(Date, "yyyyMMdd") & "_" & strReportName & ".xls"
Set sheet = XLapp.ActiveWorkbook.Sheets(1)
With sheet.Cells.Font
        .Name = "Angsana New"
     .FontStyle = "Regular"
     .Size = 16
     End With
     XLapp.TransitionNavigKeys = False
XLapp.ActiveWorkbook.Close True
End Sub

น่าจะแบบนี้ครับ
XLapp.Workbooks.Open Application.CurrentProject.Path & "\Stock" & Format(Date, "yyyyMMdd") & "_" & strReportName & ".xls"

ตรง strReportName จะตั้งเป็นชื่อ Combobox ที่เลือกประเภท TYPE บนฟอร์มแทนก็ได้นะครับ

XLapp.Workbooks.Open Application.CurrentProject.Path & "\Stock" & Format(Date, "yyyyMMdd") & "_" & Me.Cmbtype & ".xls"

ตัวอย่างด้านล่าง

[Earth]

ลองทำตามแล้วค่ะ เออเร่อตรงSub changefont() ค่ะ

[ปิ่นณรงค์]

ลองเปลี่ยนจาก Me.Type_cmb เป็น strReportName ได้ไหมคับ
เดี่ยวผมดูให้

[Earth]

ไม่ได้เหมือนกันเลยค่ะ

[ปิ่นณรงค์]

ไม่ได้เหมือนกันเลยค่ะ

Me.Type_cmb คือชื่อ Combobox ที่เลือก Type ในหน้าฟอร์มนั้นหรือเปล่าครับ / หรือถ้าสะดวกส่งไฟล์ มาที่เมล pinnarong1115@hotmail.com เดี่ยวผมดูให้

[Earth]

มะกี้ลองใหม่ได้แล้วค้า เรียกcomboboxจากหน้าฟอร์ม


ขอบคุณมากๆๆๆเลยนะคะ