VPA Filepath for both Desktop and Mac

[AndrewDrewAndy]

I am running this code and it works well on desktop, but I am not able to run this on Mac. Is there a way to make the path work for both desktop and mac? See code below.

Thank You!


Sub AndrewDrew()
Dim Ary As Variant
Dim i As Long
Dim Pth As String

Pth = Sheets("Master Data").Range("A1")
If Not Right(Pth, 1) = "\" Then Pth = Pth & "\"
Ary = Array("Export 1", "Export 2", "Export 4")
For i = 0 To UBound(Ary)
Sheets(Ary(i)).Copy
With ActiveWorkbook
.SaveAs Pth & Range("C5").Value, 51
.Close False
End With
Next i
End Sub

 

[Norie]

Are you using a valid Mac path in A1 on Master Data?

If you are then the problem might only be the '\' and you can replace that with Application.PathSeparator.

If Not Right(Pth, 1) = Application.PathSeparator Then Pth = Pth & Application.PathSeparator

 

[AndrewDrewAndy]

Are you using a valid Mac path in A1 on Master Data?

If you are then the problem might only be the '\' and you can replace that with Application.PathSeparator.

If Not Right(Pth, 1) = Application.PathSeparator Then Pth = Pth & Application.PathSeparator

Will this work for both "\" and "/" file separators? And, what must a mac path start with (eg., desktop is C:xxx\xxx)?

Thank you!

 

[Norie]

Is the folder you want to save the files to relative to the folder the original file is in?

 

[AndrewDrewAndy]

Is the folder you want to save the files to relative to the folder the original file is in?

No, the files this vba saves are saved into different folders each day. Mac and Desktop

 

[Norie]

How are you setting the path in A1 in 'Master Data'?

Paths for Windows and Mac are quite different, here are examples of both with Unix thrown in as well.

Operating System	Example Path
Windows​	C:\myfolder\mydocument.txt​
Mac OS​	Hard Drive:My Folder:My Document​
Unix​	/usr/myuser/mydocument.txt​