สูตรใน Macro
Dim strSourceFile As String
Dim strSourceDirectory As String
Dim counter As Long
Dim FolderPath As String
FolderPath = Application.ActiveWorkbook.path
strSourceDirectory = FolderPath & "\New folder\"
strSourceFile = Dir(strSourceDirectory & "new" & ".xlsx")
Do While strSourceFile <> ""
Name strSourceDirectory & strSourceFile As strSourceDirectory & Replace$(strSourceFile, ".xlsx", ".csv")
counter = counter + 1
strSourceFile = Dir()
Loop
............................................................................
แปล
วิธีการ
1. เริ่มจากมี File 2 File
File แรก ชื่อ 1.xlsm เอาไว้เขียน Macro
File 2 ชื่อ new.xlsx อยู่ใน Folder New Folder ซึ่งกำลังจะเปลี่ยนนามสกุลให้เป็น .csv
 |
| File 1 คือ 1.xlsm |
 |
| File 2 คือ new.xlsx อยู่ใน New Folder |
2. เปิดส่วนของการสร้าง Macro ใน File 1.xlsm
Copy สูตรไปแปะตามรูป
3. ทดสอบ Macro โดยสั่ง Run ตามรูป
4. หลังจาก Run นามสกุล File เปลี่ยนจาก .xlsx เป็น .csv
............................................................................
