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

jbb0410 · 发表于 2019-9-5 15:48

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

约定的童话 · 发表于 2019-9-5 16:31

本帖最后由约定的童话于 2019-9-6 08:28 编辑

好用记得评分，谢谢！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 · 发表于 2019-9-5 16:53

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

fewly · 发表于 2019-9-10 14:45

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

收藏了，谢谢！

gourmetszy2019 · 发表于 2019-12-10 11:02

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

大牛神啊，受俺一拜

		自动登录	找回密码
密码			免费注册