permission denied error

[wwrightchess]

I am trying to export charts as png. It works on the first instance but on the second I get permission denied with an error code of 70. tried granting access and setting application alerts to false. Macro below.

Sub Macro1
Dim myPath As String
Dim myName As String
Dim fullname As String
Dim i As Long
Dim filelist() As Variant
myPath = "/Volumes/MyPassport/parameter_studies/roughness/GlennIce_nml/outputs/"
fullname = myPath & "pictures"
ReDim filelist(0)
filelist(0) = fullname
fileAccessGranted = GrantAccessToMultipleFiles(filelist)
For i = 2 To 97
Workbooks("large_and_glaze_adjusted_clean.xlsx").Activate
myName = Cells(i, 1)
fullname = myPath & myName & "/" & myName & "_plots.xlsx"
Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Workbooks.Open filename:=fullname
Application.DisplayAlerts = True
Sheets("shape_plot").Select
fullname = myPath & "pictures/" & myName & ".png"
Application.DisplayAlerts = False
ActiveChart.Export fullname
Application.DisplayAlerts = True
ActiveWindow.Close
Next i
End Sub

 

[wwrightchess]

in the immediate window I get
?fullname
/Volumes/MyPassport/parameter_studies/roughness/GlennIce_nml/outputs/pictures/AC048336.png

 

[Candyman8019]

So based on your formula: fullname = myPath & myName & "/" & myName & "_plots.xlsx"...
does the folder "/Volumes/MyPassport/parameter_studies/roughness/GlennIce_nml/outputs/AC048336/" exist? Perhaps the folder needs to be created first?
Essentially your formula is generating /Volumes/MyPassport/parameter_studies/roughness/GlennIce_nml/outputs/AC048336/AC04336_plots.xlsx

 

[wwrightchess]

The folder exists and the file exists. The macro opens the workbook file it just does not export the chart sheet "shape_plot" which also exists

 

[Alex Blakenburg]

I know very little about the MacOS, so grasping at straws here since we can't reproduce your problem, can you try changing your GrantAccess line to this.

fileAccessGranted = GrantAccessToMultipleFiles(Array(myPath,myPath & "pictures",ThisWorkbook.path))

 

[wwrightchess]

Here is my fix. I do not know if there is an easier way.
First I created one png by manually exporting the chart.
Second, I duplicated the chart 96 times and gave it the name of the chart I was trying to create.
Third, I ran a macro I have that granted access to those files.
Finally, the routine I posted will run after I deleted the lines that would delete the existing file.

 

[Alex Blakenburg]

As long as that works for you. It seems to be something specific to MacOS and as such I have no way of replicating it. Thanks for letting us know what you did.