科技公司手机端网站,互联网广告投放平台加盟,建筑网360,现在个人做网站还能盈利吗今天同事提出需求要实现利用excel批量修改某文件夹下的图片重命名#xff0c;衡量到各种条件#xff0c;最后还是选择了vbs来实现。代码如下
代码 创建Excel对象
Set objExcel CreateObject(Excel.Application)
objExcel.Visible False 隐藏Excel窗口 打开Ex…今天同事提出需求要实现利用excel批量修改某文件夹下的图片重命名衡量到各种条件最后还是选择了vbs来实现。代码如下
代码 创建Excel对象
Set objExcel CreateObject(Excel.Application)
objExcel.Visible False 隐藏Excel窗口 打开Excel文件
Set objWorkbook objExcel.Workbooks.Open(C:\路径\至\您的\Excel文件.xlsx)
Set objWorksheet objWorkbook.Worksheets(1) 获取Excel中的数据
row 2 从第二行开始跳过标题行
Do Until objWorksheet.Cells(row, 1).Value 获取文件名和新文件名oldFileName objWorksheet.Cells(row, 1).ValuenewFileName objWorksheet.Cells(row, 2).Value 构建完整路径oldFilePath C:\路径\至\您的\图片文件夹\ oldFileNamenewFilePath C:\路径\至\您的\图片文件夹\ newFileName 更改文件名Set objFSO CreateObject(Scripting.FileSystemObject)If objFSO.FileExists(oldFilePath) ThenobjFSO.MoveFile oldFilePath, newFilePathEnd Ifrow row 1
Loop 关闭Excel对象
objWorkbook.Close False
objExcel.Quit
Set objWorksheet Nothing
Set objWorkbook Nothing
Set objExcel Nothing
请将上述代码中的路径替换为您实际的Excel文件路径、图片文件夹路径并确保Excel文件格式正确以及图片文件存在。
要运行这个VBScript脚本您可以将代码保存为一个 .vbs 文件然后双击运行它。脚本将按照Excel文件中的文件名和新文件名来批量更改图片文件的名称。
请注意执行VBScript脚本可能需要管理员权限具体取决于您系统的设置。如果遇到权限问题请尝试以管理员身份运行脚本。
