多个文件夹内查找图片

Again123456

小小晶enjoy 发表于 2025-4-9 00:05
请问这个是VBA嘛？

这是wps js宏，可以把代码复制到deepseek翻译成vba宏。抱歉，我电脑里没装vba

小小晶enjoy

Again123456 发表于 2025-4-9 11:11
这是wps js宏，可以把代码复制到deepseek翻译成vba宏。抱歉，我电脑里没装vba

好的，谢谢你~

Again123456

小小晶enjoy 发表于 2025-4-10 00:12
好的，谢谢你~

1.rar (887.98 KB, 下载次数: 7)

2025-4-11 10:15 上传

点击文件名下载附件

好长时间没写VBA，你试试能用不？

yangqianming

Again123456 发表于 2025-3-28 23:02

原来您帮我写了一个伙食退费明白卡，插入照片还有那么多数据感觉速度超快，今天测试了一下这个只插入图片感觉卡得很，是不是没找一个图片都要遍历所有文件夹一次的原因呢？

yangqianming

Again123456 发表于 2025-3-28 23:02

如果把表设计成这样（待嵌入图片多的话）怎么写会快些，您能写一下吗？ 插入图片.rar (349.97 KB, 下载次数: 2)

2025-7-17 10:19 上传

点击文件名下载附件

Again123456

yangqianming 发表于 2025-7-17 10:20
如果把表设计成这样（待嵌入图片多的话）怎么写会快些，您能写一下吗？

1. function insPic(){
   
2.         let arr = Range('a1').CurrentRegion().slice(1)
   
3.         arr.forEach(([cl,name],i) => {
   
4.                 let path = `${ThisWorkbook.Path}/${cl}班照片/${name}.jpg`
   
5.                 FileSystem.Exists(path) && Range(`c${i+2}`).RangeEx.InsertCellPicture(path)
   
6.         } )
   
7. }

复制代码

Again123456

yangqianming 发表于 2025-7-17 10:20
如果把表设计成这样（待嵌入图片多的话）怎么写会快些，您能写一下吗？

插入图片.rar (410.99 KB, 下载次数: 5)

2025-7-17 11:15 上传

点击文件名下载附件

两种方法：
1、仅限于固定的文件结构和只支持JPG
2、功能强大，只要在本文件夹的父文件夹内所有图片都支侍



1速度应该也快不了多少

yangqianming

Again123456 发表于 2025-7-17 11:18
两种方法：
1、仅限于固定的文件结构和只支持JPG
2、功能强大，只要在本文件夹的父文件夹内所有图片 ...

谢谢老师的代码，第一个速度快，但就是只支持.jpg格式，第二段速度慢，还有图片从属性中看是JPG格式但也识别不了。

Again123456

yangqianming 发表于 2025-7-17 16:00
谢谢老师的代码，第一个速度快，但就是只支持.jpg格式，第二段速度慢，还有图片从属性中看是JPG格式但也 ...

..............

Again123456

yangqianming 发表于 2025-7-17 16:00
谢谢老师的代码，第一个速度快，但就是只支持.jpg格式，第二段速度慢，还有图片从属性中看是JPG格式但也 ...

插入图片.rar (414.88 KB, 下载次数: 6)

2025-7-18 09:53 上传

点击文件名下载附件

给你做成一层通用和多层通用，功能越强速度肯定越慢，应该也差不了多少吧