รบกวนช่วยเช็คสูตร VBA นี้ให้หน่อยครับ (รวมไฟล์แบบเลือกบางชีท)

[SSitthipan]

รบกวนช่วยเช็คสูตร VBA นี้ให้หน่อยครับ

เนื่องจากผมต้องการรวมไฟล์จำนวน 315 ไฟล์ มาอยู่ในไฟล์เดียวกัน และเลือกเฉพาะชีทที่ชื่อ Booking ครับ

หลังจากใส่สูตรไปแล้วลองรัน ปรากฏว่า ได้มา 630 ไฟล์ ชื่อไฟล์ Booking (จำนวนลำดับตัวเลข) แต่มีข้อสังเกตว่า จะมีชีทหนึ่งที่ซ้ำจำนวน 315 ชีท และเว้นระยะ 2ช่องถัดไปเช่น 1,a,1,b,1,c.....630

ช่วยเช็คว่าต้องแก้สูตรอย่างไรให้ได้ผลลัพธ์เป็น มีชีท Booking

จำนวน 315 ชีทครับ

ขอขอบคุณล่วงหน้านะครับ

Code: Select all

Sub GetSheets()

Path = "C:\Users\**************\"

Filename = Dir(Path & "*.xlsx")

Do While Filename <> ""

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets

Sheets("Booking").Copy After:=ThisWorkbook.Sheets(1)

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub

[logic]

ช่วยทำตามกติกาข้อ 4, 5 มาด้วยครับ

[snasui]

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

Code: Select all

'Other code
For Each Sheet In ActiveWorkbook.Sheets
    If Sheet.Name = "Booking" Then
        Sheets("Booking").Copy After:=ThisWorkbook.Sheets(1)
        Exit For
    End If
Next Sheet
'Other code

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