Page 1 of 1
ต้องการแก้ปัญหา Run-time error '1004'
Posted: Tue May 30, 2023 4:48 pm
by 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
Re: ต้องการแก้ปัญหา Run-time error '1004'
Posted: Tue May 30, 2023 5:23 pm
by snasui
ในเครื่องผมไม่มี Acrobat Reader ทีจะช่วยทดสอบให้ได้ครับ
จาก
Polly wrote: Tue May 30, 2023 4:48 pm
เมื่อ 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 ข้อมูลได้เลยครับ
Re: ต้องการแก้ปัญหา Run-time error '1004'
Posted: Wed May 31, 2023 10:12 am
by 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
Re: ต้องการแก้ปัญหา Run-time error '1004'
Posted: Wed May 31, 2023 10:28 am
by snasui
ลอง Debug โดยไป Break ที่บรรทัด
Worksheets("ExtractPDF").Activate จากนั้นสั่ง Run Code ถ้าทำการ Break ถูกต้องบรรทัดสีหลืองใน Code จะต้องมาหยุดอยู่ที่บรรทัดดังกล่าว จากนั้นลองเข้าไปดูที่ Clipboard ว่ามีค่าใด ๆ อยู่หรือไม่ หาก Code ทำงานถูกต้องจะต้องมีค่าใน Clipboard ถ้าไม่มีค่าใด ๆ แสดงว่าการ Copy มาโดย
SendKeys ไม่ได้ผล เมื่อ Copy ไม่ได้ผลก็ไมมีค่าที่จะวางจึงทำให้เกิด Error ครับ
ขอแจ้งให้ทราบว่า กรณีเป็นการทำงานร่วมกับโปรแกรมอื่นใดที่นอกเหนือจากโปรแกรมพื้นฐานที่ติดมากับเครื่อง Computer ผมอาจจะไม่สามารถช่วยเหลือได้มากนัก เพราะผมไม่มีโปรแกรมนั้นครับ
Re: ต้องการแก้ปัญหา Run-time error '1004'
Posted: Wed May 31, 2023 12:00 pm
by 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