excle不同单元格格式太多

《excle不同单元格格式太多》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、cuidc高级书童终极解决EXCEL“不同单元格格式太多”的问题浏览303次创建时间 2008-05-0800:32:13 ----作者崔德春----在英文版中的提示是Toomanydifferentcellformats.一旦出现这个问题，文件可能无法打开。微软的这个错误可以出现在EXCEL2003及以前的各个版本，却没法提出解决方案，实在愚蠢。微软只是在网站上说，系统给的限制应该足够了。废话，足够了还能有这个错误信息吗？很多表格合并后一直到“保存成功”都看不到任何警告，等打开就不行了，灾难啊。搜索中文网站一无所获，无非让你手

2、工修改格式。搜索2个多小时的英文网站，找到很多比较容易的解决方案。解决方案一：http://xlsgenreduction.arstdesign.com这里提供一个XlsgenStylereductiontool，2M$49.90美元。试用版每次处理一小部分，我这成功地修复一个文件。(有破解就好了)运行时把Workingfolder改成c:对处理过的文件再反复处理(如果是注册版应该一次解决).我发现试用版还悄悄把几处内容改为他们的广告.免费解决方案二：下载一个OPENOFFICE，打开后再保存成Excel格式，很多老外都这么说

3、，我没有实践过。OpenOffice.Org免费下载。方案三：一个文件用EXCEL07打开正常，存成2000格式后就打不开。那就用07打开，分成两（或三、四）部分存成2000格式。方案四：如果EXCEL文件能打开编辑，可以试验一下这个VB程序，从老外的网站上抄来的。(用EXCEL的运行宏功能)SubDeleteUnusedCustomNumberFormats()DimBufferAsObjectDimShAsObjectDimSaveFormatAsVariantDimfFormatAsVariantDimnFormat()A

4、sVariantDimxFormatAsLongDimCounterAsLongDimCounter1AsLongDimCounter2AsLongDimStartRowAsLongDimEndRowAsLongDimDummyAsVariantDimpPresentAsBooleanDimNumberOfFormatsAsLongDimAnswerDimcAsObjectDimDataStartAsLongDimDataEndAsLongDimAnswerTextAsStringNumberOfFormats=1000ReDi

5、mnFormat(0ToNumberOfFormats)AnswerText="Doyouwanttodeleteunusedcustomformatsfromtheworkbook?"AnswerText=AnswerText&Chr(10)&"Togetalistofusedandunusedformatsonly,chooseNo."Answer=MsgBox(AnswerText,259)IfAnswer=vbCancelThenGoToFinitoOnErrorGoToFinitoWorksheets.Add.Move

6、after:=Worksheets(Worksheets.Count)Worksheets(Worksheets.Count).Name="CustomFormats"Worksheets("CustomFormats").ActivateSetBuffer=Range("A2")Buffer.SelectnFormat(0)=Buffer.NumberFormatLocalCounter=1DoSaveFormat=Buffer.NumberFormatLocalDummy=Buffer.NumberFormatLocalDo

7、EventsSendKeys"{tab3}{down}{enter}"Application.Dialogs(xlDialogFormatNumber).ShowDummynFormat(Counter)=Buffer.NumberFormatLocalCounter=Counter+1LoopUntilnFormat(Counter-1)=SaveFormatReDimPreservenFormat(0ToCounter-2)Range("A1").Value="Customformats"Range("B1").Value=

8、"Formatsusedinworkbook"Range("C1").Value="Formatsnotused"Range("A1:C1").Font.Bold=TrueStartRow=3EndRow=16384ForCounter=0ToUBound(nF