VBA宏中Declare语句的正确放置位置及换行方法

正确放置位置 #

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 属于模块级声明语句，必须放在模块的最顶部，满足以下要求：

• 位于所有Sub/Function过程之前
• 如果模块中有Option Explicit这类选项语句，需放在选项语句之后

示例模块结构：

Option Explicit ' 可选但推荐启用，强制变量声明
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

Sub 你的第一个宏()
    ' 调用Sleep暂停1秒
    Sleep 1000
    ' 其他宏代码
End Sub

Sub 你的第二个宏()
    ' 其他宏逻辑
End Sub

你遇到的错误原因 #

1. 放在Sub上方被移到前一个宏末尾：
   大概率是前一个宏缺少对应的End Sub结束语句，导致VBA误将声明语句判定为前一个过程的内部代码，自动调整位置。检查所有已有宏，确保每个Sub都有匹配的End Sub。

2. 放在Sub下方出现编译错误：
   VBA不允许在Sub/Function过程内部放置模块级声明语句，过程内只能写执行代码，因此会触发"Expected: Sub or Function"错误。

正确换行方式 #

如果需要给声明语句换行，使用VBA续行符_，注意：

• 续行符前必须有空格
• 不能拆分字符串（如"kernel32"不能拆开）或关键字，需在语法元素之间换行

示例换行写法：

Declare PtrSafe Sub Sleep _
    Lib "kernel32" _
    (ByVal dwMilliseconds As LongPtr)

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