if err then 是什么意思？

IRVING/123

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吗？可是明显说不通啊。

taller

相当于下面代码，也就是有错误产生

1. If Err.Number > 0 Then
   

复制代码

IRVING/123

taller 发表于 2019-2-11 10:23
相当于下面代码，也就是有错误产生

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

lsdongjh

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

taller

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

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

abc123281

论坛上chxw68老师的代码
楼上解释得很清楚 正确
楼主想要透彻理解  需要联系上下代码  需要从基础学习  等你学到一定程度  自然就明白了

IRVING/123

lsdongjh 发表于 2019-2-11 10:34
On Error Resume Next '遇到错误执行下一行
    Set ws = Worksheets(wjm)'如果wjm表不存在，这里会产生错 ...

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

chxw68

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

呵呵，你眼尖呀！

microyip

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

你还有真的眼利，怪不得褚老师都赞你。有时候连我自己写的代码都未必能识别，你这样都能看出是谁写的，厉害！

永魂

taller 发表于 2019-2-11 10:23
相当于下面代码，也就是有错误产生

为什么可以省略 >0这个参数  呢