Macro to fetch csv files

[dhivya.enjoy]

Hi Team,

I need a macro which will get some values from user and on pressing a button i need csv files to be generated automatically. I need to generate some multiple csv files using this macro because we need to upload data in different tables.

Kindly provide me suggestions on below things

1.How to generate csv file from macro
2.How to generate multiple files at a time.

Regards
Dhivya

[littleiitin]

Below is the code for saving workbook as csv for Multiple saving you can use loop

Sub SaveasCSV()
    Dim strPath         As String
    Dim strFileName     As String
    
    strPath = "C:\Users\324954\Desktop\" ' Use your Path
    strFileName = "MyFile" ' Use your File Name
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=strPath & strFileName, _
        FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

[dhivya.enjoy]

Below is the code for saving workbook as csv for Multiple saving you can use loop

Sub SaveasCSV()
    Dim strPath         As String
    Dim strFileName     As String
    
    strPath = "C:\Users\324954\Desktop\" ' Use your Path
    strFileName = "MyFile" ' Use your File Name
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=strPath & strFileName, _
        FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

Hi littleiitin,

Your code perfectly works. Thanks for that. But it replaces the name of my current workbook as sheet2.csv.. or i can say it closes my macro sheet.

How to debug this. I guess something to do with the line below . Please help

   ActiveWorkbook.SaveAs Filename:=strPath & strFileName, _