Excel for Mac VBA如何实现小于1秒的毫秒级等待功能

你之前使用的kernel32是 Windows 专属系统库，macOS 环境不存在该文件因此触发报错；原生Application.Wait方法最低精度仅为 1 秒，无法满足毫秒级等待需求。以下是两种可在 macOS 平台正常运行的实现方式：

方案一：调用系统 libc 库函数实现（精度最高，推荐） #

通过调用 macOS 系统内置 libc 库的nanosleep函数实现高精度等待，误差可控制在 1 毫秒以内。

代码实现： #

' 模块顶部声明
#If Mac Then
    Private Declare PtrSafe Function nanosleep Lib "/usr/lib/libc.dylib" (ByRef req As timespec, ByVal rem As LongPtr) As Long
    Private Type timespec
        tv_sec As Long ' 秒数
        tv_nsec As Long ' 纳秒数
    End Type
#End If

' 封装等待方法，入参为需要等待的毫秒数
Sub WaitMS(ms As Long)
    #If Mac Then
        Dim ts As timespec
        ts.tv_sec = Int(ms / 1000)
        ts.tv_nsec = (ms Mod 1000) * 1000000 ' 毫秒转纳秒
        Call nanosleep(ts, 0)
    #Else
        ' Windows 环境兼容逻辑，可选保留
        Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        Sleep ms
    #End If
End Sub

使用方法： #

需要等待500毫秒时，直接调用WaitMS 500即可。

方案二：调用 AppleScript 实现（兼容性更好） #

如果方案一出现权限问题，可以通过执行 AppleScript 的延迟命令实现，无需声明系统函数，兼容性更强，误差通常在 10 毫秒以内，可满足普通场景需求。

代码实现： #

Sub WaitMS(ms As Long)
    Dim delayVal As Double
    delayVal = ms / 1000
    MacScript "delay " & CStr(delayVal)
End Sub

注意事项 #

• 以上两种方案仅适配 macOS 版 Excel，Windows 环境可直接使用原Sleep调用
• Office 365/2021 及以上版本的 macOS Excel 优先使用方案一，精度和性能更优

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