Run-time error "1004" Method "SaveAs"

[rowbro]

Good day, I have the below REALLY simple code to save a sheet in a workbook as CSV for upload to a database, however I keep getting the Run-time error "1004" Method "SaveAs" when I try and execute it. I can't figure out what I have got wrong - any advise?

Thanks

Sub SaveCSV()

Application.DisplayAlerts = False

ThisWorkbook.Sheets("Export").Copy

x = Weekday(Date, vbSunday)
Select Case x
    Case 1
        x = 2
    Case 2
        x = 3
    Case Else
    x = 1
End Select

ActiveWorkbook.SaveAs FileName:="File saved on " & _
    Format(Date - x, "mm-dd-yyyy"), FileFormat:=xlCSV, CreateBackup:=True
    
ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub

 

[Yongle]

1 Always declare variables
2 The default path is unpredictable - force the correct filepath within the code
3 Specify the sheet to be saved as illustrated

Sub SaveCSV()
    Dim x As Long
    Const fpath = "C:\folder\subfolder\"
    Application.DisplayAlerts = False
    x = Weekday(Date, vbSunday)

    Select Case x
        Case 1
            x = 2
        Case 2
            x = 3
        Case Else
        x = 1
    End Select

    ActiveWorkbook.Sheets("Export").SaveAs Filename:=fpath & "File saved on " & _
        Format(Date - x, "mm-dd-yyyy"), FileFormat:=xlCSV, CreateBackup:=True
   
    ActiveWorkbook.Close

End Sub

 

[rowbro]

Thanks for the feedback. The problem is that I get the runtime error mentioned. (Run-time error '1004': Application-defined or object-defined error).

I made the changes you suggested, and still get the same. The issue is in the section:

ActiveWorkbook.Sheets("Export").SaveAs Filename:=fpath & "File saved on " & _
        Format(Date - x, "mm-dd-yyyy"), FileFormat:=xlCSV, CreateBackup:=True

However, I can't seem to figure out what it is.

 

[Yongle]

The code works for me - I tested it before replying

1. Did you end this line with "\" ?

Const fpath = "C:\folder\subfolder\"

2. Which version of Excel and windows is on your PC ?

 

[rowbro]

Yes, but I am working on a Mac, so:

Const fpath = "/Users/username/Downloads/"

 

[Yongle]

Sorry but I cannot help you sort out a mac specific problem - which is what this appears to be
It would be helpful for the future if you update your user profile to show your Office Version and Platform (Mac)

You could try recording a macro whilst saving the sheet as a csv and then tailor whatever code is provided
- it should provide everything

If that does not help, then I suggest that you start a new thread making it clear in the title you are looking for a Mac based solution "SaveAs CSV on Mac - Error 1004"

Good luck