[已解决]求助：上传相片（用VBA代码完成）

long826121 · 发表于 2012-6-18 13:22

本帖最后由 long826121 于 2012-6-19 23:55 编辑

首先感谢各位兄弟姐妹们，在此想请教下各位。用VBA代码完成。
要求：
一.“录入”按钮效果：
  只要输入“编号”“姓名”，并且点击“上传相片”上传个人相片，点击按钮“录入”后，将自动存入表1，相片自动存入文件夹“照片”中。
  效果：1.点击“上传相片”，如果相片的名称是本人"姓名编号"（姓名编号.jpg），则相片存入到“照片”后，提示“上传成功”；如果相片的名称不是本人"姓名编号"，则将相片名称自动修改为本人“姓名编号”然后保存到“照片”文件夹，提示“上传成功”。一旦照片上传成功，照片自动显示到照片的位置。多次上传个人相片，后一次覆盖前一次的相片。[这之前的要求已经实现，下面的没有实现]（只要“照片”文件夹中有该人的照片，在表1中自动显示“是”；没有相片自动显示“无”。注意一点：只有先输入编号和姓名后，才能“上传照片”，所以，当编号姓名任何一个没有填写，此时“上传照片”“删除照片”按钮都屏蔽，当编号姓名并且照片上传成功后，“删除照片”按钮才能使用）
      2.每个人的信息只能录入一次，如果第二次录入，将提示“该人的个人信息已录入”；
      3.相片上传成功，而没有点击“录入”按钮直接退出，此时必须删除指定文件夹中相应上传的相片。
二.对于修改按钮，只要能修改所有的就可以了，包括：编号、姓名、相片。
三.删除关于此人的所有信息，包括相片。
四：退出系统。

上传相片.rar (213.2 KB, 下载次数: 48)

Dj_soo · 发表于 2012-6-18 13:52

{:061:}坐等牛人...

long826121 · 发表于 2012-6-18 13:54

Dj_soo 发表于 2012-6-18 13:52
坐等牛人...

其实你也可以的撒

Dj_soo · 发表于 2012-6-18 22:44

long826121 发表于 2012-6-18 13:54
其实你也可以的撒

伤不起,最近考试复习都木有时间

上清宫主 · 发表于 2012-6-19 00:26

主要的有了，其它的自己改吧
Set fso = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFilePicker)
      .AllowMultiSelect = True
      .Show
      myfile = .SelectedItems(1)
End With
fso.CopyFile myfile, ThisWorkbook.Path & "\¸öÈËÏà²á\"
Image1.Picture = LoadPicture(myfile)

mxg825 · 发表于 2012-6-19 08:31

其实就是一段、复制图片代码！很容易实现的，搜一下！有相关贴子

aa021032 · 发表于 2012-6-19 08:38

都是牛人啊

zjdh · 发表于 2012-6-19 21:02

今天太迟了，明日再说。

long826121 · 发表于 2012-6-19 23:56

zjdh 发表于 2012-6-19 21:02
今天太迟了，明日再说。

非常感谢你！呵呵！辛苦了

zjdh · 发表于 2012-6-20 19:44

本帖最后由 zjdh 于 2012-6-20 20:35 编辑

1. 你的“删除照片”按钮在那里，何时使用？
2. “相片上传成功，而没有点击“录入”按钮直接退出，此时必须删除指定文件夹中相应上传的相片”，与其他功能是否有矛盾，当正确上传照片后，直接退出窗体的情况岂不一样？

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