提取工作表的图片

879851984 · 发表于 2024-5-31 11:13

本帖最后由 879851984 于 2024-5-31 11:53 编辑

求大神帮忙，需求把图片以A列的名称命名保存到文件夹，文件中只是举例，原数据比较多。

tanglf188 · 发表于 2024-5-31 11:21

把扩展名改为ZIP双击打开

在xl\media文件夹下，解压到你指定路径即可

879851984 · 发表于 2024-5-31 11:27

tanglf188 发表于 2024-5-31 11:21
把扩展名改为ZIP双击打开

在xl\media文件夹下，解压到你指定路径即可

谢谢你，可以是可以，但是命名都带image，可以帮忙用代码完成吗？

cidanji · 发表于 2024-5-31 11:49

879851984 · 发表于 2024-5-31 11:53

已解决谢谢：cidanji老师。

limonet · 发表于 2024-5-31 12:56

关键字：Expand-Archive

limonet · 发表于 2024-5-31 12:57

Sub limonet()
CreateObject("wscript.shell").Run "powershell (push-location " & ThisWorkbook.Path _
& ");ren limonet.xlsx limonet.zip;(Expand-Archive limonet.zip 001); ren limonet.zip limonet.xlsx;dir .\001\xl\media " _
& "| % {ren $_.fullname -NewName ($_.fullname -replace 'image','') -passthru} | % {move $_ Image} ;del 001 -recurse", 0
End Sub

ykcbf1100 · 发表于 2024-5-31 13:17

limonet 发表于 2024-5-31 12:56
关键字：Expand-Archive

你这个是多能的嘛，图片导出也行啊。可惜一般人学不了。

limonet · 发表于 2024-5-31 13:24

ykcbf1100 发表于 2024-5-31 13:17
你这个是多能的嘛，图片导出也行啊。可惜一般人学不了。

谦虚了，你肯定做的更好。

		自动登录	找回密码
密码			免费注册

[已解决] 提取工作表的图片

评分

浏览过的版块