Macro to save mutliple sheets as CSV - no file extension on files

[alex0182828]

Im using the below code on Excel mac but the files are created without any file extension can anyone help add .csv
Please also can i put the date in the file name like 280223 for the 28th feb 23 in front of the workbook name.

Thanks. ALex

Sub asdf()
Dim ws As Worksheet, newWb As Workbook

Application.ScreenUpdating = False
For Each ws In Sheets(Array("EID Upload", "Wages with Locals Upload", "Wages without Local Upload"))
   ws.Copy
   Set newWb = ActiveWorkbook
   With newWb
      .SaveAs ws.Name, xlCSV
      .Close (False)
   End With
Next ws
Application.ScreenUpdating = True

End Sub

 

[Micron]

File is saved with extension in pc; I'm not familiar with Mac. Are you sure that your settings are set to not show extensions for known types? What happens when you try to open the created file? If it opens, then maybe no problem (or check settings). As for date in file, perhaps add
Dim strName As String
and alter this part

   Set newWb = ActiveWorkbook
   strName = Format(Day(Date), "00") & Format(Month(Date), "00") & Year(Date) & ws.Name
   With newWb
      .SaveAs strName, xlCSV
      .Close (False)
   End With

 

[alex0182828]

Thanks code is great for date in file. I had to add & ".csv" to the end to get the extension correct. Nothing was set and i was viewing my foldering with extensions showning.

Sharing final code below for anyone that this helps

Sub savetoseperates()
Dim ws As Worksheet, newWb As Workbook

Application.ScreenUpdating = False
For Each ws In Sheets(Array("sheet1", "sheet2", "sheet3"))
   ws.Copy
   Set newWb = ActiveWorkbook
   strName = Format(Day(Date), "00") & Format(Month(Date), "00") & Year(Date) & ws.Name & ".csv"
   With newWb
      .SaveAs strName, xlCSV
      .Close (False)
   End With
Next ws
Application.ScreenUpdating = True

End Sub

 

[Micron]

Odd. I tried that as strName & ".csv" and I ended up with FileName.csv.csv
Must be a Mac thing.

 

[alex0182828]

Interestingggg at least it doesnt break it for windows users