1
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
หน้า: [1]
2
ห้อง MS Access / : Export file to Excel แบบหลายชีท
« เมื่อ: 20 ก.พ. 66 , 21:37:40 »
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
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
หน้า: [1]