- 如何批量插入excel工作表现在由于工作需要，要求在大量exce
- 现在由于工作需要，要求在大量文件中的某两个工作表中间插入同一种格式的工作表，由于excel文件较多，一个一个文件打开插入工作量大，可不可以批量插入，请各位大侠不吝赐教！！！
PS：假设，我有100个EXCEL文件，名称分别为1.xls,2.xls......100.xls 每个文件中对应Sheet1、Sheet2、Sheet3工作表，要求在Sheet2、Sheet3工作表中间插入一个工作表Sheet4。
- Sub AddNewSht()
Dim Fl, i%
Fl = Application.GetOpenFilename("Excel文件,*.xls", , "请选择要添加工作表的工作簿", , True)
For i = 1 To UBound(Fl)
Workbooks.Open Fl(i)
With ActiveWorkbook
.Sheets.Add before:=Sheets("Sheet3")
.Close True
End With
Next
End Sub