快速整理员工图片的好方法

weiguoyin868 · 发表于 2012-3-11 20:08

本帖最后由 weiguoyin868 于 2012-3-18 19:50 编辑

最近公司组织所有员工近200多人照相，整理照片任务拍给了我，我发现照相师傅给我的照片，很多名字和照片对不上，要是一个一个在文件夹下更改很是累啊，工作还不止如此，对上名称后，每张照片的名字前还好加上员工编号，如张三，工号：0001，他的照片文件名最终是：0001-张三，开始想着一个一个去做，都把我愁死了。多亏在这里找了其他大师的相关帖子，找到了几个读取jpg文件的代码，拿来做了简单的改用，又用上了几个函数，如VLOOKUP（）、mid（），费了一下午的功夫，做个几个整理照片的功能，简单快捷，方便使用，感到效果出奇的好。特共享给大家来一享用。

该程序的作用是：

1、用EXCEL文件整理jpg图片文件，jpg文件用员工名称命名，用VBA程序将jpg文件名导入EXCEL，同时，也导入相对应的缩略图，检查文件名和图片图像是否正确，发现不对应，直接修改目录文件的名称，再执行导入图片名和图片，直到一一对应为止。

2、在Sheet2工作表中，列实际的员工名单，包括编号、姓名、部门，通过VLOOKUP（），进行连接，将工号链接到Sheet1中，成功后，点击“成批更改”按钮，完成全部图片名称的修改。

3、链接成功后，也可以在Sheet2工作表中检查那些员工还没有照片。

4、链接发现有问题，也可以进行恢复操作。

wangy_sxty · 发表于 2012-3-11 21:00

谢谢楼主分享，不过“成批更改”按钮运行不成功，提示"类型不匹配"。我是新手，看不明白了。

weiguoyin868 · 发表于 2012-3-11 21:55

wangy_sxty 发表于 2012-3-11 21:00
谢谢楼主分享，不过“成批更改”按钮运行不成功，提示"类型不匹配"。我是新手，看不明白了。

把原文件目录下的图片重新拷进进来，就没问题了。因为，改好的文件名，不能再改了。

wangy_sxty · 发表于 2012-3-12 18:33

好的，谢谢啦！

紫竹林灵儿 · 发表于 2012-3-23 21:57

学习了，功能强大的

272779357 · 发表于 2012-4-7 16:10

学习了，功能强大的

shiftzcg · 发表于 2012-8-8 12:07

不错哟，刚好用得上

little-key · 发表于 2012-8-11 21:49

命名好
然后用image控件调取

babyhammer · 发表于 2012-8-9 14:23

功能强大,值得借鉴

qiuqiu_hello · 发表于 2012-8-10 15:56

很实用，值得学习

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

[分享] 快速整理员工图片的好方法

评分