Replace the following two lines in the code
FileProperties(2).Value = "9,0,ANSI,1"
sExt = ".txt"
sExt = ".txt"
With these
FileProperties(2).Value = "44,34,ANSI"
sExt = ".csv"
sExt = ".csv"
This then creates a comma seperated file with .csv extention for each tab within the spreadsheet.
CSV macro... Done
No comments:
Post a Comment