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