怎样才能在vba执行时退出vba程序，但不退出cad

mafan · 发表于 2005-7-14 15:06:00

怎样才能在vba执行时退出vba程序，但不退出cad

我现在做一个程序，想作一段错误处理，
即出错时就退出vba程序,但不想退出cad
怎样才可以

fanny_6 · 发表于 2005-7-14 15:21:00

on error goto abc
在end前加 abc：
不知道有没理解错你的意思

mafan · 发表于 2005-7-14 17:46:00

sorry
不是这个意思
我是进行了很多层函数调用，其中在一个函数中出错，我想在
那里直接退出vba程序，既中断程序，但不退出AutoCAD
不知道这样是否可能实现

雪山飞狐_lzh · 发表于 2005-7-14 17:58:00

是退出当前子程还是宏？
不太懂你的意思

mikewolf2k · 发表于 2005-7-14 19:42:00

2楼方法可行。
sub aa()
......
on error goto exitvba:
......
exit sub
exitvba:
end
end sub

mafan · 发表于 2005-7-15 14:07:00

不好意思，本人表达的可能不是很清楚，请各位谅解

我是想在当前子程序中直接退出vba的执行

my_computer · 发表于 2005-7-16 09:52:00

支持 2 楼。

yxh1202 · 发表于 2010-6-8 14:25:00

看到这个问题我也在找答案，我的意思是VBA执行中按esc键就可以退出VBA程序但不退出CAD，怎么办

wwswwswws · 发表于 2010-6-26 21:06:00

要使用API函数，检测键盘
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_ESCAPE = &H1B

Private Function CheckKey(lngKey As Long) As Boolean
If GetAsyncKeyState(lngKey) Then
   CheckKey = True
Else
   CheckKey = False
End If
End Function

sub  你的程序
'進入这个程序，运行一次这个程序
GetAsyncKeyState VK_ESCAPE
do
...........
..........
If CheckKey(VK_ESCAPE) = True Then '检测是不是按下了ESC键
   ........
   Exit Sub
End If
loop
.................
end sub

希望能帮到你的忙

怎样才能在vba执行时退出vba程序，但不退出cad

发表回复

精选推荐