สูตรใน Macro
Dim FolderPath As String
FolderPath = Application.ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:= _
FolderPath & "\2.xlsm", FileFormat:=52, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
FolderPath & "\2.xlsx", FileFormat:=51, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
FolderPath & "\2", FileFormat:=xlCSV, CreateBackup:=False
............................................................................
แปล
วิธีการ
1. เริ่มจากมี File 1 File ซึ่งเราจะเขียน Macro ไว้ในนั้น ในที่นี้ได้แก่ File 1.xlsm
2. เปิดส่วนของการสร้าง Macro
Copy สูตรไปแปะตามรูป
3. ทดสอบ Macro โดยสั่ง Run ตามรูป
4. ผลที่ได้จาก Run Macro จะมี File เพิ่มขึ้นมา 3 File ได้แก่ 2.csv , 2.xlsm และ 2.xlsx
............................................................................
ข้อแตกต่างของ File หลังจาก Save
............................................................................
