Export file to Excel แบบหลายชีท

[attapong]

สวัสดีครับ
ผมอยากทราบว่า เราสามารถ export file to excel แบบหลายชีทได้มั้ยครับ โดยให้ 1 ชีท ต่อ 1 row ครับ

เช่น มีผมมีข้อมูลอยู่ 10 แถวrecord อยากให้ export ออกมาเป็น 10 ชีท โดย sheet name = 1,2,3,4 ไปเรื่อยๆ จนครบตามจำนวนแถวข้อมูล
และแต่ละชีทข้อมูลเริ่มต้นที่ range A5 ครับ

พอจะแนะนำหรือตัวอย่าง code VBA ให้หน่อยครับ

ขอบพระคุณมากครับ

[nonc31]

                            Dim expXLS, Sheet1, Sheet2, Sheet3, Sheet4, ไปเรื่อยๆ As String
                            expXLS = "D:\test.xls"
                            Sheet1 = "ตาราง/คิวรี่1"
                            Sheet2 = "ตาราง/คิวรี่2"
                            Sheet3 = "ตาราง/คิวรี่3"
                            Sheet4 = "ตาราง/คิวรี่4"
                            ไปเรื่อยๆ.............
                            DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet1, expXLS, True
                            DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet2, expXLS, True
                            DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet3, expXLS, True
                            DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet4, expXLS, True
                            DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, ไปเรื่อยๆ, expXLS, True

[attapong]

ขอบคุณอาจารย์มากครับ
แล้วถ้าผมต้องการ Export โดยให้แต่ละ feild ไปอยู่ตาม range ต่างๆของ excel แบบนี้ (ช่องสีเหลือง) และจำนวนชีท = จำนวน record ต้องเขียนยังไงครับ
ผมแนบไฟล์ access และตัวอย่างไฟล์ export ที่ต้องการมาให้ด้วยครับ

อยากได้โค้ดแบบวนจนครบข้อมูลใน table ครับ

[nonc31]

ใช้สูตรใน Excel เลยครับ  อย่าให้เดือดร้อน Access เลย   

[พีระณัฐ สุขกำเนิด]

คิดว่าคงจะประมาณนี้

[พีระณัฐ สุขกำเนิด]

แนวคิดหาจำนวน record แล้วสร้างสคริปต์เพื่อสร้างคิวรี่ให้ครบตามจำนวน record ที่มี จากนั้นเขียน code เพื่ออ่านข้อมูลทีละเรคคอร์ดไปพักไว้อีกตารางนึง แล้วส่งออก excel ทีละ record/sheet

[พีระณัฐ สุขกำเนิด]