VBA รวมไฟล์ PDF เฉพาะที่กำหนด

[Jirawat namrach]

รบกวนสอบถามหน่อยครับ หากต้องการรวมไฟล์ PDF ตามคอลัมน์ A โดยกำหนดหน้า 1,2..... ตามคอลัมน์ B ต้องแก้ไข Code ยังไงครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
Dim i As Integer

Set Acro_App = New Acrobat.AcroApp
Set Acro_DestDoc = New Acrobat.AcroPDDoc
Set Acro_TargDoc = New Acrobat.AcroPDDoc

For cntr = 2 To Sheet1.Cells(Sheet1.Rows.Count, "a").End(xlUp).Row
    If Sheet1.Range("b" & cntr).Value <> "" Then
        If VBA.Dir(Sheet1.Range("a" & cntr).Value) = "" Then
            MsgBox "File " & Sheet1.Range("a" & cntr).Value & "doesnt exists.."
            Exit Sub
        Else
            ReDim Preserve Select_Files(i)
            Select_Files(i) = Sheet1.Range("a" & cntr).Value
            i = i + 1
        End If
    End If
Next cntr

'    Select_Files = Sheet1.Range("A2:A500").Value
'    Acro_DestDoc.Open (Select_Files(LBound(Select_Files), 1))
Acro_DestDoc.Open (Select_Files(LBound(Select_Files)))
'Other code

[Jirawat namrach]

หลังจากทดสอบ Run แล้ว เกิด Error Run-time error ‘13’ Type mismatch ที่แถวนี้ครับ

Code: Select all

ReDim Preserve Select_Files(i)

รบกวนด้วยครับอาจารย์

[snasui]

แก้การประกาศตัวแปรจาก Dim Select_Files As Variant เป็น Dim Select_Files() As Variant ครับ

[Jirawat namrach]

ส่วนนี้ต้องแก้ไขยังไงครับ เพราะยังติด Error อยู่

Code: Select all

Acro_DestDoc.Open (Select_Files(LBound(Select_Files)))
        For cntr = LBound(Select_Files) + 1 To UBound(Select_Files)

        Acro_TargDoc.Open (Select_Files(cntr, 1))


        If Acro_DestDoc.InsertPages(Acro_DestDoc.GetNumPages() - 1, Acro_TargDoc, 0, Acro_TargDoc.GetNumPages(), True) = True Then
            'MsgBox "Merge in process......"
        End If


    Acro_TargDoc.Close

        Next cntr

[snasui]

ติดบรรทัดไหนกรุณาแจ้งรายละเอียดมาด้วย ผมไม่มี Acrobat ในเครื่องที่ใช้อยู่ในปัจจุบัน ที่ปรับไปให้นั้นเป็น Statement หรือ Logic ที่ Code ควรจะทำงานได้ หากติดส่วนที่เกี่ยวกับ Acrobat ผมไม่สามารถช่วยได้ครับ

[puriwutpokin]

ผมรันแล้วติดบรรทัด นี้ครับ
ลองเปลี่ยนจาก

Code: Select all

Acro_TargDoc.Open (Select_Files(cntr,1))

เป็น

Code: Select all

Acro_TargDoc.Open (Select_Files(cntr))

ดูว่ายังติดไหมครับ ถ้าติดก็ดูว่าติดที่ไหนต่อครับ

[Jirawat namrach]

แก้ไขตามใช้ได้แล้วครับ ขอบคุณทั้งสองท่านมากครับ

[Jirawat namrach]

รบกวนสอบถามเพิ่มเติมครับ เนื่องจากคอมผมเป็น win 11 แล้วผมส่งไฟล์ให้น้องใช้เป็น win10 โปรแกรม Run Error in loading DLL ต้องแก้ไขยังครับ

[snasui]

ในเครื่องที่เกิดปัญหาให้ลองทำตามด้านล่างครับ

1. เปิด Excel > กดแป้น Alt+F11 เพื่อเข้าหน้าต่าง VBE
2. คลิกเมนู Tools > References
3. ตรวจสอบตามภาพว่ามีคำว่า Missing นำหน้ารายการที่ Tick เครื่องหมายถูกอยู่บ้างหรือไม่ (ดูภาพประกอบ) หากมีให้ทำการติดตั้ง DLL ตัวนั้นใหม่หรือเลือกรายการที่ถูกต้องขึ้นมาใช้งานแทน

อ่านเพิ่มเติมที่ https://stackoverflow.com/questions/473 ... oading-dll

[Jirawat namrach]

ลองทำตาม Link ที่อาจารย์ให้มาแล้ว ยังไม่ได้เลยครับ

[snasui]

ปัญหา Error นี้คงต้อง Remote เข้าไปดูโดยตรงในเครื่องที่เป็นปัญหาถึงจะพอแนะนำต่อได้ครับ

[Jirawat namrach]

adobe acrobat 10.0 type library << เครื่องผม
adobe acrobat 8.0 type library << เครื่องน้อง พอติ๊กออกแล้ว พอติ๊กใช้งานอีกไม่ได้เลย Error dll ให้ IT มา Repair Program แล้วก็ไม่ได้ครับ
Adobe acrobat xi V.11.0.07 เหมือนกัน

[snasui]

ควรทำงานด้วย Version เดียวกันจึงจะเปรียบเทียบกันได้ และต้องขออภ้ยที่จะแจ้งว่าผมช่วยได้เท่าที่แนะนำไปแล้วครับ

[Jirawat namrach]

ขอบคุณครับอาจารย์