怎么用宏对同一目录下的多个EXCEL进行相同操作

On Error Resume Nexta = Dir(ThisWorkbook.Path & "*.xls")For i = 1 To 100a = DirWorkbooks.Open Filename:=ThisWorkbook.Path & "" & asheets(1).Columns("E:E").Insert Shift:=xlToRightWorkbooks(a).Close savechanges:=TrueNext iEnd Sub