Question

EXCEL批量自动插入图片的宏，由列内单元格内容从图片文件夹中自动插入

我有个EXCEL表，A列里的内容比如 。A1里的内容是 007，我D盘下的 pic文件夹里全是图片，格式是 007.jpg.
我现在想要找到一段宏实现在B1单元格中自动插入图片007.jpg.

以此类推，B2里的图片是由B1里的内容命，希望各位帮下忙，解决下这个问题，非常感谢了。祝大家情人节快乐~

Answer 1

Sub InsertPic()
Dim i As Long, sPath As String, sfileName As String
sPath = "D:\pic\"
Application.ScreenUpdating = False
On Error Resume Next
With ThisWorkbook.Sheets("Sheet1")
For i = 1 To 256
If .Cells(1, i) <> "" Then
sfileName = sPath & .Cells(1, i) & ".jpg"
Cells(2, i).Select
.Pictures.Insert (sfileName)
If Err <> 0 Then
MsgBox .Cells(1, i) & ".jpg" & "不存在"
Err = 0
End If
End If
Next i
End With
Application.ScreenUpdating = True
Range("A1").Select
End Sub

Answer 2

去excelhome论坛问一下，那有高手的