ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2613|回复: 32

小白请求指点

[复制链接]

TA的精华主题

TA的得分主题

发表于 2022-12-30 10:18 | 显示全部楼层 |阅读模式
纯小白,请教各位大佬,我现在已经有的是:

1.通过遍历文件夹,得到了F盘植物文件夹下所有图片的路径,一共77631行,对应77631张图,放于 图片名.txt 里。
2.有一个excel文件 - 植物最新统计 .xlsx,一共有2110行

想要实现的是:

以 植物最新统计 .xlsx里的F列的条目,每一条一个文件夹,在F:\处理 这个文件夹里建立2110个文件夹,然后用F列的条目做为关键词,在 图片名.txt 里搜索和关联对应的图片路径,把图片复制到F:\处理 对应的2110个文件夹里(每个条目对应的不止一张图片,而是很多张)。


请教要怎样才能实现?


两个文件都已经在附件里面了。




Desktop.rar

410.86 KB, 下载次数: 5

TA的精华主题

TA的得分主题

发表于 2022-12-30 10:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2022-12-30 10:54 | 显示全部楼层
为何要把图片名称路径放到txt文件里呢?放到excel中不是更方便写代码吗?人为在设置写代码的障碍??

TA的精华主题

TA的得分主题

发表于 2022-12-30 10:56 | 显示全部楼层
3190496160 发表于 2022-12-30 10:54
为何要把图片名称路径放到txt文件里呢?放到excel中不是更方便写代码吗?人为在设置写代码的障碍??

人家说了,是纯小白。
我感觉是在找代工。

TA的精华主题

TA的得分主题

发表于 2022-12-30 11:05 | 显示全部楼层
ykcbf1100 发表于 2022-12-30 10:56
人家说了,是纯小白。
我感觉是在找代工。

我也有这种感觉啊,

TA的精华主题

TA的得分主题

发表于 2022-12-30 11:12 | 显示全部楼层
本帖最后由 3190496160 于 2022-12-30 15:25 编辑

删除我的代码,

TA的精华主题

TA的得分主题

发表于 2022-12-30 11:16 | 显示全部楼层
本帖最后由 3190496160 于 2022-12-30 15:26 编辑

请忽略我的附件

Desktop.rar

424.13 KB, 下载次数: 6

TA的精华主题

TA的得分主题

发表于 2022-12-30 11:18 | 显示全部楼层
本帖最后由 3190496160 于 2022-12-30 11:21 编辑

只写了创建文件夹的代码,供参考
拷贝图片的问题,没有必要如你这版复杂的:
1、目前把图片名称路劲放到一个txt文件里面,纯粹是多余,也增加写代码的难度,特别是增加代码运行的时间,
2、代码直接遍历图片所在文件夹,判断拷贝即可。
3、没有相应的图片,也没法测试代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-12-30 11:36 | 显示全部楼层
3190496160 发表于 2022-12-30 10:54
为何要把图片名称路径放到txt文件里呢?放到excel中不是更方便写代码吗?人为在设置写代码的障碍??

啊,因为我不懂怎么用vba遍历,试了很多方法都遍历不出来啊,最后用cmd dir/s/b>图片名.txt F:\植物 这样遍历出来了。

确实不是在找代工,确实是完全不懂啊大神。

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-12-30 11:37 | 显示全部楼层
ykcbf1100 发表于 2022-12-30 10:56
人家说了,是纯小白。
我感觉是在找代工。

不是在找代工,真的完全不会啊!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-25 15:09 , Processed in 0.036752 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表