ทำอย่างไรจึงจะ Save as และ close ไฟล์ Excel หลายๆไฟล์ได้

[Arnon]

ต้องการ Save as เป็นชื่อไฟล์วันเวลา และ close ไฟล์ Excel หลายๆไฟล์ แต่ปัญหาที่เจอคือสามารถปิดได้เพียงทีละ 1 ไฟล์เท่านั้น


Sub Save_and_close_all()
Dim wb As Workbook
Dim sPath As String

'Edit path Here
'=========================================
sPath = "C:\testsave\"
'=========================================

For Each wb In Application.Workbooks
If wb.Name <> ThisWorkbook.Name Then
If InStr(Right(wb.Name, 5), ".xls") > 0 Then
wb.Close SaveChanges:=True
Else
wb.Close SaveChanges:=True, _
Filename:=sPath & Format(Now, " yyyy-mm-dd-hhmm")
End If

End If

Next wb

End Sub

[snasui]

ตัวอย่างการ Save As และปิดไฟล์ตามด้านล่าง ลองปรับใช้ดู ติดตรงไหนสอบถามมาได้เรื่อย ๆ ครับ

Code: Select all

For Each wb In Application.Workbooks
    If wb.Name <> ThisWorkbook.Name Then
        If InStr(Right(wb.Name, 5), ".xls") > 0 Then
            wb.SaveAs Filename:=sPath & Format(Now, " yyyy-mm-dd-hhmm"), FileFormat:=xlWorkbookDefault
            wb.Close
        End If
    End If
Next wb

การโพสต์ Code ให้อ่านกฎการใช้บอร์ดข้อ 5 ด้านบน จะได้สะดวกในการอ่านจากหน้าเว็บเนื่องจากแสดงแตกต่างจากข้อความทั่วไปครับ