คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
ลองกำหนด FileFormat เข้าไปด้วยตามด้านล่างครับ
Code: Select all
Sub save_as()
Dim file_name As Variant
file_name = Application.GetSaveAsFilename( _
fileFilter:="Excel 97-2003 Workbook (*.xls), *.xls, All Files (*.*), *.*")
If file_name = False Then Exit Sub
If LCase$(Right$(file_name, 4)) <> ".xls" Then
file_name = file_name & ".xls"
End If
ActiveWorkbook.SaveAs Filename:=file_name, FileFormat:=xlExcel8
End Subsongsug wrote:ใน Excel 2007 การจะเขียนไฟล์ที่มี Macro อยู่นั้น คุณต้องทำการ Save Type ของ File เป็น Excel Macro - Enabled Workbook ก่อนครับไฟล์ถึงจะสมบูรณ์ ไม่เช่นนั้นทุกครั้งที่เปิดไฟล์ขึ้นมา
มาช่วยเสริมครับ กรณีต้องการ Save เป็น 2007 ขึ้นไป หากไม่ Save เป็นนามสกุล .xlsm จะไม่ติด Code VBA หรือ Macro ไปด้วยครับ เมื่อไม่มี Macro จะไม่มีการฟ้องให้ Enable Macro ครับ 