在 VBA 中为 Windows 和 Mac 指定用户文件夹的路径

Question

我正在编写一个使用 VBA 从 Excel 生成文件的工具。 生成的文件将写入用户的 Documents 文件夹中的文件夹（如果存在）。

例如C:\\Users\\<username>\\Documents\\Some Folder\\

如果最后一个文件夹不存在，则 VBA 会创建它。 我使用以下行来确保文件夹的位置适用于分布在组织中的不同 Windows 用户：

If Len(Dir(Environ("USERPROFILE") & "\Documents\Some Folder", vbDirectory)) = 0 Then
    MkDir Environ("USERPROFILE") & "\Documents\Some Folder"
End If
Open Environ("USERPROFILE") & "\Documents\Some Folder\" & "file.php" For Output As #1
Print #1, output
Close

我现在的问题是我还必须满足 Mac OSX 用户的需求。 目前我无法使用 Mac 进行测试，但我假设上述方法不起作用。

我可以使用什么来指向用户文档中的子文件夹，以及如何包含有条件地使用 Windows 行或 Mac 行的代码？

Answer 1

您有两个选择：

1. 使用Application.PathSeparator ... 请参阅此处的 MSDN 。

代码：

Dim PS as String
PS = Application.PathSeparator
If Len(Dir(Environ("USERPROFILE") & PS & "Documents" & PS & "Some Folder", vbDirectory)) = 0 Then
    MkDir Environ("USERPROFILE") & PS & "Documents" & PS & "Some Folder"
End If
Open Environ("USERPROFILE") & PS & "Documents" & PS & "Some Folder" & PS & "file.php" For Output As #1
Print #1, output
Close

2. 创建一个IF THEN来检查OS

代码：

Sub SaveDoc()
    Dim wksSheet As Worksheet

    If InStr(1, Application.OperatingSystem, "Windows") > 0 Then
      'Code with Windows Path Separator
      Exit Sub

    Else
      'Code with Mac Path Separator
      Exit Sub
    End If

End Sub

Answer 2

有条件编译允许您根据所使用的操作系统编译不同的代码。 有关条件编译，请参阅 此页面。

在您的情况下，您需要将 Windows 的 Mac 的特定代码附上：

#if Mac then
'here Mac only code
#else
'here Windows only code
#end if

我自己没有要测试的 Mac，但根据此站点，您可以使用MacScript 函数获取请求的文件夹路径，并在参数中传递正确的脚本。

Answer 3

这对我有用。 我在 PC 上写作，但有一些 Mac 用户。

  Set source_workbook = Application.ThisWorkbook
  source_wkbk_path = source_workbook.Path

  If Application.OperatingSystem Like "*Mac*" Then
    current_path = source_wkbk_path & "/" & current_date & " Workbooks" & "/"
  Else
    current_path = source_wkbk_path & "\" & current_date & " Workbooks" & "\"
  End If

  If Len(Dir(current_path, vbDirectory)) = 0 Then
    MkDir current_path
  End If