สอบถาม VBA - คัดลอก Sheet ไปยัง Workbook อื่น

[PPtip]

รบกวนตรวจสอบสูตร vba สำหรับคัดลอก Sheet ไปยัง Workbook อื่น ให้ทีครับ

้คือผม ต้องการดึง Sheet สุดท้ายจาก workbook ของแต่ละสาขา ไปร่วมกันที่ workbook เดียว ซึ่งจากสูตรด้านล่าง ผลที่ได้ คือ Sheet ของทุกเอกสาร ถูกดึงมาหมด ไม่ทราบว่าจะไหนที่ผมต้องแก้ไขครับ

**Sheet สุดท้ายของแต่ละไฟล์จะชื่อว่า Sum-BKE, Sum-PYT, Sum-(รหัสสาขา)**

Sub Button1_Click()

Dim directory As String, fileName As String, sheet As Worksheet, total As Integer

Application.ScreenUpdating = False
Application.DisplayAlerts = False

directory = "L:\Pong\Test\"
fileName = Dir(directory & "*.xlsx")

Do While fileName <> ""

Workbooks.Open (directory & fileName)

For Each sheet In Workbooks(fileName).Worksheets
total = Workbooks("test.xlsm").Worksheets.Count
Workbooks(fileName).Worksheets(sheet.Name).Copy _
After:=Workbooks("test.xlsm").Worksheets(total)
Next sheet

Workbooks(fileName).Close

fileName = Dir()

Application.ScreenUpdating = True
Application.DisplayAlerts = True

Loop

End Sub

รบกวนด้วยครับ

[bank9597]

โพส Code ให้เป็นรูปแบบ Code ก่อนครับ

และหากมีไฟล์ตัวอย่างด้วย จะดีมากครับ

[snasui]

โพส Code ให้เป็นรูปแบบ Code ก่อนครับ

อ่านกฎข้อ 5 ด้านบนประกอบครับ

[PPtip]

ต้องขอโทษจริงๆ ครับ ที่ไม่ได้โพส Code ให้เป็นรูปแบบ Code ตอนนี้ผมแก้ปัญหาโดยการเขียน Code ซ้ำหลายๆ รอบ แทนการเขียน loop แล้ว

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

ขอบคุณครับ

[snasui]

ลองศึกษาจาก Excel 2013 Power Programming with VBA ของ John Walkenbach ครับ

ผมไม่ได้อ่านหนังสือไทยเลยไม่สามารถแนะนำหนังสือไทยได้ คงต้องรอเพื่อนสมาชิกท่านอื่นๆ ครับ

[DhitiBank]

ลองศึกษาจาก Excel 2013 Power Programming with VBA ของ John Walkenbach ครับ

ขอบคุณครับอาจารย์ เดี๋ยวจะลองหามาอ่านดูครับ (ที่จริงก็เจอแล้ว แต่เป็นเวอร์ชั่น 2010 คงไม่เหมาะหากเอามาแจกใช่ไหมครับ)

[snasui]

หากนำมาแจกเกรงว่าจะเป็นการละเมิดลิขสิทธิ์จะกระทบกับฟอรัมได้ครับ

[DhitiBank]

นั่นสิครับ เพราะเห็นใน Amazon ขายเล่มละ 24$ - 39$