ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 262|回复: 8

[求助] if err then 是什么意思?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-2-11 10:20 | 显示全部楼层 |阅读模式
Sub test()
  Dim r%, i%
  Dim arr, brr
  Dim ws As Worksheet
  Dim mypath$, myname$
  Dim reg As New RegExp
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  With reg
    .Global = True
    .Pattern = "\s+"
  End With
  mypath = "E:\文档" & "\"
  myname = Dir(mypath & "*.txt")
  Do While myname <> ""
    wjm = Split(myname, ".")(0)
    Open mypath & myname For Input As #1
    arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
    ReDim brr(1 To UBound(arr), 1 To 3)
    For i = 1 To UBound(arr)
      ss = reg.Replace(arr(i), " ")
      crr = Split(ss, " ")
      If UBound(crr) >= 2 Then
        For j = 0 To 2
          brr(i, j + 1) = crr(j)
        Next
      End If
    Next
    On Error Resume Next
    Set ws = Worksheets(wjm)
    If Err Then
      Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
      ws.Name = wjm
    End If
    With Worksheets(wjm)
      .Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    End With
    myname = Dir()
  Loop
End Sub



这里面的
Set ws = Worksheets(wjm)
    If Err Then
      Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
      ws.Name = wjm
    End If
if err then 是什么意思?是如果错误就增加worksheets吗?可是明显说不通啊。

TA的精华主题

TA的得分主题

发表于 2019-2-11 10:23 | 显示全部楼层
相当于下面代码,也就是有错误产生

  1. If Err.Number > 0 Then
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 10:26 来自手机 | 显示全部楼层
taller 发表于 2019-2-11 10:23
相当于下面代码,也就是有错误产生

可是我理解的应该是没有错误才会增加图表,应该是if not error then   才对。这里真的看不懂

TA的精华主题

TA的得分主题

发表于 2019-2-11 10:34 | 显示全部楼层
On Error Resume Next '遇到错误执行下一行
    Set ws = Worksheets(wjm)'如果wjm表不存在,这里会产生错误

    If Err Then
    '  有错误表明没有 wjm表,所以新建
      Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
      ws.Name = wjm
    End If
    With Worksheets(wjm)
      .Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    End With

TA的精华主题

TA的得分主题

发表于 2019-2-11 10:41 | 显示全部楼层
IRVING/123 发表于 2019-2-11 10:26
可是我理解的应该是没有错误才会增加图表,应该是if not error then   才对。这里真的看不懂

实践出真知,单步执行一下,看结果

TA的精华主题

TA的得分主题

发表于 2019-2-11 10:46 | 显示全部楼层
论坛上chxw68老师的代码
楼上解释得很清楚 正确
楼主想要透彻理解  需要联系上下代码  需要从基础学习  等你学到一定程度  自然就明白了

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 10:57 来自手机 | 显示全部楼层
lsdongjh 发表于 2019-2-11 10:34
On Error Resume Next '遇到错误执行下一行
    Set ws = Worksheets(wjm)'如果wjm表不存在,这里会产生错 ...

感谢感谢!这一说我就明白了,我只单看了这一句,没想到还得转个弯来看。

TA的精华主题

TA的得分主题

发表于 2019-2-11 16:41 | 显示全部楼层
abc123281 发表于 2019-2-11 10:46
论坛上chxw68老师的代码
楼上解释得很清楚 正确
楼主想要透彻理解  需要联系上下代码  需要从基础学习   ...

呵呵,你眼尖呀!

TA的精华主题

TA的得分主题

发表于 2019-2-11 16:56 | 显示全部楼层
abc123281 发表于 2019-2-11 10:46
论坛上chxw68老师的代码
楼上解释得很清楚 正确
楼主想要透彻理解  需要联系上下代码  需要从基础学习   ...

你还有真的眼利,怪不得褚老师都赞你。有时候连我自己写的代码都未必能识别,你这样都能看出是谁写的,厉害!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-2-19 23:28 , Processed in 0.105327 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表