批量导入照片到EXCEL中

来源：百度知道 编辑：UC知道 时间：2024/09/28 13:38:27
批量导入照片到EXCEL中
EXCEL是一个名单,里面有大约600多人,照片在另一个文件夹里,用人名命名的.如何批量导入一一对应到名单中的每一个人,高手回答,如果可行将奖励400分!谢谢

这是单个人名设置的宏，如果要设置多个人的话，必须要看你的表格的格式是怎么样的。你可以加我QQ，81565434，我帮你做出来，但要注明是百度问题。其它闲杂人等勿扰。。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".jpg").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".jpeg").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".gif").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".jpe").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".BMP").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".BMP").Select 'Insert Pictures"
ActiveShee