Copy ไปวางหลายไฟล์ VBA

[Jirawat namrach]

ขอคำแนะนำหน่อยครับ คือต้องการ copy ข้อมูล(Test)ไปวางในแต่ละไฟล์ที่กำหนด(170077) แต่ติดปัญหาที่แต่ละไฟล์จำนวน sheet ไม่เท่ากัน และต้อง copy sheet สุดท้ายก่อน (เพิ่ม Revised ถ้าเปลี่ยนชื่อต่อได้ก็ดีครับ) ค่อยนำข้อมูลวางในบรรทัดสุดท้าย ของ Sheet ที่เพิ่ง copy ไปครับ ขอบคุณครับ

[snasui]

อ่านแล้วเข้าใจว่าต้องการเพิ่มชีตที่ชื่อ Revised ของไฟล์ปลายทางก่อนที่จะนำข้อมูลไปวาง

ตัวอย่าง Code การเพิ่มชีตและให้ชื่อเป็น Revised ดูตามด้านล่างครับ

Code: Select all

'Other code
If upbook.Sheets("UP").Range("B2") > 0 Then
    Set sbook = Workbooks.Open("C:\Users\Lenovo\Desktop\UP BOM\" & Range("B2") & ".xlsx", UpdateLinks:=False)
    With sbook
        .Worksheets.Add after:=.Worksheets(.Worksheets.Count)
        ActiveSheet.Name = "Revised"
    End With
'        Sheets(Sheets.Count).Select
End If
'Other code

[Jirawat namrach]

ขอโทษครับอาจารย์ที่อธิบายไม่ละเอียด สิ่งที่ต้องการคือ
>> เปิดไฟล์ 170077 ใน Column B2 ของไฟล์ Test sheet("up")
>> copy sheet สุดท้ายของไฟล์ 170077 (แต่ละไฟล์มีจำนวน sheet ไม่เท่ากัน ไล่ตั้งแต่ A,B,C.... )
>> วาง sheet ที่ copy ในไฟล์ 170077
>> เปลี่ยนชื่อ sheet ที่วางเป็นชื่อถัดไป (copy C มา เปลี่ยนเป็น D)
>> copy ข้อมูลในไฟล์ Test sheet("up") C2:S2 วางในบรรทัดสุดท้ายของไฟล์ 170077 sheet D
>> ปิด Save
>> วนกลับไปเปิดไฟล์ต่อไป ใน Column B3 แล้วทำเหมือนกัน
แต่ไฟล์อื่น sheet สุดท้ายอาจจะเป็น Y ก็ copy Y แล้วเปลี่ยนชื่อเป็น Z ซึ่ง ไฟล์ที่ต้องการให้เปิดจะอยู่ใน Column B ของไฟล์ Test sheet(up) ประมาณนี้ครับอาจารย์

[snasui]

เขียน Code ให้มีการ Copy ชีตขึ้นมาให้ได้ก่อน จากนั้นแนบไฟล์มาใหม่ เพื่อนสมาชิกจะช่วยเหลือในการเลือกชีตสุดท้ายให้ครับ

[Jirawat namrach]

ตอนนี้ผมได้แก้ไขไประดับหนึ่งแล้วครับ แต่ยังติดที่การแก้ไขชื่อ Sheet ที่ copy มาให้เป็น Revision ถัดไปอัตโนมัติ แทนคำว่า Revised รบกวนอาจารย์แนะนำด้วยครับ

[snasui]

แต่ยังติดที่การแก้ไขชื่อ Sheet ที่ copy มาให้เป็น Revision ถัดไปอัตโนมัติ แทนคำว่า Revised

โปรแกรมจะทราบได้อย่างไรว่า Revision ถัดไปคืออะไร พิจารณาจากอะไรหรือดูได้จากที่ไหนครับ

[Jirawat namrach]

สมมติ ก๊อปชีท B ไปวางแล้วเปลี่ยนเป็น C ได้หรือเปล่าครับ ให้รันต่อจาก ชีทที่ก๊อป

[snasui]

ไม่ควรสมมุติแต่ควรใช้หลักการทำงานจริง ๆ จะได้เขียนตามหลักการนั้นครับ

ตัวอย่างการ Code สำหรับการกำหนดชื่อชีตให้รันไปตามตัวอักษรเมื่อต้องการเรียงไปตามตัวอักษร ใช้ Code ตามด้านล่างครับ

1. ประกาศตัวแปรและกำหนดค่าให้กับต้วแปร

   Code: Select all

   dim shName as Variant
   shName = vba.split("A,B,C,D,...,Z",",")

   ... แทนชื่อที่เหลือที่ต้องเขียนให้ครอบคลุมที่จำเป็นต้องใช้
2. นำไปใช้เมื่อต้องการให้ชื่อกับชีตล่าสุด

   Code: Select all

   activesheet.name = shName(activesheet.index - 1)

shName เป็น Array เริ่มลำดับแรกที่ลำดับ 0
activesheet.index คือลำดับชีตปัจจุบัน
การที่นำลำกับชีตปัจจุบันไปลบออกด้วย 1 เพื่อให้ตรงกับลำดับของ shName ที่เริ่มด้วย 0 เพราะต้องใช้สมาชิกของ shName ในลำดับนั้นมาเป็นชื่อชีต

[Jirawat namrach]

สร้าง Sheet ได้ตามต้องการแล้วครับ แต่ติด Error ครับ รบกวนด้วยครับอาจารย์

Code: Select all

                sbook.Sheets(cnt).Copy after:=Sheets(cnt)
                ActiveSheet.Name = shName(ActiveSheet.Index - 1)

            End With
    End If
    
        With sbook.Worksheets("Revised") <<< ติดตรงนี้ครับ
            For Each r In rAll
                If upbook.Sheets("UP").Range("b4") > 0 Then
                    l = .Range("d" & .Rows.Count).End(xlUp).Offset(1, 0).Row
                    For i = 0 To UBound(aRs)
                        .Range(aTg(i) & l).Value = r.Parent.Cells(r.Row, aRs(i)).Value
                    Next i
                End If

[snasui]

ตัวอย่างการปรับ Code เพื่อเข้าถึงชีตสุดท้ายของไฟล์นั้น ๆ ครับ

With sbook.Worksheets(sbook.Worksheets.count)