แสดงกระทู้

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.


Messages - wisitb

หน้า: [1]
1
มันขึ้น



ผมทักข้อความไปนะครับ แอด line มาเดี่ยวผมแก้ให้  :grin: :grin:
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb

2
เมื่อวานผมทำให้สามารถ 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 link
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb

3
เอางี้ดีกว่าครับง่ายดี
เปิดรายงานขึ่นมาแล้วกดปุ้ม Export เพื่อให้ Export รายงานให้เราเลย

ที่ Code ให้สังเกตุว่ามีการอ้างถึงชื่อของรายงาน ถ้า รายงานท่านชื่ออื่นก็เอาซื้อมาใส่ให้ตรงกับที่ผม วงไว้




ตัวอย่างด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb

4
ลองดูตัวอย่างนี้นะครับ

เวลาจะกด 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
ถ้าเป็น Access 2007 จะต้องเป็น service pack 2 ขึ้นไปถึงจะมีเมนู export excel ครับ แนะนำให้ติดตั้ง Office 2007 service pack 3 ซึ่งเป็น service pack ล่าสุดไปเลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb

หน้า: [1]