ต้องการ Export Data To Excel โดยสามารถกำหนดชื่อไฟล์อัตโนมัติ



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

25 มิ.ย. 61 , 16:19:44
อ่าน 724 ครั้ง

Anupap

  • สมาชิกไท.Access
  • กระทู้: 4

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

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

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

ขอบคุณครับ

 

25 มิ.ย. 61 , 20:12:48
ตอบกลับ #1

ปิ่นณรงค์

ขอรบกวนอาจารย์ด้วยครับ คือผมต้องการโค้ดที่สามารถ 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
« แก้ไขครั้งสุดท้าย: 25 มิ.ย. 61 , 20:15:31 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: Anupap

26 มิ.ย. 61 , 14:38:59
ตอบกลับ #2

Anupap

  • สมาชิกไท.Access
  • กระทู้: 4

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

ขอรบกวนอาจารย์ด้วยครับ คือผมต้องการโค้ดที่สามารถ 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

ได้แล้วครับ ขอบคุณอาจารย์มาก ๆ ครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย