如何在VBA中用条件编译指令跨Windows/Mac定义Recordset对象？

先修正条件编译常量的异常问题 #

你测试代码里Mac端误触发Win64和Not Mac，是因为Office for Mac 64位版本会错误识别Win64常量。正确的平台判断应该用**Win和Mac原生常量**，这两个是Office VBA专门用来区分Windows/Mac的，不会出现误判：

Sub MyTest()
    #If Win Then
        MsgBox "Windows"
    #ElseIf Mac Then
        MsgBox "Mac"
    #End If
End Sub

测试后Windows只会弹出"Windows"，Mac只会弹出"Mac"，彻底解决条件编译逻辑错误。

解决ADODB类型编译报错的核心方案 #

Mac端扫描到ADODB.Recordset/ADODB.Connection报错，本质是项目引用了Windows专属的ADODB库，且条件编译块内的类型声明仍会被Mac编译扫描（哪怕代码不会执行）。解决步骤如下：

1. 移除ADODB早期绑定引用 #

打开VBA编辑器 → 工具 → 引用，取消勾选「Microsoft ActiveX Data Objects x.x Library」，彻底切断对Windows专属库的依赖。

2. Windows端改用ADODB后期绑定 #

把所有ADODB对象声明为Object，通过CreateObject创建实例，避免直接使用ADODB类型：

' 全局变量声明（分平台隔离）
#If Win Then
    Global rst As Object
    Global cnn As Object
#ElseIf Mac Then
    ' Mac端ODBC相关全局变量
    Global odbcConn As Object
#End If

' Windows端初始化ADODB连接
#If Win Then
    Sub InitADODBConnection()
        Set cnn = CreateObject("ADODB.Connection")
        Set rst = CreateObject("ADODB.Recordset")
        ' 写入SQL Server连接字符串
        cnn.Open "你的Windows连接字符串"
    End Sub
#End If

' Mac端初始化ODBC连接
#If Mac Then
    Sub InitODBCConnection()
        Set odbcConn = CreateObject("ActualTechODBC.Connection")
        ' 写入ActualTech驱动的连接字符串
        odbcConn.Open "你的Mac ODBC连接字符串"
    End Sub
#End If

3. 隔离Windows专属子程序的参数类型 #

如果需要传递Recordset参数，把整个子程序放在#If Win Then块内，参数用Object类型：

#If Win Then
    Sub Add_costs_win(rst As Object, RiskID As String, Version_number As Integer)
        ' 可选：临时转换为ADODB对象以调用专属方法
        Dim adodbRst As Object
        Set adodbRst = rst
        ' 执行业务逻辑
        adodbRst.AddNew
        adodbRst("RiskID").Value = RiskID
        ' ...
    End Sub
#End If

这样Mac端编译时会完全忽略整个子程序，不会扫描到任何ADODB相关类型。

是否需要维护两个版本？ #

不需要维护独立版本，通过上述条件编译+后期绑定的方案，可在同一个代码库中兼容双平台：

• Windows端用ADODB后期绑定连接SQL Server
• Mac端用ActualTech ODBC驱动实现对应逻辑
• 所有平台专属代码用#If Win/#If Mac块隔离，公共逻辑可放在块外复用

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