如何把工作表按表名变成一个个单独文件

Alt+F11

左侧选择ThisWorkBook，右侧粘贴如下代码，然后执行。如果是Excel07和10，则改xls为xlsx。

Sub lingcun()
 For i = 1 To Sheets.Count
    na = Sheets(i).Name
    Sheets(i).Copy
    With ActiveWorkbook
       .SaveAs Filename:="D:\" & na & ".xls"
       .Close
    End With
 Next
 End Sub
 

问题描述：开发的系统需要将DataGrdiView的数据导出Excel，首先用的是借助 microsoft.Office.Interop.Excel 来做，这种方法生成的Excel根本不是Excel，只不过扩展名是xls而已，所以打开的时候会提示“您尝试打开的文件**.xls的格式与文件扩展名指定的格式不一致”这是Excel的安全问题，暂时解决办法如下，取消Exce的安全检测。

长久对策：学习利用NPOI来实现Excel的导出，待成功后再与大家分享。

1、开始 -> 运行 -> 输入regedit -> 确定
2、找到注册表子项

HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security

3、在右侧空白处点击鼠标右键，选择“新建 -> DWORD值(D)”，输入"ExtensionHardening"点击确定。
4、用鼠标右键点击ExtensionHardening，然后单击“修改（M）”，在数值数据中填写"0"即可确定。
5、关闭注册表编辑器，再次打开xls文件看看是不是提示是不是不见了？
拓展：ExtensionHardening设置的值的数据设置：
0：不检查文件扩展名和文件类型并绕过该函数的警告消息。
1：检查文件扩展名和文件类型。如果它们不匹配会显示警告消息。
2：检查文件扩展名和文件类型。如果它们不匹配不要打开该文件。

转载来源：http://club.excelhome.net/thread-718844-1-1.html   http://www.cnblogs.com/zlytu/archive/2011/11/02/2232736.html