Page 1 of 1
Copy ไปวางหลายไฟล์ VBA
Posted: Wed Mar 29, 2023 3:41 pm
by Jirawat namrach
ขอคำแนะนำหน่อยครับ คือต้องการ copy ข้อมูล(Test)ไปวางในแต่ละไฟล์ที่กำหนด(170077) แต่ติดปัญหาที่แต่ละไฟล์จำนวน sheet ไม่เท่ากัน และต้อง copy sheet สุดท้ายก่อน (เพิ่ม Revised ถ้าเปลี่ยนชื่อต่อได้ก็ดีครับ) ค่อยนำข้อมูลวางในบรรทัดสุดท้าย ของ Sheet ที่เพิ่ง copy ไปครับ ขอบคุณครับ
Re: Copy ไปวางหลายไฟล์ VBA
Posted: Thu Mar 30, 2023 6:02 am
by 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
Re: Copy ไปวางหลายไฟล์ VBA
Posted: Thu Mar 30, 2023 8:50 am
by 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) ประมาณนี้ครับอาจารย์
Re: Copy ไปวางหลายไฟล์ VBA
Posted: Thu Mar 30, 2023 10:02 am
by snasui
เขียน Code ให้มีการ Copy ชีตขึ้นมาให้ได้ก่อน จากนั้นแนบไฟล์มาใหม่ เพื่อนสมาชิกจะช่วยเหลือในการเลือกชีตสุดท้ายให้ครับ
Re: Copy ไปวางหลายไฟล์ VBA
Posted: Thu Mar 30, 2023 10:38 am
by Jirawat namrach
ตอนนี้ผมได้แก้ไขไประดับหนึ่งแล้วครับ แต่ยังติดที่การแก้ไขชื่อ Sheet ที่ copy มาให้เป็น Revision ถัดไปอัตโนมัติ แทนคำว่า Revised รบกวนอาจารย์แนะนำด้วยครับ
Re: Copy ไปวางหลายไฟล์ VBA
Posted: Thu Mar 30, 2023 10:52 am
by snasui
Jirawat namrach wrote: Thu Mar 30, 2023 10:38 am
แต่ยังติดที่การแก้ไขชื่อ Sheet ที่ copy มาให้เป็น Revision ถัดไปอัตโนมัติ แทนคำว่า Revised
โปรแกรมจะทราบได้อย่างไรว่า Revision ถัดไปคืออะไร พิจารณาจากอะไรหรือดูได้จากที่ไหนครับ
Re: Copy ไปวางหลายไฟล์ VBA
Posted: Thu Mar 30, 2023 11:17 am
by Jirawat namrach
สมมติ ก๊อปชีท B ไปวางแล้วเปลี่ยนเป็น C ได้หรือเปล่าครับ ให้รันต่อจาก ชีทที่ก๊อป
Re: Copy ไปวางหลายไฟล์ VBA
Posted: Thu Mar 30, 2023 11:29 am
by snasui
ไม่ควรสมมุติแต่ควรใช้หลักการทำงานจริง ๆ จะได้เขียนตามหลักการนั้นครับ
ตัวอย่างการ Code สำหรับการกำหนดชื่อชีตให้รันไปตามตัวอักษรเมื่อต้องการเรียงไปตามตัวอักษร ใช้ Code ตามด้านล่างครับ
- ประกาศตัวแปรและกำหนดค่าให้กับต้วแปร
Code: Select all
dim shName as Variant
shName = vba.split("A,B,C,D,...,Z",",")
... แทนชื่อที่เหลือที่ต้องเขียนให้ครอบคลุมที่จำเป็นต้องใช้
- นำไปใช้เมื่อต้องการให้ชื่อกับชีตล่าสุด
Code: Select all
activesheet.name = shName(activesheet.index - 1)
shName เป็น Array เริ่มลำดับแรกที่ลำดับ 0
activesheet.index คือลำดับชีตปัจจุบัน
การที่นำลำกับชีตปัจจุบันไปลบออกด้วย 1 เพื่อให้ตรงกับลำดับของ shName ที่เริ่มด้วย 0 เพราะต้องใช้สมาชิกของ shName ในลำดับนั้นมาเป็นชื่อชีต
Re: Copy ไปวางหลายไฟล์ VBA
Posted: Thu Mar 30, 2023 1:41 pm
by 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
Re: Copy ไปวางหลายไฟล์ VBA
Posted: Thu Mar 30, 2023 1:50 pm
by snasui
ตัวอย่างการปรับ Code เพื่อเข้าถึงชีตสุดท้ายของไฟล์นั้น ๆ ครับ
With sbook.Worksheets(sbook.Worksheets.count)