作者：乔山办公网日期：
返回目录：excel表格制作
1、先启动电脑上的Excel，我跟大家举例演示，就随便创百建了一个比较简单的表格，在C2单元格输入公式：="ren "&A2&".jpg "&B2&".jpg"，这是度一个字符链接公式，表示将A2单元问格的内容重命名为B2单元格的内容，回车得到结果，然后单元格填充完整个表格。
2、复制C列中的内容，不答包括标题，粘贴到一个记专事本中，保存类型选为所有类型，然后另存为bat文件。
3、将bat文件放到属与需要替换名称的文件，同一文件夹之内，双击执行即可。
rem 事先把excel表保存为a.csv或粘贴到记copy事本保存为a.csv
rem 批处理保存在你说的父文件夹zhidao运行
@echo off
for /f "tokens=1,2 delims=, " %%i in (a.csv) do ren %%i %%j
第一步，将需要修改扩展名百的excel文件复制到一个新文件夹内；
第二步，在此文件夹新建文本文档，命名度为“问批量修改扩展名.txt”，键入命令 ren *.xls *.txt （.TXT是你要改成的扩展名答，每段之间的空格为英文）回；
第三步，把“批量修改扩展名.txt”的扩展名修改为.bat（批处理文件），成为“批量修改扩展名.bat”；
第四步，双答击“批量修改扩展名.bat”便自动将XLS格式改为TXT。
Sub Sample()
Dim myFile, myDoc As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.Title = "Select the Path of Docs"
.AllowMultiSelect = False
myFile = .SelectedItems(1)
End With
myDoc = Dir(myFile & "\" & "*", vbDirectory)
Do While Len(myDoc) <> 0
If GetAttr(myFile & "\" & myDoc) = vbDirectory And myDoc <> ".." And myDoc <> "." Then
Name myFile & "\" & myDoc As myFile & "\" & "更改名"
Debug.Print myDoc
End If
myDoc = Dir
Loop
End Sub