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

mafan

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

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

怎样才可以

fanny_6

on error goto abc

在end前加  abc：

不知道有没理解错你的意思

mafan

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

不知道这样是否可能实现

雪山飞狐_lzh

是退出当前子程还是宏？

不太懂你的意思

mikewolf2k

2楼方法可行。

sub aa()

......

on error goto exitvba:

......

exit sub

exitvba:

end

end sub

mafan

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

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

my_computer

支持 2 楼。

yxh1202

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

wwswwswws

要使用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

 

希望能帮到你的忙