将文件保存到Mac上的某个位置

Question

来自VBA的任何背景，我下载了一个代码，该代码使我可以将excel上的工作簿保存到某个位置，并在需要时创建新文件夹。但是代码是针对Windows的，路径为“ path =” c：/ invoices“。我尝试将路径更改为” MkDir（invoicePath =“ / Users / misto / Documents”＆folderName）“，由于以下原因而无法保存权限，尽管我已将权限更改为“读和写”。 如何解决这个问题？

  fName = Dir(invoicePath & folderName & "\" & fNamePrefix & folderName & "-*" & fNameExt)
  If fName = "" Then
      'file not found
      If Dir(invoicePath & folderName, vbDirectory) = "" Then
          'month not found - create folder?
          If MsgBox("Okay to create folder '" & invoicePath & folderName & "' for invoice #" & folderName & "-001 ?", _
              vbOKCancel + vbQuestion, "Folder not Found") <> vbOK Then Exit Sub
          'create folder
          MkDir (invoicePath = "/Users/misto/Documents" & folderName)
      End If
  Else
      'month found. Now find the highest invoice number in the folder.
      Do While fName <> ""
          Debug.Print "Found File: " & fName
          'get the number (filename = fNamePrefix & "YYMM-___.xlsx" so we know where it is
          If IsNumeric(Mid(fName, 6 + Len(fNamePrefix), 3)) Then 'it's a valid number
              fNum = Val(Mid(fName, 6 + Len(fNamePrefix), 3))
              'if it's the biggest so far, remember it
              If fNum > nextInvoiceNum Then nextInvoiceNum = fNum 'biggest one so far
          End If
          fName = Dir
      Loop
  End If