snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
With ws
.Unprotect Password:="SumProduct"
.Protect Password:="SumProduct", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Next ws
Application.ScreenUpdating = True
End Sub
สูตรแยก ไฟล์ ครับ
Sub test()
Dim n As Integer
For n = 1 To Sheets.Count - 1
Windows("ใช้ตามชื่อไฟล์.xlsm").Activate
ActiveSheet.Select
ActiveSheet.Move
Next n
End Sub
สูตรแยก ไฟล์ ครับ
Sub test()
Dim n As Integer
For n = 1 To Sheets.Count - 1
Windows("book1.xlsm").Activate
ActiveSheet.Select
ActiveSheet.Move
Next n
End Sub
You do not have the required permissions to view the files attached to this post.
Sub test()
Dim n As Integer
For n = 1 To Sheets.Count - 1
Windows("ใช้ตามชื่อไฟล์.xlsm").Activate
ActiveSheet.Select
ActiveSheet.Move
Application.VBE.ActiveVBProject.VBComponents.import "C:\test\Module1.bas"
Next n
End Sub
Sub test()
Dim fName As String
Dim n As Integer
fName = "Module1.bas"
ThisWorkbook.VBProject.VBComponents("Module1").Export fName
For n = 1 To Sheets.Count - 1
ThisWorkbook.Activate
ActiveSheet.Select
ActiveSheet.Move
ActiveWorkbook.VBProject.VBComponents.Import fName
Next n
End Sub
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
โปรดทราบ 
