求高手用VBA实现多个excel文件内容替换

jbb0410

把样本附件里的2018-11-23批量替换为2018/10/13

约定的童话

好用记得评分，谢谢！Sub 替换()
    Application.ScreenUpdating = False
    Dim MyPath, MyName, AWbName, Wb As Workbook
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.xlsx")
    AWbName = ActiveWorkbook.Name
    Do While MyName <> ""
        If MyName <> AWbName Then
            Set Wb = Workbooks.Open(MyPath & "\" & MyName)
            With Workbooks(1)
                ActiveSheet.[b2].Select
                Selection.NumberFormatLocal = "yyyy/m/d"
                Wb.Close True
            End With
        End If
        MyName = Dir
    Loop
    MsgBox "替换完毕！", , "报告！"
    Application.ScreenUpdating = True
End Sub

jbb0410

这个是用的宏吗？有代码吗？学习一下

fewly

约定的童话 发表于 2019-9-5 16:31
好用记得评分，谢谢！Sub 替换()
    Application.ScreenUpdating = False
    Dim MyPath, MyName, AWbN ...

收藏了，谢谢！

gourmetszy2019

约定的童话 发表于 2019-9-5 16:31
好用记得评分，谢谢！Sub 替换()
    Application.ScreenUpdating = False
    Dim MyPath, MyName, AWbN ...

大牛神啊，受俺一拜