รบกวนสอบถามการรวมไฟล์ Excel ครับ

[vichaim]

ตอนนี้ผมเขียน VBA ให้รวมไฟล์ 2 ไฟล์ให้อยู่ในไฟล์ใหม่ได้ แต่ติดตรงแยก Sheets ของแต่ละ Sheets ไม่ได้ครับ คือผมสั่งให้รวมกันเลย แต่จะแยกออกไม่รูํ้จะเขียนยังไงดี รบกวนผู้รู้ทุกท่านขอแนวทางและเทคนิคหน่อยครับ

ผมได้แนบไฟล์มาให้ 4 ไฟล์ โดยตัวโปรแกรมอยู่ที่ ไฟล์ชื่อ รวมไฟล์ Excel.xls แล้วก็ไฟล์ที่ใช้ Test 2 ไฟล์ และไฟล์ผลลัพธที่ต้องการ รบกวนด้วยครับผม

[vichaim]

แนบ 4 ไฟล์ไม่ได้ต้องแยกออกมา 1 ไฟล์ครับ

[snasui]

ช่วยปลดรหัสไฟล์โปรแกรมแล้วแนบมาใหม่ครับ

[vichaim]

ขออภัยด้วยครับ

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

[snasui]

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

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

Code: Select all

'---Other code
For Each sh In thisBook.Worksheets
    sh.UsedRange.Copy
    With ob.Sheets(sh.Name)
        .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End With
    'rRow = ob.Sheets(1).UsedRange.Rows.Count + 1 '¶éÒ +2 ¨Ðä´éÂÍ´ Total ÂÍ´ÊØ´·éÒÂÁÒ´éÇÂ
    Application.CutCopyMode = False
Next sh
'---Other code

[vichaim]

Code เดิมใช้สำหรับ รวมทุก Sheets ของไฟล์ที่เลือกมาไว้ใน ตัว Excel ที่รวมไฟล์ครับ ซึ่งไม่มีปัญหาอะไรถ้าจะใช้งานแบบนั้น แต่อยากจะให้อยากตาม Sheets ตามต้นฉบับ ผมนึกไม่ออกครับ แต่ดูจาก Code ที่อาจารย์ปรับ ยังไม่เข้าใจเท่าไร เดี่ยวลองไปทำความเข้าใจดูครับ ขอบคุณครับผม

[shikamaru]

ผมสอบถามเพิ่มเติมครับ จาก Code การรวมไฟล์นี้ หากชื่อ Sheet ของไฟล์ที่จะมารวมกันไม่เหมือนกัน
จะทำการรวมทุก sheet ในไฟล์งานแรก มาก่อนแล้วค่อยต่อข้อมูล ของทุก sheet ในไฟล์ที่ 2 ที่เรามารวมกัน
แต่หากชื่อ sheet ไฟล์ที่ 1 และ 2 เหมือนกัน ก็จะนำข้อมูลมาเรียงต่อกันให้ปกติครับ

แต่อยากทราบว่า กรณี ที่ชื่อ sheet ไม่ต้องกันทั้ง ไฟลที่ 1 และ 2 ผมควรแก้ไขตรงไหนครับ

[snasui]

ต้องการแก้เป็นอย่างไร ช่วยอธิบายมาอย่างละเอียดครับ

โปรดทราบว่าทุกการแก้จะต้องเขียนมาเองก่อน ติดตรงไหนแล้วค่อยถามกันต่อจนกว่าจะหมดปัญหาครับ

[shikamaru]

สอบถามต่อครับอาจารย์
ความต้องการคือ นำข้อมูลในไฟล์ Test 1 , Test 2 และ Test 3 มารวมกันในไฟล์เดียวโดยข้อมูลที่รวมกันจะแยก Sheet กันครับ

จากการทดสอบ Code รวมไฟล์
1. ถ้า ไฟล์ Test 1, Test 2 และ Test 3 ชื่อ Sheet เหมือนกัน ก็จะรวมข้อมูลให้แยกตาม sheet ครับ
2. ถ้า ไฟล์ Test 1, Test 2 และ Test 3 ชื่อ Sheet ไม่เหมือนกัน ก็จะรวมข้อมูลให้
โดยที่จะนำข้อมูลของทุก Sheet ในไฟล์ Test 1, มารวมกันก่อน แล้วตามด้วย ข้อมูลของทุก sheet ในไฟล์ถัดไป โดยไม่แยก sheet

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

[shikamaru]

ไฟล์ Code ครับ

[snasui]

ไฟล์ที่มี Code นามสกุลไฟล์ต้องไม่ใช่ .xlsx แต่ควรเป็น .xlsm เป็นต้น ลองแนบมาใหม่ครับ

[shikamaru]

ผมแนบไฟล์ code ใหม่มาให้อาจารย์ครับ

[snasui]

ผมทดสอบแล้ว Code สำหรับลบชีตสามารทำงานได้ ไม่ทราบว่าติดปัญหาที่บรรทัดใด หรือ กรณีใด ช่วยให้รายละเอียดเพิ่มเติมด้วยครับ

[shikamaru]

สำหรับ Code ที่ใช้ลบ Sheet ความต้องการ คือ เมื่อทำการกดปุ่มลบ Sheet เลือกไฟล์ Test 1 และ Test 2 แล้ว
ให้ Code ทำการลบ Sheet1 และ Sheet2 ในไฟล์ Test 1 และ Test 2 ออกจากไฟล์ โดยที่ไฟล์ Test 1 และ Test 2 จะเหลือแค่ Sheet 1 เท่านั้น

[snasui]

ตัวอย่าง Code การลบ Sheet โดยหากชื่อเป็นอย่างอื่นไม่ใช่ "Sheet1" จะลบทิ้งทั้งหมดครับ

Code: Select all

Dim i As Integer, strThisbook As Variant

strThisbook = Application.GetOpenFilename(Filefilter:= _
 "All File (*.*), *.*", Title:="Please select source file(s).", MultiSelect:=True)
        
If TypeName(strThisbook) = "Boolean" Then
        'MsgBox "Please select file(s)."
        Exit Sub
End If

Application.DisplayAlerts = False
For i = 1 To UBound(strThisbook)
        Set thisBook = Workbooks.Open(strThisbook(i))
        Application.ScreenUpdating = False
        For Each sh In thisBook.Worksheets
            If sh.Name <> "Sheet1" Then
                sh.Delete
            End If
        Next sh
        thisBook.Close True
Next i
Application.DisplayAlerts = True

[shikamaru]

ใช้ได้แล้วครับอาจารย์
ขอบคุณมาก ๆ เลยครับอาจารย์

[Jeab01]

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

[snasui]

หลักการคือประกาศตัวแปรและกำหนดค่าให้ตัวแปรนั้นเป็นชื่อชีตทั้งหมดที่ต้องการให้รวม

เมื่อมีการ Loop ไปในแต่ละชีตของแต่ละไฟล์ก็ต้องไปตรวจสอบเพิ่มว่า ชีตนั้น ๆ มีอยู่ในตัวแปรข้างต้นหรือไม่ หากอยู่ในตัวแปรข้างต้นจึงค่อยดำเนินการต่อ

การจะถามแล้วให้ได้คำตอบเป็น Code จะต้องถามพร้อม Code ที่เขียนมาเองแล้ว ผู้ตอบจะได้เห็นว่าทำมาถึงไหน จะได้ตอบต่อไปจากนั้น ทุกคำถามจะต้องมีการเขียนมาเองก่อนแล้วเสมอครับ