Auto Copy Excel To Access
Posted: Wed Oct 14, 2020 9:28 am
ขออนุญาต ผู้ดูแลระบบ
ผมจะทำปุ่ม Auto Copy จาก Excel มา Access แต่ตอนนี้ติดปัญหาไม่ยอม Copy รบกวนท่านผู้รู้ช่วยชี้แนะให้ทีครับ
Private Sub Command0_Click()
DoCmd.OpenQuery "0Q"
DoCmd.DeleteObject acTable, "sheet1"
Dim PPath As String
PPath = Application.CurrentProject.Path & "\"
DoCmd.TransferSpreadsheet acImport,8,"sheet1",PPath&"book1.xlsx",true,""
DoCmd.OpenQuery "Sheet1AppendQ"
DoCmd.OpenTable "Alarm"
DoCmd.GoToRecord , , acLast
End Sub
ขอบคุณครับ
ผมจะทำปุ่ม Auto Copy จาก Excel มา Access แต่ตอนนี้ติดปัญหาไม่ยอม Copy รบกวนท่านผู้รู้ช่วยชี้แนะให้ทีครับ
Private Sub Command0_Click()
DoCmd.OpenQuery "0Q"
DoCmd.DeleteObject acTable, "sheet1"
Dim PPath As String
PPath = Application.CurrentProject.Path & "\"
DoCmd.TransferSpreadsheet acImport,8,"sheet1",PPath&"book1.xlsx",true,""
DoCmd.OpenQuery "Sheet1AppendQ"
DoCmd.OpenTable "Alarm"
DoCmd.GoToRecord , , acLast
End Sub
ขอบคุณครับ
กรณีที่เป็นการเชื่อมข้อความ ตรงบรรทัดที่เกิด Error เครื่องหมาย & กับอักขระอื่น ๆ ไม่ควรเขียนติดกัน เพราะจะกลายเป็นการแปลง Data type ของค่านั้นเป็น Long ครับ