分类：电脑/网络-软件-办公软件
问题：如何批量插入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