Snasui Excel Forum

รบกวนตรวจสอบสูตร 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

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

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

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

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

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

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

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

ขอบคุณครับ

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

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

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

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

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

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