[已解决]请教，怎么把文件夹中的图片提示到EXCEL表中对应名称后(图片见附件)

weilive

请教，怎么把文件夹中的图片提示到EXCEL表中对应名称后(图片见附件),请指教，谢谢了

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-9-18 10:29

ccc

跳转到最佳答案楼层

这儿有肥猫

1. Sub °´Å¥1_Click()
   
2. Dim mypath$$, i&, rng
   
3. On Error Resume Next
   
4. For i = 1 To Cells(Rows.Count, 1).End(3).Row
   
5.     mypath = ThisWorkbook.Path & "" & Trim(Cells(i, 1).Value) & ".jpg"
   
6.     myname = Dir(mypath)
   
7.     If myname <> "" Then
   
8.       
   
9.        Sheets(1).Pictures.Insert(mypath).Select
   
10.        Set rng = Cells(i, 2)
    
11.        With Selection
    
12.             .Top = rng.Top + 1
    
13.             .Left = rng.Left + 1
    
14.             
    
15.        End With
    
16.     End If
    
17. Next
    
18. 
    
19. End Sub
    

复制代码

这儿有肥猫

ccc

ghostjiao

{:112:}还是EP氛围好啊