HEIP

bee_summer · 发表于 2003-8-29 16:04

我有一个文件夹名为1999，其中存有50个表格，分别命名为1999年1月份资产负债表、1999年2月份资产负债表。。。。。。。现在我想：能否将此50个表格名称中的1999同时去掉？因为每一个修改的话，太麻烦了。

bee_summer · 发表于 2003-9-1 09:44

真的没人能帮我吗？

jls · 发表于 2003-9-2 19:05

以下是引用bee_summer在2003-9-1 9:44:00的发言： 真的没人能帮我吗？

可能别人不清楚您在用什么做报表，如果您真的在WORD下制作，那就十分麻烦。我建议您最好在EXCEL下制作资产负债表之类的报表，这样您只须生成一个文件，就能在此文件下编辑255张表，改起来也方便得多。

bee_summer · 发表于 2003-12-9 17:11

我是在EXCEL中进行的。文件夹名为1999，其中已有今年1月到10月份的10个文件，分别命名为：19991月份资产负债表、19992月份资产负债表。。。。。。以此类推。因我的领导在查找文件时说文件名太长很不方便，所以我想能否可以直接对文件命名为：1月份、2月份。。。。。。等等。

hooh · 发表于 2003-12-9 21:54

上传个例子好吗！

bee_summer · 发表于 2003-12-10 11:10

以下是引用hooh在2003-12-9 21:54:00的发言： 上传个例子好吗！

N8CP87Rt.rar (21.24 KB, 下载次数: 17)

hooh · 发表于 2003-12-10 13:52

是word文档呀！不清楚可能只有用Ｆ２了！

冷冷的雪 · 发表于 2003-12-10 15:48

有个叫拖把更名器的小软件，你这样的要求它完全能够达到。我用过也是批量改了一大堆以前头疼的文档。去华军下一个吧

cxffxc · 发表于 2003-12-10 17:58

进入DOS或命令行状态下,进入该文件夹,输入ren 19991*.xls 1*.xls 假定文件都是XLS文件,其他文件参照进行.

守柔 · 发表于 2003-12-11 08:34

to bee_summer: 请参考： Sub filename() Dim fso, fdr, f, i, OldName, NewName Set fso = CreateObject("Scripting.FileSystemObject") Set fdr = fso.GetFolder("D:\my files\huiyi") Set f = fdr.Files For Each i In f OldName = fdr & "\" & i.Name: NewName = fdr & "\" & Mid(i.Name, 3) Name OldName As NewName Next i End Sub 复制粘贴以上代码，你所要做了，只是修改其中的文件夹位置（名称），即示例中：“d:\my files\huiyi",以及NewName后面的Mid(i.Name,3),3这个数字，即如果要将1999年五个字去掉，则改为6。你可试一下，有什么问题再联系。

		自动登录	找回密码
密码			免费注册

HEIP

请看这儿！