当前位置: 首页 > news >正文

网站开发公司的北京正规seo搜索引擎优化价格

网站开发公司的,北京正规seo搜索引擎优化价格,荥阳网站优化公司,wordpress rt 15主题今天同事提出需求要实现利用excel批量修改某文件夹下的图片重命名,衡量到各种条件,最后还是选择了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脚本可能需要管理员权限,具体取决于您系统的设置。如果遇到权限问题,请尝试以管理员身份运行脚本。

http://www.hkea.cn/news/594926/

相关文章:

  • 商城网站建设模板一份完整的营销策划方案
  • 推广网站建设网站权重查询工具
  • t型布局网站怎么做建设网官方网站
  • 哪个建设网站推广竞价托管公司
  • 网站建设傲seo网站是什么意思
  • 卢氏住房和城乡建设厅网站聚名网
  • 山东网站建设电话长沙靠谱的关键词优化
  • 山东营销型网站ip网站查询服务器
  • 什么网站上做奥数题企业培训课程清单
  • 龙岩优化seo是什么意思
  • 外贸网站建设源码软文怎么做
  • 文章列表页wordpress宁波seo资源
  • 获取网站访客qq 原理百度投诉中心人工电话
  • 企业网站制作查询百度电话怎么转人工
  • 杭州专业网站建设怎样创建网站
  • 网站建设报价表格式淘宝关键词优化技巧
  • 高端网站建设系统百度网盘登录入口官网
  • ps做网站顶部江苏网络推广公司
  • 源码做网站手机网站百度关键词排名
  • 网站关键词分隔网站链接提交
  • 福永营销型网站多少钱中国最新消息今天
  • 做网站4000-262-263网站排名优化软件有哪些
  • 网站双链接怎么做网络舆情监测平台
  • 企业网站建设制作百度网盘下载app
  • asp做一个简单网站网络营销就是seo正确吗
  • 移动wap站点公司网站设计图
  • 网站策划建设seo搜索排名影响因素主要有
  • 大型商业广场网站建设互联网推广方案怎么写
  • p2vr做的网站上传网络广告策划书范文
  • 2022年大连黄页优化搜索引擎营销