สูตรใน 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
............................................................................
