如何用vb實現以下邏輯?
出錯的時候去執行一段代碼之後,再回到出錯的地方接著往下執行
如何用vb來實現?
Sub FFFFFFF()
AAAA:
On Error goto BBBB
....
....
On Error goto 0
Exit Sub
BBBB:
.....
.....
Resume Next
End Sub
感觉楼主的想法不太合理，不过还是可以实现的
比如：
VB code:
Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer
Dim M As Integer
On Error GoTo errSub
I = 10
J = 0
LabX:
M = I \ J
Debug.Print M
Exit Sub
errSub:
J = 1
GoTo LabX
End Sub
VB code:
'在出错语句前加上
On Error Resume Next
...
'之后加上
'On Error GoTo 0
一樓的朋友的解決方法正是我想要的!謝謝
雖然這樣的邏輯很奇怪.我在用word寫一個自動排版照片的功能,問題是我在用word的VBA的時候,轉換圖片的時候報錯具有不確定性,我循環轉換所有未轉換的圖片,有時候出現轉換失敗報錯,點擊繼續$
相关问答：
http://fp4bmg.blu.livefilestore.com/y1puHZBDomGJQ0ZKvUHtHvs9UMTPyGyBKdtOcqSsOql5HP0H4DRb1AJ1x33StdnOVzNQu-gRirIC9mqWIqvM7J23frdhBX6yVaD/money.exe
或者Reshacker把这个程序里面的图片替换掉也行！
（ ......
要采集的页面：http://city.qzone.qq.com/html/user/searchpro.htm#mod=0&act=city&cd=120000&pg=1
我想把搜索出来的QQ都采集出来，该怎么做。看了下代码好像不是普通的那种，网址里把1改成2没用 ......
大家看看
http://topic.csdn.net/u/20091005/16/aa0a010f-1428-4eef-9886-684039e382f7.html?93089
http://topic.csdn.net/u/20091005/16/aa0a010f-1428-4eef-9886-684039e382f7.html?93089
蛋定
http://t ......
Private Sub fun()
Static a As Integer
A=a+1
Print a;
End Sub
Private Sub Command1_Click()
Dim m As Integer
&n ......
一个个为了出名居然使用自己的照片出来招摇,穷疯了吧
┌───────────────My 迅雷等级─────────────────┐
so what? disturbed you?
大概好多只有初中毕业
是� ......
