Macro to save csv to xls

    Is there any macro that can automatically save a opened CSV file to XLS ( prompts you for the location to save like a file save dialogue window ) and rename the 1st Sheetname to "OPEN" ?

    Re: Macro to save csv to xls


    Like?

    Code
    Dim SaveName As String


ActiveSheet.Name = "OPEN"
SaveName = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Filename:=SaveName, FileFormat:=xlWorkbookNormal

    Barrie Davidson
    My Excel Web Page
    "You're only given a little spark of madness. You mustn't lose it." - Robin Williams

    Re: Macro to save csv to xls


    it doesn't work.... the workbook i am working on is a csv file. I need to be able to save it to a xls .


    And rename the sheetname to open.


    I cannot upload the file.. it says "invalid file format "

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login