ขอรบกวนอาจารย์ด้วยครับ คือผมต้องการโค้ดที่สามารถ Export Data To Excel

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

ขอบคุณครับ

ลองดูตัวอย่างนี้นะครับ ผมสมมุติกำหนด CommandBotton ชื่อ ExportExcel นะครับ

Private Sub ExportExcel_Click()
Dim outputFileName As String
outputFileName = CurrentProject.Path & "\DataName" & " - " & Format(Date, "DDMMYYYY") & ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "targetName", outputFileName, True
End Sub

หมายเหตุ DataName คือชื่อของไฟล์ ที่เราจะกำหนด ต่อท้ายด้วยวันที่ล่าสุด
            Format(Date, "DDMMYYYY")  คือการกำหนดให้มีวันที่ในรูปแบบที่เรากำหนดเองได้ Y คือปี M คือเดือน D คือวัน
            targetName  คือชื่อ Table หรือ Query ที่ต้องการจะ Export