主题：[求助]vba如何读取指定注册表键值？

Sub TestRegistry()
 Set registry = CreateObject("stock.registry")
 Call registry.Open("software\weisoft\金字塔\vba")
  result=registry.ReadInt("id")
 application.msgout result
End Sub

 

这样试试

没弹出来说明这个VBA语句没有运行，你可以再把需求描述的清楚一些，我们再看看如何帮你解决

'VBA启动时事件
Sub APPLICATION_VBAStart()
   Application.MsgOut "监控后台启动工作"
   Application.SetTimer 1, 3000 '设定3秒定时器
End Sub

 

Sub APPLICATION_Timer(ID)
  
   If ID = 1 Then
       MyTime = CStr(Hour(Time))+CStr(Minute(Time))+CStr(Second(Time))
       PelTime = TestRegistry()
       Application.MsgOut CLng(MyTime) - PelTime
       If CLng(MyTime) - PelTime > 20 Then
           Application.MsgOut "发现后台异常，正在重启后台程序化"
           MarketData.StopAlarmRun
           MarketData.StartAlarmRun
       End If
   End If
End Sub

 

Function TestRegistry()
 Set registry = CreateObject("stock.registry")
 Call registry.Open("software\weisoft\金字塔\vba")
  result=registry.ReadInt("id")
 TestRegistry = result
 set registry = nothing '对象使用完要释放，负责会出现内存泄露
End Function

是的，你的注册表这个值有问题，你可以打开注册表编辑器，看看里面的数值到底PEL公式置进去没有