VBA - Excel - 如何檢索匹配文件名上的照片並將它們放在單元格中

Question

我有一個Excel表格，其中列A中有一個產品代碼列表。我也有一個文件夾，每個產品的圖片和圖片的文件名是產品代碼。我想將各個產品的圖片放在B列旁邊各自的代碼中。如果可能的話，我也想重新格式化這些圖片，以便它們適合單元格。

我真的不知道從哪裏開始，任何幫助將不勝感激！謝謝

Answer 1

這是一個代碼開始。請在你身邊測試一下。

Sub AddPictures() 
Dim myPic As Picture 
Dim wkSheet As Worksheet 
Dim myRng As Range 
Dim myCell As Range 
Dim rowCount As Long 
Dim rowCount2 As Long 

    Set wkSheet = Sheets(2) ' -- Change to your sheet 

    '-- The usual way of finding used row count for specific column 
    rowCount2 = wkSheet.Cells(wkSheet.Rows.Count, "C").End(xlUp).Row 

    If rowCount2 <> 0 Then 
     Set myRng = wkSheet.Range("C2", wkSheet.Cells(wkSheet.Rows.Count, "C").End(xlUp)) 

     For Each myCell In myRng.Cells 
       If Trim(myCell.Value) = "" Then 
        MsgBox "No file path" 
       ElseIf Dir(CStr(myCell.Value)) = "" Then 
        MsgBox myCell.Value & " Doesn't exist!" 
       Else 
        myCell.Offset(0, 1).Parent.Pictures.Insert (myCell.Value) 
        Set myPic = myCell.Parent.Pictures.Insert(myCell.Value) 

        With myCell.Offset(0, 1) '1 columns to the right of C (is D) 
         '-- resize image here to fit into the size of your cell 
         myPic.Top = .Top 
         myPic.Width = .Width 
         myPic.Height = .Height 
         myPic.Left = .Left 
         myPic.Placement = xlMoveAndSize 
        End With 
       End If 
     Next myCell 

    Else 
     MsgBox "There is no file paths in your column" 
    End If 
End Sub 

輸出：

---

PS：設定範圍，根據自己的值的文件路徑。如果您需要在整個工作表中搜索使用的REAL列和行，請告訴我。我可以分享一個功能。現在你只需要在特定的文件路徑列中找到使用過的行，所以上面典型的使用行數就足夠了。