如何用<em>excel</em>给文件批量重命名-ren excel,ren

@echo off&&goto start
先制作好Excel模板,也就是你说第一个文件了.改名为"工作模板.xls"
然后把所有要改的物料名一行一个的格式写7a64e59b9ee7ad94334入记事本里,改名为"物料.txt"
运行以下批处理就可以读取"物料.txt"的内容制作出你要的物料名的Excle工作表了.
注：请把"工作模板.xls" "物料.txt" "本批处理" 存放在一起

以下为"物料.txt"中的例子内容，记得是一行一个啊物品啊。
------------------------------
芝麻
绿豆
东瓜
豆腐

:start
if not exist %~pd0物料.txt goto :没文件
for /f "delims=" %%i in (物料.txt)do copy "工作模板.xls" "%%i.xls"
echo 成功创建了文件&&ping -n 3 127.1>nul&&exit /b

:没文件
setlocal enabledelayedexpansion
set txt=噢！你的“物料.txt” 文件都没制作出来，先制作文件后重新运行这批处理吧。
for /l %%i in (0,1,40)do cls&&set out=!out!!txt:~%%i,1!&&echo !out!&&ping -n 1 127.1>nul
pause>nul

原来文件名称复制到A2以下单元，再复将新文件名称录入到B2以下单元，执行宏：
Sub 批量修改制文件名()
a = [a:a].Find("*", , xlValues, , , 2).Row 'A列最后可见单元的行号百
For b = 2 To a
c = Range("a" & b).Value
cc = Range("b" & b).Value
Name "e:\图片\" & c As "e:\图片\" & cc
Next
End Sub
请注意修改使用上述代码中度的文件路径。
excel工作表批量7a64e58685e5aeb9363重命名的方法   
2011-10-14 21:58:10|  分类： VBA |  标签： |字号大中小 订阅  
 excel工作表重命名的方法有下面几种：  
  第一，单击菜单“格式”——“工作表”——“重命名”。   第二，单击工作表标签，右键选择“重命名”。   第三，双击工作表标签，直接对工作表重命名。 
  上面三种方法，都可以对Excel工作表重命名，不过都是一个一个工作表分别重命名。 
  如何做到excel工作表批量重命名呢？有下面两种方法，供参考： 
  第一种：利用Excel工作表现有单元格内容进行批量重命名。 
  例如：Excel工作表默认标签为sheet1,sheet2,sheet3,sheet4。如何快速重命名为1月
销售表,2月销售表,3月销售表,4月销售表。 
  sheet1工作表A1:A4单元格内容是1月销售表,2月销售表,3月销售表,4月销售表。  
  方法：按下ALT+F11，打开VBE窗口，单击插入——模块，复制下面代码，并运行。 
Sub 按A列数据修改表名称() 
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息 
Application.Calculation = xlCalculationManual     '手动重算 
    Dim i% 
    For i = 1 To Sheets.Count         Sheets(i).Name = Cells(i, 1).Text 
    Next 
On Error GoTo 0          '恢复正常的错误提示 
Application.Calculation = xlCalculationAutomatic  '自动重算 
End Sub 
  第二种：直接批量重命名Excel工作表。 
Sub 新工作表名()     Dim i As Long 
    Application.ScreenUpdating = False     For i = 1 To Worksheets.Count         Worksheets(i).Name = "报表" & i 
    Next i     Application.ScreenUpdating = True 
End Sub 
  上面5种方法，想必能帮你解决Excel工作表批量重命名的问题。

这个有两个办法，一个是使用vba，另外一个是使用 windows下的 cmd下的bat文件。
后者百比较简单(需要一定的dos知识)。
1、 使用cmd 进入命令行模式度；
2、使用 cd 命令切换到存放excel工作簿的文件夹，参考
dir *.* >1.txt
获得所有文件名称的列表文件 1.txt
3、使用excel打开 1.txt文件 （复制粘贴也可以）知
稍微处理下就能获得 相应的 文件列表
4、在第一列输道入 ren 然后下拉与第二列等行
在第二列将步骤版3中获得的名称粘贴进去
在第三列放置新文件名
5、将第四步获得的内容 复制 粘贴到一个打开的txt 文件中，然后另存为 xx.bat
6、将xx.bat文件放置在权 excel工作簿所在目录并运行它即可。