G
Guest
I have an application that we copy information into and then need to save it
as a CSV file. I have written the simple code below that does exactly what I
need it to. The user does not need to have the current file or the saved
file open when completed. I have a button they click and the file saves and
closes.
Can anyone tell me how to change to code to allow the user to pick the name
and path of where they would like it to be saved? The way I have it setup if
the path does not exist I get an error.
Also, if the file they were coping from was open and always the same name is
there a way I could get this file to copy the information and paste it. I
would also need to have some type of if error resume so if they did not have
the file open.
Any help will be appreciated.
Private Sub United_Click()
Sheets("Census Data").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\Cindy\Desktop\Census Export Files\United.csv", FileFormat _
:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
End Sub
as a CSV file. I have written the simple code below that does exactly what I
need it to. The user does not need to have the current file or the saved
file open when completed. I have a button they click and the file saves and
closes.
Can anyone tell me how to change to code to allow the user to pick the name
and path of where they would like it to be saved? The way I have it setup if
the path does not exist I get an error.
Also, if the file they were coping from was open and always the same name is
there a way I could get this file to copy the information and paste it. I
would also need to have some type of if error resume so if they did not have
the file open.
Any help will be appreciated.
Private Sub United_Click()
Sheets("Census Data").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\Cindy\Desktop\Census Export Files\United.csv", FileFormat _
:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
End Sub