http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Function GetNum(Str As Variant, 种类 As Integer) '当这里的种类选择数字1时，保留数字；为2时，保留字母；否则保留汉字

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Dim RegEx As Object

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Set RegEx = CreateObject("vbscript.regexp") '调用正则表达式

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />With RegEx

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />     .Global = True

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />     .Pattern = IIf(种类 = 1, "[^0-9]", IIf(种类 = 2, "[^A-Za-z]", "[^\u3400-\u9FFF]"))

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />End With

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />    GetNum = RegEx.Replace(Str, "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />End Function

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Function GetNoNum(Str As Variant) '这里专门取 非数字，主要包括三类：汉字、字母和 英文状态下的 点

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Dim RegEx As Object

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Set RegEx = CreateObject("vbscript.regexp") '调用正则表达式

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />With RegEx

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />     .Global = True

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />     .Pattern = "[^A-Za-z^\u3400-\u9FFF^.]"

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />End With

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />    GetNoNum = RegEx.Replace(Str, "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />End Function

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Sub xq3()

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Application.Visible = False

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Application.ScreenUpdating = False

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Dim fp$, fn$, reg As Object, wb As Workbook, sh As Worksheet, rq$, mt, ym$, arr, i&, j&

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Dim 更新日期

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Set reg = CreateObject("vbscript.regexp")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />fp = ThisWorkbook.Path & "\"

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />fn = Dir(fp & "*.xls")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Do While fn <> ""

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />    If fn <> ThisWorkbook.Name Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />        Workbooks.Open fp & fn

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />            For Each sh In ActiveWorkbook.Worksheets

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                With reg

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                    .Global = True

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                    .Pattern = "\d{4}年\d{1,2}月|\d{4}[\.\-]\d{1,2}"

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                    If .test(sh.Name) Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        For Each mt In .Execute(sh.Name)

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                            mt = mt

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                            GoTo line2

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        Next

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                    Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        arr = sh.UsedRange.Item(1).Resize(sh.UsedRange.Rows.Count + 1, sh.UsedRange.Columns.Count).Value

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        For i = 1 To UBound(arr, 2)

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                            For j = 1 To UBound(arr)

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                                If .test(arr(j, i)) Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                                    For Each mt In .Execute(arr(j, i))

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                                        If (Left(mt, 1) = 1 Or Left(mt, 1) = 2) And Val(Mid(mt, 6, 2)) <= 12 Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                                            mt = mt

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                                            GoTo line1

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                                        End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                                    Next

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                                End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                            Next

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        Next

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />line1:

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        Erase arr

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                    End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                End With

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />            Next

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />line2:

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />        ActiveWorkbook.Close False

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />        

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />      With reg

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />        .Global = True

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />        .Pattern = "(\d{4})[年\.\-](\d{1,2})[月\.\-]*(\d*)日*" '|\d{4}[\.\-]\d{1,2}"

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />        If mt <> "" Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />             If .test(fn) Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                更新日期 = .Execute(fn)(0).submatches(0) & "年" & .Execute(fn)(0).submatches(1) & "月"

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                If CDate(更新日期) - CDate(.Execute(mt)(0)) < 0 Then  ''这里的mt之前已经是一个日期格式了

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   ''判断 .Execute(fn)(0) 在文件名中的位置，来确定如何命名

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   If Len(fn) - (InStr(fn, .Execute(fn)(0)) + Len(.Execute(fn)(0)) - 1) < 4 Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                      Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(fn, "（", "("), "）", ")"), " ", ""), .Execute(fn)(0), ""), "xls", " " & 更新日期 & ".xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                       Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(fn, "（", "("), "）", ")"), " ", ""), .Execute(fn)(0), ""), ".xls", " " & 更新日期 & ".xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   更新日期 = .Execute(mt)(0)

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   ''判断 .Execute(fn)(0) 在文件名中的位置，来确定如何命名

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   If Len(fn) - (InStr(fn, .Execute(fn)(0)) + Len(.Execute(fn)(0)) - 1) < 4 Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                      Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(fn, "（", "("), "）", ")"), " ", ""), .Execute(fn)(0), ""), "xls", " " & 更新日期 & ".xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                       Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(fn, "（", "("), "）", ")"), " ", ""), .Execute(fn)(0), ""), ".xls", " " & 更新日期 & ".xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                mt = ""

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />             Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />               

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />               If InStr(fn, GetNum(mt, 1)) > 0 Then ''即文件名中包含了 比较完整的创建日期，但纯粹是数字，如2008年2月写成20082之类，但与文件内容中的日期2008年2月是一样的

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  更新日期 = mt '.Execute(mt)(0)

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  If InStr(fn, "阳光100") > 0 Then  '''这里专门针对可能存在的命名 阳光100房地产而设置

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                     Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(Replace(fn, fn, GetNoNum(fn)), "（", "("), "）", ")"), " ", ""), "阳光", "阳光100"), ".xls", " " & 更新日期 & ".xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                     Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(fn, fn, GetNoNum(fn)), "（", "("), "）", ")"), " ", ""), ".xls", " " & 更新日期 & ".xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  mt = ""

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />               Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  .Pattern = "(2\d{3})年*" '''表示像2000年及以后的年份

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  If .test(fn) Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                     If InStr(mt, .Execute(fn)(0)) > 0 Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />line3:

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        更新日期 = mt

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        If InStr(fn, "阳光100") > 0 Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                           Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(fn, fn, GetNoNum(fn)), "（", "("), "）", ")"), " ", ""), "年", ""), "阳光", "阳光100"), ".xls", " " & 更新日期 & ".xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        Else: Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(Replace(fn, fn, GetNoNum(fn)), "（", "("), "）", ")"), " ", ""), "年", ""), ".xls", " " & 更新日期 & ".xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                     Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        If Left(.Execute(fn)(0), 4) - Left(mt, 4) >= 0 Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                           GoTo line3

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                          If InStr(fn, "阳光100") > 0 Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                             Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(fn, fn, GetNoNum(fn)), "（", "("), "）", ")"), " ", ""), "阳光", "阳光100"), "年", ""), ".xls", " " & .Execute(fn)(0).submatches(0) & "年.xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                          Else: Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(Replace(fn, fn, GetNoNum(fn)), "（", "("), "）", ")"), " ", ""), "年", ""), ".xls", " " & .Execute(fn)(0).submatches(0) & "年.xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                          End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                        End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                      End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                      mt = ""

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                      Name fp & fn As fp & Replace(Replace(fn, fn, GetNoNum(fn)), ".xls", " " & mt & ".xls")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                      mt = ""

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                   End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />               End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />             End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />        Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />            If .test(fn) Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />               更新日期 = .Execute(fn)(0).submatches(0) & "年" & .Execute(fn)(0).submatches(1) & "月"

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />               Name fp & fn As fp & Replace(Replace(Replace(Replace(Replace(Replace(fn, "（", "("), "）", ")"), " ", ""), .Execute(fn)(0), ""), "xls", " " & 更新日期 & ".xls"), "-", "")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />            Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />               .Pattern = "(2\d{3})年*" '''表示像2000年及以后的年份

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_shrink.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />               If .test(fn) Then

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  Name fp & fn As fp & Replace(Replace(fn, fn, GetNoNum(fn)), ".xls", " " & .Execute(fn)(0).submatches(0) & "年" & ".xls")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />               Else

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  ym = Format(FileDateTime(fp & fn), "yyyy年m月")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  Name fp & fn As fp & Replace(fn, ".xls", " " & ym & "(修).xls")

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />                  ym = ""

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />               End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />            End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />        End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />     End With

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />        

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />   End If

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />   fn = Dir

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Loop

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Application.ScreenUpdating = True

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />Application.Visible = True

http://club.excelhome.net/source/plugin/mc_colorcode/images/jssc_none.gif值得学习的代码——excel vba 学习经验" TITLE="正则表达式应用实例 值得学习的代码——excel vba 学习经验" />End Sub