Excel 2003另存为新工作簿时，去除模块里的宏，其实只需这一句。

山菊花

试试：
Sub 另存为XML表格()
    Dim cPath$, cFile$
    Application.DisplayAlerts = False
    cPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" '将文件保存到桌面
    cFile = cPath & Format(Now, "yyyymmddhhmmss_") & ThisWorkbook.Name  '文件名（伪装的扩展名）
    ThisWorkbook.SaveAs Filename:=cFile, FileFormat:=xlXMLSpreadsheet '另存为
    ThisWorkbook.Close False '退出
    Application.DisplayAlerts = True
End Sub

jbjbzjb

山菊花 发表于 2013-11-22 20:28
试试：
Sub 另存为XML表格()
    Dim cPath$, cFile$

这似乎是个好方法。不知得到的工作簿有没什么格式上的缺陷。

shenghua8

香川群子 发表于 2013-11-22 20:28
楼主怎么知道我2012年的回帖？ 我自己都忘了……

嗯，是的，就是搜索那个 sheets.copy 得到的结果。

czc552

论纯属发表者个人意见，任何违

shenghua8

山菊花 发表于 2013-11-22 20:28
试试：
Sub 另存为XML表格()
    Dim cPath$, cFile$

总版主好！
我只知道DOC存成XML能去除密码，在EXCEL上试过但好像没成功。
今天竟然又学了一个EXCEL存为XML还有去除VB项目、自选图形、其他对象或图表的功能。
您真是太牛了！超牛！
我手工另存试了一下，果然好用，那效果是相当、相当的好。

还有，一直未能当面感谢您，去年间接的给我的帮助，事情是这样：
我试图找出姓名、地址等内容里的每个生僻字，也就是将含有GB2312的6763个汉字之外的姓名、地址挑出来，其中地址中含有全、半角数字、括号等忽略。我不想直接给它用宏，因为用宏的话，在6763个汉字基础上再加上不排除的数字、符号等不是很灵活。我想用高级筛选，再用宏来执行高级筛选。
可是，按我实验得出的结论是高级筛选的公式不能是数组公式。
于是，我努力寻找不是数组的公式。找了好久，最后在别人帖子中您几年前的一个回复里得到了启发，
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=340442&pid=2177229
我将您的公式改改，很快就有效果了。
虽然，后来我觉得针对我的需求套用这个公式慢了点，我又自己憋出一个稍快点的公式。
但是，有了您若干年前那个公式的引导，让我有了初步成就感，就是那种几乎要放弃却又突然豁然开朗的感觉。

就像您这个回复得到的效果：只有咱们想不到的，没有高手做不到的。
破除了某些只会龇牙咧嘴的人“望洋兴叹”的愚论。

shenghua8

liucqa 发表于 2013-11-22 18:24
其实没人和你争论，都是自娱自乐罢了

只动手不动脑的家伙！
我现在急需解决一个问题：
整列文本求“众数”，列中除了文本还有空白单元格。
尽量用公式（而且还不能是数组公式），我要用它作为高级筛选的条件。
不能出现“#NUM!”等错误值。

别只顾得灌水，你拿行动来证明一下，先。
这对于你这样的导导来说，是顺手的事，没必要叫我在公式区单独发贴了。也不要将别人的公式“导”来。

shenghua8

唉！
想想还是不怎么痛快。
那种自己没本事只能“望洋兴叹”的人，本来是来我帖子里，他自己脑残一把的，结果顺手学到了总版主的经验。
这次我亏大了。

（不是说某个学导的，你并不傻，别对错了号）

老谭酸菜

“众数”？ 俺不懂。刚才百度了一下。原来就是出现次数最多的那个值。
上个附件让我等小白菜练习一下？

liucqa

shenghua8 发表于 2013-11-22 22:51
只动手不动脑的家伙！
我现在急需解决一个问题：
整列文本求“众数”，列中除了文本还有空白单元格。

从小老师就教导我们，自己的事情自己做。

当然，技术交流除外...

你这个不在俺的技术兴趣范围之内，去函数版发贴吧，这里是VBA版

shenghua8

liucqa 发表于 2013-11-22 23:19
从小老师就教导我们，自己的事情自己做。

当然，技术交流除外...

就知道，靠不住。在分类版块发表问题，这是坛规，谁都懂。本来指望你能顺手一下，又是推三阻四。

说你不傻吧，你还偷着乐。
还来考验我，还打开XLSM另存XLSX，再打开XLSX再别存XLS，
前提给你说了在纯2003环境下，连2007兼容包都没有，
你还任何手工操作的都能通过VBA实现，在没有2007及以上的环境里你来给我实现一个看看。

我说东，你说西，你非得拿2007及以上的环境来考虑，如果是那样的话，手工操作都能VBA实现谁不知道呀，如果都用现有文件名，仅录制宏就能实现，还考验我来写。如果手工指定文件名，配合InputBox。如果动态存储文件名，利用时间的变化也行。如果批量生成文件名，用单元格的Value都算是一个办法。