Macro to save worksheet name as filename

barklek

New Member
Joined
Jan 24, 2005
Messages
3
Everymonth I receive quite a lot of workbooks, with a number of worksheet in them I am new to VBA and I am currently trying to write a macro to export the worksheet and use the worksheet name to save as the filename. What command line do I use for the filename

ActiveWorkbook.SaveAs Filename:=
 

Excel Facts

When they said...
When they said you are going to "Excel at life", they meant you "will be doing Excel your whole life".

mikebecker

Board Regular
Joined
Mar 28, 2004
Messages
227
barklek said:
Everymonth I receive quite a lot of workbooks, with a number of worksheet in them I am new to VBA and I am currently trying to write a macro to export the worksheet and use the worksheet name to save as the filename. What command line do I use for the filename

ActiveWorkbook.SaveAs Filename:=

Try:

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> WS_Name()
    
WS = ActiveSheet.Name
    
ActiveWorkbook.SaveAs FileName:= _
    "C:\YOUR_Path_HERE\" & WS & ".xls"

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
 

barklek

New Member
Joined
Jan 24, 2005
Messages
3
How do I save it as a CSV file, I need to do this to upload into another system
 

barklek

New Member
Joined
Jan 24, 2005
Messages
3
Thanks Mike it worked just fine, I am just learning and I know this will save me lots of time in the long run but it is a struggle to start off with

this was the code I was using and it did not work
WS = ActiveSheet.Name
ActiveWorkbook.SaveAs Filename:= "H:\test\" & WS & ".CSV" _
fileFormat:=xlCSV, CreateBackup:=False
 

Forum statistics

Threads
1,147,846
Messages
5,743,520
Members
423,801
Latest member
paulj4177

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top