写on error goto 错误跳转，还是出现 下标越界

许均豪

Public Sub WriteDataToSheet()

On Error GoTo NextCode
Sheets("柱").Select
Range("R1").Select
ActiveCell.FormulaR1C1 = "柱"
NextCode:
On Error GoTo 0

' 选择工作表
On Error GoTo NextCode1
Sheets("构造柱").Select '提示此处下标越界
Range("R1").Select
ActiveCell.FormulaR1C1 = "柱"
NextCode1:
On Error GoTo 0

End Sub

一剑惊心

Sheets("柱")
Sheets("构造柱")
你确定有这两个表？

许均豪

一剑惊心 发表于 2024-2-4 16:04
Sheets("柱")
Sheets("构造柱")
你确定有这两个表？

可能有，也可能没有，主要是没有的时候提示错误，我想忽略错误，直接跳到指定行处理

山菊花

之前没想过这样的问题。测试一下，发现，跳转目标行标签与On Error GoTo语句不能交替出现。
把程序改为下面这样，不出错（请验证）：

1. Public Sub WriteDataToSheet()
   
2.     Dim oErr As Boolean
   
3.    
   
4.     On Error GoTo NextCode
   
5.     Sheets("柱").Select
   
6.     If oErr Then
   
7.         oErr = False
   
8.     Else
   
9.         Range("R1").Select
   
10.         ActiveCell.FormulaR1C1 = "柱"
    
11.     End If
    
12.    
    
13.     ' 选择工作表
    
14.     On Error GoTo NextCode1 '=======行标签“NextCode”不能出现在这一句代码之前
    
15. 
    
16.     Sheets("构造柱").Select
    
17.     If oErr Then
    
18.         oErr = False
    
19.     Else
    
20.         Range("R1").Select
    
21.         ActiveCell.FormulaR1C1 = "柱"
    
22.     End If
    
23.     On Error GoTo 0
    
24.     Exit Sub
    
25.    
    
26. NextCode:
    
27.     MsgBox "选择工作表错误……"
    
28.     '错误处理
    
29.     oErr = True
    
30.     Resume Next
    
31.    
    
32. NextCode1:
    
33.     MsgBox "选择工作表错误……"
    
34.     '错误处理
    
35.     oErr = True
    
36.     Resume Next
    
37. 
    
38. End Sub

复制代码

山菊花

编程中，本人很少使用On Error GoTo方式处理错误，多使用On Error Resume Next。

1. Public Sub WriteDataToSheet()
   
2.     On Error Resume Next
   
3.     Sheets("柱").Select
   
4.     If Err <> 0 Then
   
5.         Err.Clear
   
6.     Else
   
7.         Range("R1").Select
   
8.         ActiveCell.FormulaR1C1 = "柱"
   
9.     End If
   
10.    
    
11.     ' 选择工作表
    
12.     Sheets("构造柱").Select
    
13.     If Err <> 0 Then
    
14.         Err.Clear
    
15.     Else
    
16.         Range("R1").Select
    
17.         ActiveCell.FormulaR1C1 = "柱"
    
18.     End If
    
19. End Sub

复制代码

perfect131

写代码 最好不要用 on error goto 那不是解决问题 是逃避问题

判断 工作表是否存在 也就一个函数就搞定