Macro to convert data to text and save as csv file

[pip67]

Hi Guys,

I am trying to get a macro that highlights the active worksheet (can have many rows of data from 1 to 20k) then converts the data to Text and the the user is prompted to save the workbook as a csv file with a different name each time.

Any help is most appreciated as I have a limited knowledge of vb.

Thanks again

Pip

 

[Domenic]

Wouldn't the following suffice?

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Sub[/color] SaveAsCSV()

    [color=darkblue]Dim[/color] strFileName [color=darkblue]As[/color] [color=darkblue]Variant[/color]

    strFileName = Application.GetSaveAsFilename( _
        InitialFileName:=ActiveWorkbook.Name, _
        Filefilter:="Comma Seperated Files (*.csv), *.csv", _
        Title:="Save As")
        
    [color=darkblue]If[/color] strFileName = [color=darkblue]False[/color] [color=darkblue]Then[/color] [color=darkblue]Exit[/color] [color=darkblue]Sub[/color]
        
    ActiveWorkbook.SaveAs Filename:=strFileName, _
            FileFormat:=xlCSV, CreateBackup:=[color=darkblue]False[/color]
            
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]

 

[pip67]

Hi thanks for you reply it works perfectly. One quick question if I may. where in the code could I place something that would format the entire worksheet to Text format if at all possible?

Sorry to be a pain and thanks again!!

 

[Domenic]

You can place this line of code at the beginning...

Cells.NumberFormat = "@"

 

[pip67]

Hi Domenic,

Thats absolutely brilliant thanks for your help and have a good week!!!!

Cheers
Pip