ACCESS สามารถสร้างปุ่มส่งข้อมูลไป Excel ได้ไหมครับ

[SSukHaveq]

คือ ผมทราบว่าปกติเราสามารถ นำข้อมูลเข้าออก จาก access ไป excel ได้โดยการเลือก external data เเละไปที่ excel
เเต่อยากทราบว่าเราสามารถสร้างปุ่มไว้ใน ฟอร์ม เเล้วเขียน VBA ให้นำข้อมูลเข้าหรือออก จาก access ไป excel ได้รึเปล่าครับ

ถ้าสามารถทำได้ต้องเขียนโค้ดยังไงบ้างครับ ขอคำเเเนะนำด้วยครับ

[PNR]

ส่งออกไป excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "ชื่อตารางหรือคิวรี่", "ระบุตำแหน่งไฟล์และตั้งชื่อไฟล์ที่Exportออกไป", True, "ชื่อsheetที่ต้องการ"
ตัวอย่าง
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "table1", "E:\Myexport.xls", True, "SheetData1"


นำเข้า จาก Excel to Access
หลักการคล้ายๆ กันครับเปลี่ยนจาก acExport มาเป็น acImport
เช่น
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Importเข้าTableไหน", "ตำแหน่งไฟล์และชื่อไฟล์ที่จะนำเข้า", True
ตัวอย่าง
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "MyTable", "E:\MyImport.xls", True

acSpreadsheetType นั้นลองเช็คดูนะครับ ว่าของท่านใช้ Excel รุ่นไหน

acSpreadsheetTypeExcel8      Microsoft Excel 97 format
acSpreadsheetTypeExcel9      Microsoft Excel 2000 format
acSpreadsheetTypeExcel12      Microsoft Excel 2010 format
acSpreadsheetTypeExcel12Xml   Microsoft Excel 2010/2013/2016 XML format (.xlsx, .xlsm, .xlsb)

[SSukHaveq]

ขอบคุณสำหรับคำเเนะนำครับ จะลองนำไปใช้ดูครับ