Save tabs as separate csv files: Run-time error 1004; cannot access read-only document

[ManhattanJM]

Hi,

I'm trying to convert tabs into separate csv files, but I'm encountering a Run time error 1004 : Cannot access read-only document with the name of the first tab. Below is my code, please help point me in the right direction. Thank you!

Sub exportcsv()
Dim ws As Worksheet
Dim path As String

path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
For Each ws In Worksheets
    ws.Activate
    ActiveWorkbook.SaveAs FileName:=path & "_" & ws.Name & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
Next
End Sub

 

[breynolds0431]

Your code works flawlessly for me. Is the path read-only or is the workbook open in read-only mode?

 

[ManhattanJM]

Hi,

I forgot to add that I'm trying to run it on a mac. I'm guessing that's probably the issue...

 

[Fluff]

Try

Sub exportcsv()
Dim ws As Worksheet
Dim Mypath As String

Mypath = ActiveWorkbook.path & Application.PathSeparator & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
For Each ws In Worksheets
    ws.Activate
    ActiveWorkbook.SaveAs FileName:=Mypath & "_" & ws.Name & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
Next
End Sub

You should avoid using VBA keywords (such as Path) for the names of variables and procedures.