I have code to export a sheet as a csv
I will import one file at a time and selectb the macto to export sheet as a csv
I would like the csv filename to be be the same as the text in A6 followed by .csv for e.,g. WLTI.csv
I will import one file at a time , select the macro to export sheet as a csv and then import the next week
Your assistance in amending my code is most appreciated
I will import one file at a time and selectb the macto to export sheet as a csv
I would like the csv filename to be be the same as the text in A6 followed by .csv for e.,g. WLTI.csv
I will import one file at a time , select the macro to export sheet as a csv and then import the next week
Your assistance in amending my code is most appreciated
Code:
Sub Export_Imported_Sheet_As_CSV()
Application.DisplayAlerts = False
Dim Sht As Worksheet
Set Sht = Worksheets("Statement")
Sht.Copy
ActiveWorkbook.SaveAs Filename:="C:\extract\BRTI.CSV", FileFormat _
:=xlCSV
ActiveWorkbook.Close
Application.DisplayAlerts = True
end Sub
Last edited: