Question

我在vba excel 2010 32位计算机上运行了以下程序：

声明Sub sleep Lib“kernel32”（ByVal dwmilliseconds As Long）

子游戏（）

i = 0

待办事项
i = i + 1

Cells(i, 1).Interior.Color = RGB(100, 0, 0)
sleep 500  
循环直到i＆gt; 10

End Sub

但是，运行后，它显示以下错误：

“无法在kernel32中找到dll入口点睡眠”

有人可以告诉我接下来应该做些什么来消除错误吗？

感谢您的努力。

Answer 1

您可能想要使用：

而不是睡眠500

Application.Wait (Now + TimeValue("0:00:05"))

Answer 2

@Transistor是正确的。你必须使用资本＆＃34; S＆＃34;。所有API声明都区分大小写。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep的替代方法是使用我几年前创建的函数Wait，我仍然使用它。

Sub Sample()
    i = 0
    Do
        i = i + 1
        Cells(i, 1).Interior.Color = RGB(100, 0, 0)
        Wait 1
    Loop Until i > 10
End Sub

Private Sub Wait(ByVal nSec As Long)
    nSec = nSec + Timer
    While nSec > Timer
        DoEvents
    Wend
End Sub

睡眠功能错误453

2 个答案: