ใช้ access export เป็น excel แล้ว error error เฉพาะบางเครื่อง
Posted: Wed Nov 06, 2019 8:30 am
คือผมเขียน vba ใน access ให้ export เป็น excel โดยให้ save ไว้ที่ไดว์ D แต่เปิดกับบางเครื่องมันฟ้อง error ตาม link ด้านล่าง
https://www.picz.in.th/image/gUkPBy
ส่วนโค้ด vba ก็
Function ExportToExcel()
Dim targetOut As String
targetOut = "D:\Book1.xls" 'ระบุตำแหน่งที่ต้องการ Export ออกไป
DoCmd.TransferSpreadsheet acExport, 10, "Export1Sheet1", targetOut, True, "Sheet1"
MsgBox "ได้ Export File Excel ไปที่ " & targetOut & " แล้ว", vbInformation, "แจ้ง"
End Function
ผมต้องแก้โค้ดหรือป่าวครับ หรือว่าไป set อะไรที่ไหนเพิ่ม ขอบคุณครับบ
https://www.picz.in.th/image/gUkPBy
ส่วนโค้ด vba ก็
Function ExportToExcel()
Dim targetOut As String
targetOut = "D:\Book1.xls" 'ระบุตำแหน่งที่ต้องการ Export ออกไป
DoCmd.TransferSpreadsheet acExport, 10, "Export1Sheet1", targetOut, True, "Sheet1"
MsgBox "ได้ Export File Excel ไปที่ " & targetOut & " แล้ว", vbInformation, "แจ้ง"
End Function
ผมต้องแก้โค้ดหรือป่าวครับ หรือว่าไป set อะไรที่ไหนเพิ่ม ขอบคุณครับบ
กรุณาคีย์ Code ให้แสดงเป็น Code ดูตัวอย่างได้ที่กฎการใช้บอร์ดข้อ 5 ด้านบนครับ