Saving file as .csv VBA

[sh1ne]

Hello,

got problem, can somebody help me? How can I save file as .csv by macro in current folder? I would like to avoid defining file path to save because it will be different in every case.

Another question - how can I grab string from cell(A1) and put it in the name of saved workbook as prefix?

Thanks.

 

[Joe4]

ActiveWorkbook.Path will return the path that the current file is in.

If you turn on your Macro Recorder, and record yourself saving as a "CSV", you will have the VBA code that you need for that.

So here is an example of saving the file to the current directory as a CSV file, using cell A1 as the file name:

    Dim fName As String
    fName = ActiveWorkbook.Path & "\" & Range("A1") & ".csv"
    ActiveWorkbook.SaveAs Filename:=fName, _
        FileFormat:=xlCSV, CreateBackup:=False