VBA 巧用 On Error GoTo，Exit Function/Exit Sub，Resume

最新推荐文章于 2025-02-13 22:48:28 发布

walagons

最新推荐文章于 2025-02-13 22:48:28 发布

阅读量2.8k

点赞数 1

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/walagons/article/details/12713461

本文介绍了在VBA中如何巧妙使用On Error GoTo、Exit Function和Exit Sub进行错误处理和循环控制。示例代码展示了在读取文件内容时，如何捕获并处理日期转换错误，同时更新数据计数。通过使用这些技巧，可以提高代码的健壮性和逻辑清晰度。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Set TextObj = FileObj.OpenTextFile(strPath)
Do While Not TextObj.AtEndOfStream
   Dim Line$, DateStr$, Curentdatestr$, Datecountstr$
   Line = TextObj.ReadLine
   Curentdatestr = Left(Line, 10)
   'MsgBox "Curentdatestr : " & Curentdatestr
   'On Error GoTo here
   On Error GoTo errHandler
   d = CDate(Curentdatestr)
   If Not DateStr Like Curentdatestr Then
         cnt1 = 0
         cnt2 = 0
         DateStr = Curentdatestr
         ii = ii + 1
   End If
   If InStr(Line, Target1) Then
      If InStr(Line, Target3) Then
        cnt1 = cnt1 + 1
      E