Question

如何用vbs批量修改多个Excel表里某个工作簿里的特定单元格内容？

我有好多个Excel表，每个表的格式都是一样的，每个表有很多工作簿，现在要把所有Excel表3-8喷射砼工作簿里F31单元格的内容改为C30，求大神告诉我怎么做，如何用VBS快速完成





Answer 1

其实整体这个问题的思路很明了
首先就是提取文件路径，然后禁止屏幕刷新等，
再是做DO WHILE LOOP循环语句，打开每个文件进行修改
最后保存、关闭修改文件
代码如下：
Sub 提取()
Dim myPath, myFile
myPath = ThisWorkbook.Path & "\" '给路径
myFile = Dir(myPath & "\*.xls") '提取一个文件名
Application.ScreenUpdating = False '关闭屏幕刷新
Application.DisplayAlerts = False '禁用所有事件
Do While myFile > "" '当文件名不为空循环
Workbooks.Open myPath & myFile '打开目录中的一个文件
ActiveWorkbook.Sheets("3-8喷射砼").Range("F31") = "C30" '激活表：3-8喷射砼，并修改F31单元格数据为：“C30”
ActiveWorkbook.Save '保存打开的工作簿
ActiveWorkbook.Close '关闭打开的工作簿
myFile = Dir '再用dir函数提取一个文件名
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

已经测试过，通过了的。

望采纳，谢谢！

Answer 2

dim eapp, ebook, esheet,iset eapp=createobject("excel.application")for i=1 to 30 set ebook=eapp.open("201901" & format(i,"00") & ".xlsx") for each esheet in ebook.sheets esheet.cells(1,6).value = "检查日期：2018年3月" next ebook.save ebook.closenexteapp.quit

追问

运行不了，哥

Answer 3

对要写代码才可以实现！