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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

27 มิ.ย. 61 , 18:00:09
อ่าน 1262 ครั้ง

wisitb

  • สมาชิกไท.Access
  • กระทู้: 9

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

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



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



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

 

27 มิ.ย. 61 , 18:43:51
ตอบกลับ #1

pizza_p

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #1 เมื่อ: 27 มิ.ย. 61 , 18:43:51 »
ถ้าเป็น Access 2007 จะต้องเป็น service pack 2 ขึ้นไปถึงจะมีเมนู export excel ครับ แนะนำให้ติดตั้ง Office 2007 service pack 3 ซึ่งเป็น service pack ล่าสุดไปเลยครับ

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

28 มิ.ย. 61 , 08:27:01
ตอบกลับ #2

wisitb

  • สมาชิกไท.Access
  • กระทู้: 9

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #2 เมื่อ: 28 มิ.ย. 61 , 08:27:01 »
ขอบคุณ คุณ pizza_p เราจะเช็คได้อย่างไรว่าเป็น service pack อะไร และ เราจะสามารถ export to excel ด้วยวิธีอื่นไหม ถ้าไม่อยากติดตั้ง servic pack ใหม่ เช่น เขียน vba ให้แปลงเป็น excel

« แก้ไขครั้งสุดท้าย: 28 มิ.ย. 61 , 08:28:32 โดย wisitb »

 

28 มิ.ย. 61 , 10:12:30
ตอบกลับ #3

ปิ่นณรงค์

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #3 เมื่อ: 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 นะครับ
« แก้ไขครั้งสุดท้าย: 28 มิ.ย. 61 , 11:30:06 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb

28 มิ.ย. 61 , 11:56:57
ตอบกลับ #4

wisitb

  • สมาชิกไท.Access
  • กระทู้: 9

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #4 เมื่อ: 28 มิ.ย. 61 , 11:56:57 »
มันขึ้นดังภาพครับ




 

28 มิ.ย. 61 , 12:08:22
ตอบกลับ #5

ปิ่นณรงค์

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #5 เมื่อ: 28 มิ.ย. 61 , 12:08:22 »
มันขึ้นดังภาพครับ


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

28 มิ.ย. 61 , 15:11:54
ตอบกลับ #6

wisitb

  • สมาชิกไท.Access
  • กระทู้: 9

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #6 เมื่อ: 28 มิ.ย. 61 , 15:11:54 »
ผมยังไม่ค่อยเข้าใจเลยครับ ผมต้องสร้างฟอร์มสำหรับดึงข้อมูลมาใช่ไหมครับ แล้วเซฟเป็น xxx แล้ว ReportName  = xxx ใช่ไหมครับ

 

28 มิ.ย. 61 , 16:01:20
ตอบกลับ #7

ปิ่นณรงค์

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #7 เมื่อ: 28 มิ.ย. 61 , 16:01:20 »
เอางี้ดีกว่าครับง่ายดี
เปิดรายงานขึ่นมาแล้วกดปุ้ม Export เพื่อให้ Export รายงานให้เราเลย

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




ตัวอย่างด้านล่าง
« แก้ไขครั้งสุดท้าย: 29 มิ.ย. 61 , 22:05:15 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb

02 ก.ค. 61 , 10:37:12
ตอบกลับ #8

wisitb

  • สมาชิกไท.Access
  • กระทู้: 9

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #8 เมื่อ: 02 ก.ค. 61 , 10:37:12 »
ขอบคุณมากครับ ผมทำได้แล้ว

 

04 ก.ค. 61 , 10:16:50
ตอบกลับ #9

wisitb

  • สมาชิกไท.Access
  • กระทู้: 9

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #9 เมื่อ: 04 ก.ค. 61 , 10:16:50 »
เมื่อวานผมทำให้สามารถ export excel โดยตรงได้แล้ว แต่พอเปิดอีกเครื่องดันฟ้อง

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

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

 

04 ก.ค. 61 , 11:10:36
ตอบกลับ #10

ปิ่นณรงค์

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #10 เมื่อ: 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 link
« แก้ไขครั้งสุดท้าย: 04 ก.ค. 61 , 11:13:49 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb

04 ก.ค. 61 , 11:22:10
ตอบกลับ #11

wisitb

  • สมาชิกไท.Access
  • กระทู้: 9

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #11 เมื่อ: 04 ก.ค. 61 , 11:22:10 »
เห็นลูกค้าบอกมีตัว  AddOn นี้แล้วครับ
และลูกค้าบอกอีกว่า เขาลง win ตัวเดียวกัน ms ตัวเดียวกัน ทั้งสองเครื่อง เครื่องนึงเปิดได้อีกเครื่องเปิดไม่ได

 

04 ก.ค. 61 , 11:52:00
ตอบกลับ #12

ปิ่นณรงค์

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #12 เมื่อ: 04 ก.ค. 61 , 11:52:00 »
เห็นลูกค้าบอกมีตัว  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
ลองดูครับได้ไหม

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

04 ก.ค. 61 , 15:27:19
ตอบกลับ #13

wisitb

  • สมาชิกไท.Access
  • กระทู้: 9

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #13 เมื่อ: 04 ก.ค. 61 , 15:27:19 »
ชื่อ report ใส่ตรงไหนครับ

 

04 ก.ค. 61 , 15:37:39
ตอบกลับ #14

ปิ่นณรงค์

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #14 เมื่อ: 04 ก.ค. 61 , 15:37:39 »
ชื่อ report ใส่ตรงไหนครับ
อันนี้ เอาไปใส่ไว้ใน Module นะครับ
ไม่ต้องใส่ชื่อ Report มันจะตรวจหาตัวรายงานที่เปิดอยู่  พอเรากดปุ้ม export ก็จะ Export ออกมาให้เลย
ลองดูตัวอย่างที่ผมอัพโหลดไว้ให้นะครับ

:love: :grin:
 

04 ก.ค. 61 , 15:49:21
ตอบกลับ #15

wisitb

  • สมาชิกไท.Access
  • กระทู้: 9

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: การตั้งค่าให้ Report สามารถ Export Excel ได้
« ตอบกลับ #15 เมื่อ: 04 ก.ค. 61 , 15:49:21 »
มันขึ้น



 


บอร์ดเรียนรู้ Access สำหรับคนไทย