[VBA接力赛第2期]批量更改文件名[已总结]

lpz001

<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';">大家的热情已经被点燃，我再不出题就是罪人了，但鉴于</span><span lang="EN-US"><font face="Times New Roman">qee</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';">用大师完美的开场，我……</span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';">我硬着头皮上吧，抛块砖引后面的玉！</span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';">题目是论坛里的一个求助，我当时没想出答案，就帮他顶了一下，第二天过来，贴被删了，为什么不知道，但是我想如果没有得到答案，他应该是很沮丧的。我愿望游弋在这片时空的都是天使，有强烈的求知欲，还有热情的助人精神！来，让我们的知识接力和爱心接力并行！</span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';"></span>&nbsp;</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';">他不小心将老板的EXCEL文件给删除了，找回来后就是如1.xls，2.xls，3.xls……这样的形式了，他希望能批量的给这些文件更名，因为量大吧。更名的原则是：这个工作薄中Sheet1工作表Cells(1,1)单元格的内容，做为这个工作薄的名字。例：1.xls工作薄Sheet1工作表Cells(1,1)单元格的内容是“大家好”，那么1.xls就更名为---大家好.xls。</span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';"></span>&nbsp;</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';">具体我也提不出什么要求，我自认我做出的答案很差，所以滥用了一下这个权力，希望看到更多更精彩的答案。大家多注意细节问题，比如单元格的内容不能做文件名怎么办？界面人性化一点等等，这就算要求吧！</span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';"></span>&nbsp;</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';">大侠们，我的题不难吧，只要大家能完成更名这个功能，就有金币哦！</span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';"></span>&nbsp;</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';">我的邮箱<a href="mailto:zlp0371@163.com">zlp0371@163.com</a></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';"></span>&nbsp;</p>[em04]

[此贴子已经被qee用于2007-3-30 0:12:18编辑过]

qee用

<p>题目很好嘛[em17]</p><p>辛苦了.</p><p>答题时间暂定1周吧,截止3月28日17:00.</p>

[此贴子已经被作者于2007-3-21 22:21:29编辑过]

lpz001

<p>在不在同一目录下，文件数量，名称是不是连号，我想都不确定吧（我没有这个经历），自由发挥吧！就是想看谁注意到的细节更多，界面越人性化越好。还有别忘了注释，我真的还很菜！只要能完成更名功能，就有金币！其实就想让您多发点金币！！！</p>

[此贴子已经被作者于2007-3-21 22:15:14编辑过]

qee用

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>lpz001</i>在2007-3-21 22:06:19的发言：</b><br/><p>在不在同一目录下，文件数量，名称是不是连号，我想都不确定吧（我没有这个经历），自由发挥吧！就是想看谁注意到的细节更多，界面越人性化越好。还有别忘了注释，我真的还很菜！只要能完成更名功能，就有金币！其实就想让您多发点金币！！！</p><br/></div><p></p>[em17]不拘常规!妙!

lpz001

<p>您把默认条件也抹啦，是不是还加上吧，因为我也不知道该如何处理？</p><p>默认条件：单元格里的内容不重复且符合命名要求</p><p>如果能突破这一要求加金币！</p>

element

<p>最大的难点应该就是Cells（1,1）里的字符是否符合文件命名规则要求</p><p>即，是否为空，或重复，或其他禁用字符</p>

[此贴子已经被作者于2007-3-22 9:17:22编辑过]

sunyujie

<p>感谢出题者。。</p>

dennisluo

<p>找我，，我可以</p><p>QQ：110930961</p>

戏子

<p>先支持一下</p><p>&nbsp;</p>[em01][em01][em01]

danielcm

<p>先交个实现功能的,有时间再改进.</p>