如何同时修改多张EXCEL表格

来源:百度知道 编辑:UC知道 时间:2024/07/04 20:29:04
我在一个文件下有100张电子表格,在这些表格的同一个地方要做同时修改,分别的打开太慢了,有什么快的办法吗?如何操作?谢谢!

用VBA吧,自动依次打开指定文件夹下面所有excel文件,然后按你的要求去依次进行修改。
得知道你要进行什么修改才能说怎么具体怎么做。

下面这段代码实现:在“C:\Test”文件夹下面所有的Excel文件的Sheet1表的A2单元格写上三个字--文件名。
你可以根据自己的需求更改。
'==================================
Sub Temp()

Dim i As Integer
Dim strPath As String
strPath = "C:\test"
With Application.FileSearch
.LookIn = strPath
.SearchSubFolders = True
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Sheets("Sheet1").Range("A2") = "文件名"
ActiveWorkbook.Save
ActiveWorkbook.Close
Next i
End If
End With

End Sub
'==================================

100张?不会吧。
按住ctrl键或shift键,点选左下角工作表标签,就组成了“工作组”,下面就开始改吧。

EXCEL还有楼上这样的用法 长知识了

按住ctrl键或shift键,点选左下