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 / : การตั้งค่าให้ Report สามารถ Export Excel ได้
« เมื่อ: 04 ก.ค. 61 , 11:10:36 »เมื่อวานผมทำให้สามารถ export excel โดยตรงได้แล้ว แต่พอเปิดอีกเครื่องดันฟ้อง
the format in which you are attempting to output the current object is not avaliable
ไม่แน่ใจว่าผิดที่โปรแกรรมหรือป่าวนะครับ
Windows ของท่านเป็น Version อะไร Service Pack อะไรคับ
วิธีการดูว่า Windows เวอร์ชันใด ที่หน้าจอหลัก(Desktop) ให้กด แป้นโลโก้ Windows + R แล้วพิมพ์ winver แล้วเลือก ตกลง
ลองติดตั้ง AddIn ตัวนี้แล้วปิดโปรแกรมเปิดใหม่ แล้วลองกด Export ดูนะครับ
https://download.microsoft.com/download/0/f/2/0f2d9941-22df-4778-80f2-57f629de3c46/SaveAsPDFandXPS.exe
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb
3
ห้อง MS Access / : การตั้งค่าให้ Report สามารถ Export Excel ได้
« เมื่อ: 28 มิ.ย. 61 , 16:01:20 »
เอางี้ดีกว่าครับง่ายดี
เปิดรายงานขึ่นมาแล้วกดปุ้ม Export เพื่อให้ Export รายงานให้เราเลย
ที่ Code ให้สังเกตุว่ามีการอ้างถึงชื่อของรายงาน ถ้า รายงานท่านชื่ออื่นก็เอาซื้อมาใส่ให้ตรงกับที่ผม วงไว้
ตัวอย่างด้านล่าง
เปิดรายงานขึ่นมาแล้วกดปุ้ม Export เพื่อให้ Export รายงานให้เราเลย
ที่ Code ให้สังเกตุว่ามีการอ้างถึงชื่อของรายงาน ถ้า รายงานท่านชื่ออื่นก็เอาซื้อมาใส่ให้ตรงกับที่ผม วงไว้
ตัวอย่างด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb
4
ห้อง MS Access / : การตั้งค่าให้ Report สามารถ Export Excel ได้
« เมื่อ: 28 มิ.ย. 61 , 10:12:30 »
ลองดูตัวอย่างนี้นะครับ
เวลาจะกด Export คุณอาจจะนำ คำสั่งนี้ต่อท้ายไปตอนกดเปิดรายงานนะครับ
วิธีใช้คือ ที่ปุ่มกดเปิดรายงาน
ใส่ Call ExportExcel()
ตัวอย่างคำสั่งครับ
Sub ExportExcel()
Dim strReportName As String
Dim strPathOUT As String
Dim OpenTarget As Object
Set OpenTarget = CreateObject("Shell.Application")
strReportName = "ReportName"
strPathOUT = CurrentProject.Path & "\ " & strReportName & ".xls"
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strPathOUT
OpenTarget.Open (strPathOUT)
End Sub
หมายเหตุ ReportName คือชื่อของ Report ที่เราจะ Export ออกไปเป็น Excel นะครับ
เวลาจะกด Export คุณอาจจะนำ คำสั่งนี้ต่อท้ายไปตอนกดเปิดรายงานนะครับ
วิธีใช้คือ ที่ปุ่มกดเปิดรายงาน
ใส่ Call ExportExcel()
ตัวอย่างคำสั่งครับ
Sub ExportExcel()
Dim strReportName As String
Dim strPathOUT As String
Dim OpenTarget As Object
Set OpenTarget = CreateObject("Shell.Application")
strReportName = "ReportName"
strPathOUT = CurrentProject.Path & "\ " & strReportName & ".xls"
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strPathOUT
OpenTarget.Open (strPathOUT)
End Sub
หมายเหตุ ReportName คือชื่อของ Report ที่เราจะ Export ออกไปเป็น Excel นะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb
5
ห้อง MS Access / : การตั้งค่าให้ Report สามารถ Export Excel ได้
« เมื่อ: 27 มิ.ย. 61 , 18:43:51 »
ถ้าเป็น Access 2007 จะต้องเป็น service pack 2 ขึ้นไปถึงจะมีเมนู export excel ครับ แนะนำให้ติดตั้ง Office 2007 service pack 3 ซึ่งเป็น service pack ล่าสุดไปเลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb
หน้า: [1]