การตั้งค่าให้ Report สามารถ Export Excel ได้

[wisitb]

คือผมเขียน VBA จาก ACCESS ให้สามารถ  openReport ได้ ดังรูป สามารถ export เป็น excel ได้



แต่พอไปเปิดอีกเครื่อง ดันไม่สามารถ export excel ได้ ดังภาพ



ผมเลยคิดว่าไม่น่าจะเกี่ยวกับ vba น่าจะเกี่ยวกับการตั้งค่าที่โปรแกรมหรือต้องลงอะไรเพิ่ม ใครพอมีประสบการณ์รบกวนแสดงความคิดเห็นด้วยครับ
ขอบคุณครับ

[pizza_p]

ถ้าเป็น Access 2007 จะต้องเป็น service pack 2 ขึ้นไปถึงจะมีเมนู export excel ครับ แนะนำให้ติดตั้ง Office 2007 service pack 3 ซึ่งเป็น service pack ล่าสุดไปเลยครับ

[wisitb]

ขอบคุณ คุณ pizza_p เราจะเช็คได้อย่างไรว่าเป็น service pack อะไร และ เราจะสามารถ export to excel ด้วยวิธีอื่นไหม ถ้าไม่อยากติดตั้ง servic pack ใหม่ เช่น เขียน vba ให้แปลงเป็น 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]

มันขึ้นดังภาพครับ

[ปิ่นณรงค์]

มันขึ้นดังภาพครับ

ใส่ชื่อ report ของคุณแทน ReportName คับ ตรงสีแดงที่ตัวอย่างคำสั่ง

[wisitb]

ผมยังไม่ค่อยเข้าใจเลยครับ ผมต้องสร้างฟอร์มสำหรับดึงข้อมูลมาใช่ไหมครับ แล้วเซฟเป็น xxx แล้ว ReportName  = xxx ใช่ไหมครับ

[ปิ่นณรงค์]

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

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



ตัวอย่างด้านล่าง

[wisitb]

ขอบคุณมากครับ ผมทำได้แล้ว

[wisitb]

เมื่อวานผมทำให้สามารถ export excel โดยตรงได้แล้ว แต่พอเปิดอีกเครื่องดันฟ้อง

the format in which you are attempting to output the current object is not avaliable

ไม่แน่ใจว่าผิดที่โปรแกรรมหรือป่าวนะครับ

[ปิ่นณรงค์]

เมื่อวานผมทำให้สามารถ 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]

เห็นลูกค้าบอกมีตัว  AddOn นี้แล้วครับ
และลูกค้าบอกอีกว่า เขาลง win ตัวเดียวกัน ms ตัวเดียวกัน ทั้งสองเครื่อง เครื่องนึงเปิดได้อีกเครื่องเปิดไม่ได

[ปิ่นณรงค์]

เห็นลูกค้าบอกมีตัว  AddOn นี้แล้วครับ
และลูกค้าบอกอีกว่า เขาลง win ตัวเดียวกัน ms ตัวเดียวกัน ทั้งสองเครื่อง เครื่องนึงเปิดได้อีกเครื่องเปิดไม่ได

งั้นลองลบ Code เก่าออก แล้วสร้าง Module ขึ้นมาเอา Code นี้ใส่ลงไป

โค๊ด: [Select]

Public Function ExportToExcel()
On Error GoTo ErrorExport
    DoCmd.OutputTo acOutputReport, Screen.ActiveReport.Name, _
        acFormatXLS, Screen.ActiveReport.Name & ".xls", True
    Exit Function
 
ErrorExport:
    Dim errorDesc, errNo
    erroDesc = Err.Description
    errNo = Err.Number
    MsgBox "พบข้อผิดพลาดระหว่าง Export" & vbCrLf & vbCrLf & _
        "Error No: " & errNo & vbCrLf & vbCrLf & _
        "  Error Desc: " & errDesc, , พบข้อผิดพลาด!"
End Function


ที่ปุ่ม Event Onclick ใส่  Call ExportToExcel
ลองดูครับได้ไหม

ตัวอย่างด้านล่าง

[wisitb]

ชื่อ report ใส่ตรงไหนครับ

[ปิ่นณรงค์]

ชื่อ report ใส่ตรงไหนครับ

อันนี้ เอาไปใส่ไว้ใน Module นะครับ
ไม่ต้องใส่ชื่อ Report มันจะตรวจหาตัวรายงานที่เปิดอยู่  พอเรากดปุ้ม export ก็จะ Export ออกมาให้เลย
ลองดูตัวอย่างที่ผมอัพโหลดไว้ให้นะครับ

[wisitb]

มันขึ้น

[ปิ่นณรงค์]

มันขึ้น

ผมทักข้อความไปนะครับ แอด line มาเดี่ยวผมแก้ให้