excle中身份证号，照片库文件中找出对应照片的问题？

baigangliao · 发表于 2012-10-9 17:15

提示: 作者被禁止或删除内容自动屏蔽

baigangliao · 发表于 2012-10-9 17:24

提示: 作者被禁止或删除内容自动屏蔽

wuxingna · 发表于 2012-10-10 10:30

收藏一下，学习学习，以后用

轻舟踏浪 · 发表于 2012-10-10 14:50

txygf 发表于 2012-10-9 16:12
。。。。。。。。。。。。。。。。

谢谢。成功了

wzp8888 · 发表于 2012-10-10 20:30

好贴要狠顶

iversen · 发表于 2013-2-25 20:02

好贴要顶一下，不会再问

xl6403 · 发表于 2021-8-24 16:03

好贴要顶一下，不会再问

xl6403 · 发表于 2021-8-24 16:29

qy1219no2 发表于 2012-10-9 16:08
假设保存到C:\照片文件中中，身份证号在A列：如果照片都是JPG格式，将代码中.*修改为.JPG即可。

Sub ZhP()
nRow = [a65536].End(xlUp).Row

cPath1 = "C:\照片1\"
cPath2 = "C:\照片2\"
For i = 1 To nRow
      cFile = cPath1 & Cells(i, 1) & ".*"
      If Dir(cFile) <> "" Then _
         FileCopy cFile, cPath2 & Cells(i, 1) & ".*"
Next
End Sub
我的照片放在C:\照片1\，拷贝到C:\照片2\
但运行后在FileCopy cFile, cPath2 & Cells(i, 1) & ".*"这一句停止，请问是什么问题？

xl6403 · 发表于 2021-8-24 16:39

本帖最后由 xl6403 于 2021-8-25 15:49 编辑

qy1219no2 发表于 2012-10-9 16:08
假设保存到C:\照片文件中中，身份证号在A列：如果照片都是JPG格式，将代码中.*修改为.JPG即可。

Sub ZhP()
nRow = [a65536].End(xlUp).Row
cPath1 = "C:\照片1\"
cPath2 = "C:\照片2\"
For i = 1 To nRow
      cFile = cPath1 & Cells(i, 1) & ".*"
      If Dir(cFile) <> "" Then _
         FileCopy cFile, cPath2 & Cells(i, 1) & ".*"
Next
End Sub
我把照片放在C:\照片1\，拷贝到C:\照片2\，但运行程序后到这样一句停止：
FileCopy cFile, cPath2 & Cells(i, 1) & ".*"
提示：运行时错误‘52’:文件名或文件号错误
请问要如何解决？BOOK.xls里是不是就放一列身份证号码就行？

xl6403 · 发表于 2021-8-24 16:49

ibmbaby 发表于 2012-10-9 16:01
把身份证号数据转变为文件名，并在其前面加上绝对路径及复制命令，
例如“123456789012345678”转变为“c ...

我试验了，没有用，运行bat文件，屏幕闪一下，看到运行了程序，但目标文件夹里还是空的。

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

baigangliao baigangliao 当前离线性别保密 UID 1254158 阅读权限 0 注册时间 2010-11-9 在线时间小时最后登录 1970-1-1 积分 2437 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2012-10-9 17:15 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

baigangliao baigangliao 当前离线性别保密 UID 1254158 阅读权限 0 注册时间 2010-11-9 在线时间小时最后登录 1970-1-1 积分 2437 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2012-10-9 17:24 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] excle中身份证号，照片库文件中找出对应照片的问题？