Hi all - Would some kind soul please put me out of my misery - worked in XL2003 - but not in XL2010. Have searched forum, but need someone to amend my specific bit of inherited code. Cheers !
Rich (BB code):
'RECORDED FROM A CSV FILE SAVED TO XL
'ChDir "C:\Users\Mark\Desktop"
'ActiveWorkbook.SaveAs Filename:="C:\Users\Mark\Desktop\test.xls", FileFormat _
':=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
'False, CreateBackup:=False
With Application.FileSearch
.LookIn = CSVPath
.Filename = "*.csv"
.Execute
For CSVCount = 1 To .FoundFiles.Count
Set wb = Application.Workbooks.Open(.FoundFiles(CSVCount))
'wb.SaveAs CSVPath & Left(wb.Name, Len(wb.Name) - 4) & ".xls", xlXMLSpreadsheet
wb.SaveAs CSVPath & Left(wb.Name, Len(wb.Name) - 4) & ".xls", xlExcel9795
Last edited by a moderator: