根据照片名称插入到excel表格中去

pxzpeng

各位老师，为了学籍核对，请各位老师帮忙：我现在有一个excel表格，表格中有学生的学籍号、姓名和班级信息，学生的照片已按学籍号命名，现在我需要将学生的照片按照学籍号，一一对应的插入到最后一列，恳请各位老师提供帮助，谢谢！

liulang0808

Sub test()
    arr = [a1].CurrentRegion
    Set fso = CreateObject("Scripting.FileSystemObject")
    Application.ScreenUpdating = False
    For Each shp In ActiveSheet.Shapes
        If shp.Type = 13 Then shp.Delete
    Next shp
    For j = 2 To UBound(arr)
        Set Rng = Cells(j, 4)
        str1 = ThisWorkbook.Path & "\照片\" & arr(j, 1) & ".jpg"
        If fso.FileExists(str1) Then
            ActiveSheet.Pictures.Insert(str1).Select
            With Selection
                .ShapeRange.LockAspectRatio = msoFalse
                .Left = Rng.Left + 1
                .Top = Rng.Top + 1
                .Width = Rng.Offset(0, 1).Left - Rng.Left - 2
                w = Rng.Offset(1, 0).Top
                y = Rng.Top
                .Height = w - y - 2
            End With
        End If
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=15791c27

pxzpeng

谢谢，非常感谢！

pxzpeng

liulang0808 发表于 2023-4-21 08:14
https://club.excelhome.net/thread-1441877-1-1.html?_dsign=15791c27

老师，您好，我这边的学生照片和学籍号得有2000多个学生的，我上传的文件只是举个列子，能不能麻烦您修改一下代码，变成通用的，也就是说照片数和学籍号数不同固定的都能用，谢谢

pxzpeng

liulang0808 发表于 2023-4-21 08:14
https://club.excelhome.net/thread-1441877-1-1.html?_dsign=15791c27

想给您送花，不知道怎么送啊

liulang0808

pxzpeng 发表于 2023-4-24 10:30
老师，您好，我这边的学生照片和学籍号得有2000多个学生的，我上传的文件只是举个列子，能不能麻烦您修改 ...

学籍号跟照片对应才能添加进去的，没有对应关系无法添加的。
另外照片数量跟学籍号不一定一样多的

pxzpeng

liulang0808 发表于 2023-4-24 11:40
学籍号跟照片对应才能添加进去的，没有对应关系无法添加的。
另外照片数量跟学籍号不一定一样多的

对，您说的这种情况是普遍存在的，如果照片不全的话，可以在excel表格中对应的单元格空着即可。麻烦您修改一下代码，能不能通用啊，或者需要修改那个地方，还请您明示，谢谢