如何用Excel VBA检测PC/Mac运行系统并适配文件路径分隔符？

一、检测当前运行系统 #

在VBA中可通过Application.OperatingSystem属性判断系统类型：

• Windows系统返回的字符串包含**"Windows"**
• Mac系统返回的字符串包含**"Macintosh"**

示例代码：

' 判断是否为Mac系统
Dim isMacOS As Boolean
isMacOS = InStr(1, Application.OperatingSystem, "Macintosh", vbTextCompare) > 0

' 或者直接判断Windows系统
Dim isWindows As Boolean
isWindows = InStr(1, Application.OperatingSystem, "Windows", vbTextCompare) > 0

二、适配路径分隔符 #

根据系统类型调整路径中的斜杠，有两种实用实现方式：

方式1：手动判断系统并替换

针对固定格式的路径，直接替换对应分隔符：

Dim originalPath As String
Dim finalPath As String
originalPath = "C:\Documents\Sample.xlsx" ' 示例路径

If isWindows Then
    ' Windows系统统一用反斜杠
    finalPath = Replace(originalPath, "/", "\")
Else
    ' Mac系统统一用正斜杠
    finalPath = Replace(originalPath, "\", "/")
End If

' 输出调整后的路径
MsgBox "适配后的路径：" & finalPath

方式2：利用系统内置分隔符（更简洁）

VBA提供Application.PathSeparator属性，会自动返回当前系统的标准路径分隔符（Windows是\，Mac是/），直接用它替换所有分隔符即可：

Dim originalPath As String
Dim finalPath As String
originalPath = "/Users/User/Documents\Sample.xlsx" ' 混合分隔符示例

' 获取当前系统的标准分隔符
Dim sysPathSep As String
sysPathSep = Application.PathSeparator

' 替换所有斜杠为系统标准分隔符
finalPath = Replace(Replace(originalPath, "/", sysPathSep), "\", sysPathSep)

MsgBox "适配后的路径：" & finalPath

内容的提问来源于stack exchange，提问作者Terry Richter