Macro to save current tab as CSV

[biglb79]

is there a macro someone could help me write that would take the current tab and save it down into the folder on this path using the current tab's name as a CSV file?

H:\SAP JEs

 

[DanteAmor]

Try this

Sub Macro1()
  Dim wPath As String, wFile As String
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  wPath = "H:\SAP JEs\"
  wFile = ActiveSheet.Name & ".csv"
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs Filename:=wPath & wFile, FileFormat:=xlCSV, CreateBackup:=False
  ActiveWorkbook.Close False
End Sub

 

[biglb79]

that worked perfect! thanks so much!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.

 

[biglb79]

do you know why it would be erroring out if I just deleted some of the data or changed some of it? I would think that the file would still save as a CSV file

Sub Macro1()
Dim wPath As String, wFile As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
wPath = "H:\SAP JEs\"
wFile = ActiveSheet.Name & ".csv"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=wPath & wFile, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close False
End Sub

 

[DanteAmor]

do you know why it would be erroring out if I just deleted some of the data or changed some of it? I would think that the file would still save as a CSV file

I don't understand the question, can you explain?

 

[biglb79]

I don't understand the question, can you explain?

it was having the debugger come up. I changed the tab name and it worked so perhaps it had a name that it didn't like? I thought it was maybe because a version of that CSV was already saved out there but it still did it after I deleted the file. when I clicked on debug the bold line above was highlighted

 

[DanteAmor]

it was having the debugger come up. I changed the tab name and it worked so perhaps it had a name that it didn't like? I thought it was maybe because a version of that CSV was already saved out there but it still did it after I deleted the file. when I clicked on debug the bold line above was highlighted

It may be that he had a reserved word or some symbol that is not allowed. Or the file was open.
What did the error say?
What did you have of name on the sheet?

 

[biglb79]

It may be that he had a reserved word or some symbol that is not allowed. Or the file was open.
What did the error say?
What did you have of name on the sheet?

I can't remember what it said but the tab was payroll 11.21.2019 and when I took out the periods it worked just like before so maybe that's why?

 

[DanteAmor]

Para la siguiente, cambia el nombre del 21.11.2019 a 21-11-2019