ต้องการแก้ปัญหา Run-time error '1004'

[Polly]

สวัสดีค่ะ

ขอความช่วยเหลือในการแก้ปัญหา code ที่เจอบัคค่ะ
โจทย์ต้องการดึงข้อมูลจาก PDF วางลงไฟล์ Excel จากนั้นไฟล์ PDF จะปิดลงจากโค้ดดังกล่าวเบื้องต้นสามารถวางได้ปกติค่ะ แต่ที่พบและอยากให้ช่วยปรับคือ เมื่อ User ใช้งานจากไฟล์อื่นโดยก๊อบปี้ไฟล์ค้างไว้ หรือการเลือก copy ที่ไฟล์นี้แต่ไม่ได้ paste ให้เรียบร้อย เมื่อคลิกรันอีกทีจะทำให้พบ error ซึ่งทำให้เกิด popup แจ้ง Run-time error '1004' PasteSpecial method of Range class failed ค้างที่สเต็ป paste special ค่ะ

หากมีวิธีทางแก้ไขขอรบกวนด้วยค่ะ ขอบคุณล่วงหน้าค่ะ

Code: Select all

Sub Extract_Data_from_PDF()


Application.Cells.Clear

Application.CutCopyMode = False
Worksheets("ExtractPDF").Activate

Range("A:A").Clear



Set MyWorksheet = ActiveWorkbook.Worksheets("ExtractPDF")
Application_Path = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
PDF_Path = "\\internal.local\Shares\Dept\MISNonAgencyRobot\Bancassurance\Monthly_Approval_Report\2023\202304\Compensation\Sample.pdf"



Shell_Path = Application_Path & " """ & PDF_Path & """"
Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus)

Application.Wait Now + TimeValue("0:00:03")

'SendKeys "%vpc"
SendKeys "^a"
SendKeys "^c"

Worksheets("ExtractPDF").Activate
Range("A1").PasteSpecial Paste:=xlPasteAll

Call Shell("TaskKill /IM AcroRd32.exe", vbHide)

End Sub

[snasui]

ในเครื่องผมไม่มี Acrobat Reader ทีจะช่วยทดสอบให้ได้ครับ

จาก

เมื่อ User ใช้งานจากไฟล์อื่นโดยก๊อบปี้ไฟล์ค้างไว้ หรือการเลือก copy ที่ไฟล์นี้แต่ไม่ได้ paste ให้เรียบร้อย เมื่อคลิกรันอีกทีจะทำให้พบ error ซึ่งทำให้เกิด popup แจ้ง Run-time error '1004' PasteSpecial method of Range class failed ค้างที่สเต็ป paste special ค่ะ

ไม่ทราบว่ากรณีเช่นนี้ต้องการให้แสดงผลเช่นไร สมมุติไม่ต้องการให้แสดง Error สามารถใช้ Statement On Error Resume Next ดักเอาไว้ในบรรทัดบน ๆ เพื่อปิด Error

ถ้าหากต้องการให้ปิดการ Copy ค้างเอาไว้ก่อนที่จะรัน Code นี้ให้ใช้ Statement application.cutcopymode = false วางไว้บรรทัดบน ๆ เพื่อยกเลิกการ Copy ค้างไว้

ตำแหน่งที่วาง Code ด้านบน สามารถวางไว้ก่อนบรรทัดการ Clear ข้อมูลได้เลยครับ

[Polly]

เรียนอาจารย์คะ กรณีต้องการปิดการ copy ค้างไว้ค่ะ หลังจากวางคำสั่ง Application.CutCopyMode = False ยังไม่สามารถปิดการ copy ค้างไว้ได้ค่ะ พอกดรันอีกครั้งจะค้างที่ Range("A1").PasteSpecial Paste:=xlPasteAll ตลอด จนต้องปิด PDF และรันใหม่ค่ะ แนบโค้ดมาให้ช่วยดูค่ะ ขอบคุณค่ะ

Code: Select all

Sub Extract_Data_from_PDF()

'On Error Resume Next

Worksheets("ExtractPDF").Activate
Application.CutCopyMode = False
Range("A:A").Clear

Set MyWorksheet = ActiveWorkbook.Worksheets("ExtractPDF")
Application_Path = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
PDF_Path = "\\internal.local\Shares\Dept\MISNonAgencyRobot\Bancassurance\Monthly_Approval_Report\2023\202304\Compensation\Sample.pdf"

Shell_Path = Application_Path & " """ & PDF_Path & """"
Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus)

Application.Wait Now + TimeValue("0:00:03")

'SendKeys "%vpc"
SendKeys "^a"
SendKeys "^c"

Worksheets("ExtractPDF").Activate
Range("A1").PasteSpecial Paste:=xlPasteAll

'Call Shell("TaskKill /F /IM AcroRd32.exe", vbHide)
Call Shell("TaskKill /IM AcroRd32.exe", vbHide)

End Sub

[snasui]

ลอง Debug โดยไป Break ที่บรรทัด Worksheets("ExtractPDF").Activate จากนั้นสั่ง Run Code ถ้าทำการ Break ถูกต้องบรรทัดสีหลืองใน Code จะต้องมาหยุดอยู่ที่บรรทัดดังกล่าว จากนั้นลองเข้าไปดูที่ Clipboard ว่ามีค่าใด ๆ อยู่หรือไม่ หาก Code ทำงานถูกต้องจะต้องมีค่าใน Clipboard ถ้าไม่มีค่าใด ๆ แสดงว่าการ Copy มาโดย SendKeys ไม่ได้ผล เมื่อ Copy ไม่ได้ผลก็ไมมีค่าที่จะวางจึงทำให้เกิด Error ครับ

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

[Polly]

อาจารย์คะ เปลี่ยนไปใช้โค้ดนี้แทนแล้วค่ะ เมื่อลองทดสอบเปิด workbook ใหม่และกด copy ค้างไว้ สามารถวางได้ไม่พบ error แล้วค่ะ
ขอบคุณสำหรับความกรุณาค่ะอาจารย์

Code: Select all

'On Error Resume Next

Worksheets("Control").Activate
Application.CutCopyMode = False
Range("A:A").Clear

Set MyWorksheet = ActiveWorkbook.Worksheets("Control")
Application_Path = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
PDF_Path = "\\internal.local\Shares\Dept\MISNonAgencyRobot\Bancassurance\Monthly_Approval_Report\2023\202304\Compensation\Sample.pdf"

Shell_Path = Application_Path & " """ & PDF_Path & """"
Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus)

Application.Wait Now + TimeValue("0:00:03")
SendKeys "^a"
SendKeys "^c"

Workbooks.Open "\\internal.local\Shares\Dept\MISNonAgencyRobot\Bancassurance\Process Improvement\Test.xlsx"
Worksheets("ExtractPDF").Activate
Range("A:A").Clear
Range("A1").Select
Range("A1").PasteSpecial Paste:=xlPasteAll
Call Shell("TaskKill /IM AcroRd32.exe", vbHide)

ActiveWorkbook.Close SaveChanges:=True

End Sub