求助,怎么批量把一个文件下的多个EXCEL文件中的照片提取出来，以文件名命名

475012621

wanghan519 发表于 2023-3-24 06:06
另存成html，删除不要的文件，图片改名
发现了一个问题，另存为html后，所有图片都多了一个缩略图，而另存 ...

所在位置 行:1 字符: 54
+ 获取子项 *.xls* |% {$n=$_.BaseName;$wb=$xl.Workbooks.Open（$_.全名）;$wb.Save ...
+                                                      ~~~~~~~
表达式或语句中包含意外的标记“（$_.全名）”。
所在位置 行:1 字符: 72
+ ... b=$xl.Workbooks.Open（$_.全名）;$wb.SaveAs（（$_.FullName+“.html”）， 44）;$wb ...
+                                           ~~~~~~~~~~~~~~~~~~~~~~~
表达式或语句中包含意外的标记“（（$_.FullName+“.html”），”。
所在位置 行:1 字符: 106
+ ... ks.Open（$_.全名）;$wb.SaveAs（（$_.FullName+“.html”）， 44）;$wb.关闭（）;删除项目 （$ ...
+                                                                ~~
表达式或语句中包含意外的标记“（）”。
所在位置 行:1 字符: 154
+ ... ）， 44）;$wb.关闭（）;删除项目 （$_.全名+“.html”）;获取子项（$_。全名+“.文件”） |% {if （$_.Bas ...
+                                                                  ~
if 语句中的“if”后面缺少“(”。
所在位置 行:1 字符: 227
+ ...  -match '^image'） {$_ |重命名项目 -新名称 {$_.Name -replace '^image'， $n}} el ...
+                                                                 ~
表达式或语句中包含意外的标记“，”。
    + CategoryInfo          : ParserError: (:) [], ParentContainsErrorRecordException
    + FullyQualifiedErrorId : UnexpectedToken

wanghan519

怎么会粘贴出中文？
要不就用3楼的代码，打开你的xls，打开开发工具，visualbasic，插入，模块，粘贴代码，就可以用宏了

475012621

wanghan519 发表于 2023-3-24 12:25
怎么会粘贴出中文？
要不就用3楼的代码，打开你的xls，打开开发工具，visualbasic，插入，模块，粘贴代码 ...

Remove-Item : 找不到接受实际参数“$_.Name-replace '^image', $n”的位置形式参数。
所在位置 行:1 字符: 236
+ ... tch '^image') {$_ |Remove-Item {$_.Name-replace '^image', $n}} else { ...
+                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidArgument: (:) [Remove-Item]，ParameterBindingException
    + FullyQualifiedErrorId : PositionalParameterNotFound,Microsoft.PowerShell.Commands.RemoveItemCommand

475012621

wanghan519 发表于 2023-3-24 12:25
怎么会粘贴出中文？
要不就用3楼的代码，打开你的xls，打开开发工具，visualbasic，插入，模块，粘贴代码 ...

目前就只有这个问题了，照片也能提取出来了

wanghan519

475012621 发表于 2023-3-24 14:43
目前就只有这个问题了，照片也能提取出来了

出错的地方应该是个rename-item而不是remove-item而且后面的-replace前面有个空格，其实直接复制代码，右键粘贴过去就行的
而且这种方式有点缺陷就是多了几张缩小的图片，当然可以通过分析html正确的重命名图片，也可以改成存为xlsx再解压的方式
总之如果你执着这种方法，就先看一下powershell的入门教程，代码很好懂的，就是：开一个Excel的com对象，把所有xls另存为html，然后删掉html，删掉files文件夹里不以image开头的文件，把image开头的文件重命名为xls文件的名字，最后关掉Excel，出错的就是重命名这一步写成删除了但还好没执行成功。。。