SaveAs sheet not active workbook

austin350s10

Active Member
Joined
Jul 30, 2010
Messages
321
I have a project I am working on where I would like to save one of the sheets in my workbook as a .csv document. Below is the code I am currently using:

Code:
Sub myExport_Click()

Dim ws As Worksheet
Set ws = Worksheets("Export")
ws.SaveAs Filename:="myExport", FileFormat:=6

End Sub

This script does take the export sheet and saves it as the file named myExport.csv. The problem I am having is when I run this script the active workbook is also renamed to export.csv. I would like to leave the active workbook intact. What am I doing wrong here?
 

Excel Facts

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).
I have a project I am working on where I would like to save one of the sheets in my workbook as a .csv document. Below is the code I am currently using:

Code:
Sub myExport_Click()

Dim ws As Worksheet
Set ws = Worksheets("Export")
ws.SaveAs Filename:="myExport", FileFormat:=6

End Sub

This script does take the export sheet and saves it as the file named myExport.csv. The problem I am having is when I run this script the active workbook is also renamed to export.csv. I would like to leave the active workbook intact. What am I doing wrong here?


That is because this line: ws.SaveAs Filename:="myExport", FileFormat:=6 is replacing the current workbook name

Try the following:

Code:
Sub myExport_Click()

Dim sPath as String
Dim sFile as String

sPath = ThisWorkbook.Path & "\"
sFile = "My Export" & ".csv"

Active Workbook.SaveAs = sPath & sFile

End Sub
 
Upvote 0

Forum statistics

Threads
1,213,536
Messages
6,114,208
Members
448,554
Latest member
Gleisner2

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
Back
Top