『壹』 求EXCEL VBA批量修改文件名的代码示例
办公室有个批量更改照片的占个位置明天上班再贴半夜懒重写了。
目标：为学员照相导入电脑并批量修改为学号加姓名
1、首先建立一个EXCEL表其中第一个工作薄名称为照相顺序表如下图
Sub照片重命名()
IfMsgBox("程序将重命名与本工作薄同目录下的所有照片文件，确认这样做么？",vbYesNo)<>6Then
ExitSub
EndIf
DimoldnameAsString'旧文件名变量oldname
DimnewnameAsString'新文件名变量newname
DimphotopathAsString'路径变量photopath
DimnophotoAsString'错误提示变量nophoto
DimiAsInteger'循环变量i
photopath=ThisWorkbook.Path'为要修改的文件名路径复制为当前excel文件的路径
Fori=2ToWorksheets("照相顺序表").Range("a65536").End(xlUp).Row'开始循环从“照相顺序表”工作薄的a2单元格开始
'为新文件名变量赋值为路径变量&&照相顺序表工作薄中的a2&b2单元格内容加上扩展名.jpg
newname=photopath&""&Worksheets("照相顺序表").Cells(i,1).Text&Worksheets("照相顺序表").Cells(i,2).Text&".jpg"
'为旧文件名变量赋值为路径变量&&照相顺序表工作薄中的c2单元格内容&扩展名.jpg
oldname=photopath&""&Worksheets("照相顺序表").Cells(i,3).Text&".jpg"
'判断旧文件名是否在当前目录存在
IfDir(oldname)<>""Then
NameoldnameAsnewname'存在则改名
Else
nophoto=nophoto&Chr(10)&oldname‘不存在则将其赋值给错误提示变量并以回车分割累加
EndIf
Nexti
Ifnophoto<>""Then
MsgBoxnophoto&Chr(10)&"图片不存在"’存在错误提示则弹出错误提示框
EndIf
EndSub
备注是刚添加的希望有所帮助，另外求分谢谢。
『贰』 批量更改文件夹下所有指定类型文件的扩展名的VBA代码
PrivateSubWorkbook_Open()OnErrorResumeNextthepath=InputBox("文件所在路径：")Setfso=CreateObject("scripting.filesystemobject")ForEachfilInfso.getfolder(thepath).FilesIfRight(fil.Name,3)="jpg"Thenfil.Name=Left(fil.Name,Len(fil.Name)-3)&"BMP"EndIfNextEndSub
『叁』 EXCEL2007扩展名与旧版不同在VBA中如何区分和处理
可以先判断后打开 Dim a As Stringa = "E:\Project\a.xlsx"If Mid(a, Len(a), 1) = "s" ThenMsgBox "2003版或之前文件"ElseMsgBox "2007版文件"End IfWorkbooks.Open a
『肆』 如何用vba修改文件后缀名或扩展名
Name "z:1.txt" As "z:2.txt"
『伍』 VBA中打开一个由变量传递的文件名
把文件名放进工作表中，选中单元格执行以下函数，就可以打开相应当单元格中的文件，代码使用了FN变量保存文件名，当前单元格值通过ActiveCell.Value得到，Workbooks.Open为打开EXCEL文件的过程，代码如下：
SubOpenFile()DimFNFN=ActiveCell.ValueWorkbooks.OpenFilename:=FNEndSub
效果如下：
『陆』 用VBA批量修改Excel文件类型
可以用VBA分别打开每个文件然后再把这个文件另存为相应的版本，然后再用程序或者手工删除原来版本的文件
『柒』 excel怎么批量修改扩展名
第一步，将需要修抄改扩展名袭的excel文件复制到一个新文件夹内；第二步，在此文件夹新建文本文档，命名为“批量修改扩展名.txt”，键入命令 ren *.xls *.txt （.TXT是你要改成的扩展名，每段之间的空格为英文）；第三步，把“批量修改扩展名.txt”的扩展名修改为.bat（批处理文件），成为“批量修改扩展名.bat”；第四步，双击“批量修改扩展名.bat”便自动将XLS格式改为TXT。
『捌』 EXCEL中用VBA重命名文件名的问题：
有一个批处理的:@echo offecho 正在替换文件名，请稍等…… ren AA.xls BB.xls #说明：把AA文件名替换成BB文件名 echo 替换文件名完成!echo. & pause另存为.bat，执行替换即可。ren语句可以增加，在excel中做好，另存为txt，再存为bat即可，注意空格。在当前目录下，dos命令：dir/b>1.txt 可以获得文件名
『玖』 用vba如何导入一个文件夹里的文件绝对路径(包含扩展名)到excel里
Sub MMM()Dim myPath$, myFile$, i&Application.ScreenUpdating = FalsemyPath = "D:\新建文件夹" & "\"myFile = Dir(myPath & "*.*")Do While myFile <> ""i = i + 1Cells(i, 1) = myPath & myFilemyFile = DirLoopApplication.ScreenUpdating = TrueEnd Sub
『拾』 VBA 隐藏文件后缀
Windows("报表.xls").Activate 用在excel文件后缀名没有隐藏（在打开的文件夹中选择 工具->文件夹选项->查看->隐藏已知类型的扩展名 不打勾)的情况下可以正常运行，如果excel文件后缀名隐藏，运行就会出错，如何用vb代码判断excel文件后缀名是否隐藏。也就是如以下方式：Workbooks.Open ("报表.xls")if 文件后缀名隐藏 thenWindows("报表").ActivateesleWindows("报表.xls").Activateendif
