VBA批量修改多工作簿的指定工作表指定单元格的值

mozhile · 发表于 2017-10-11 12:49

本帖最后由 mozhile 于 2017-10-11 15:03 编辑

如要把多个表格里指定单元格的内容填写为当前日期，需要如何操作呢？如被案例中的E9单元格，请大神指导，

已解决

Sub 加日期()
fl = Dir(ThisWorkbook.Path & "\文件所在文件夹名\*.xls")
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Do While fl <> ""
      Set wb = Workbooks.Open(ThisWorkbook.Path & "\文件所在文件夹名\" & fl)
      wb.Worksheets(1).Range("E9") = Date
      wb.Close True
      fl = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

xiaodon9 · 发表于 2017-11-13 16:54

duquancai 发表于 2016-11-4 12:34
附件，打开，按钮》》》》》》

功能二不能实现嘛。没得指定的宏吧

大香蕉 · 发表于 2018-10-15 23:29

怎么没法用呢，第二个功能是先不了

DDBB2008 · 发表于 2019-3-15 09:45

这个厉害了

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

[求助] VBA批量修改多工作簿的指定工作表指定单元格的值

最新热点 /1