VBA for Directory path in Excel 2011 for Mac?

[TheMooch]

Hi guys and gals,

Here's a question for you. I've got a spreadsheet that I use at work that has some big macros in it. I'm trying to work on it at home, but my Mac is having some issues with the macros. Specifically on the portion that looks for the path:

 If Worksheets("Main").Range("B25") = "" Then
        sPath = "C:\"
        Else
    sPath = Worksheets("Main").Range("B25")
    End If
 
  s = CurDir
  ChDrive sPath
  ChDir sPath
  fName = Application.GetOpenFilename

I'd LOVE to make this where it works in both Mac and Windows although 99.9999% of the time it only runs on Windows, so it's not a HUGE deal. The problem here is that Mac doesn't have a C:\ and entries like \Users\me, /Users/me, and Users:Me: don't work.

Ideas?

 

[Domenic]

One way might be to check which path separator the application is using. For example...

If Application.PathSeparator = ":" Then
    strPath = "Macintosh HD:"
Else
    strPath = "C:\"
End If

 

[TheMooch]

I had thought to do something like that, but the reality is that it would only be for me and not worth the time to do since this file is meant to be run on corporat windows machines. I'm just hoping to find a generic way to code it so that it's "platform independent" so that i can work on it on my Mac at home and then have it work on the windows machines as normal.

It's really not that big a deal. I'll just have to work on it at work is all.

 

[xzerox]

i have similiar problem with path in vba on mac. on windows7 office2007 works perfect but on mac is not workable. i would like to there is some kind of converter that converts vba win code to vba mac code
if there's any help to this thread i would like to ask for help for my post

 

[Domenic]

May be you can use the Path property of the Workbook object and the Path property of the Application object...

strPath = ActiveWorkbook.Path & Application.PathSeparator

or

strPath = Workbooks("Book2.xls").Path & Application.PathSeparator

I don't have Excel 2011 for the Mac, but for Windows based versions, the following is also available...

Application.DefaultFilePath ---> Excel's default path

ChDir Application.PathSeparator ---> Changes the current directory to the root directory