如何将1个excel文件中的100个工作表拆分成独立的excel文件

用宏。
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Copy
ActiveWorkbook.SaveAs "F:\temp\" & ActiveSheet.Name & ".xls"
ThisWorkbook.Activate
Next i
End Sub

在此界面直接按F5运行此宏，完成。