excel 宏VBA 代码：输入图片名字后在对应单元格显示图片，请帮忙看下面的代码有什么问题非常感谢！

Private Sub Workbook_Open()

'加了循环可以在B列批量插入

'A列输入名

Dim FilPath As String

with Sheet1

activate

PicturesDelete

For i=1 to Columns(1)Find("", , , , 1, 2)row

FilPath = "C:\Users\XXX\Desktop\veiw\" & Cells(i, 1) & "jpg"

Range("B" & i)Select

PicturesInsert (FilPath)

next i

end with

End Sub

你是想判断图库里是否有(rText&"jpg")的吗？

不要用插入是否成功来测试啊，直接用VBA的函数Dir[(pathname[, attributes])]

返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。

pathname 可选参数。用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("")。

attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。

以上就是关于excel 宏VBA 代码：输入图片名字后在对应单元格显示图片，请帮忙看下面的代码有什么问题非常感谢！全部的内容，包括:excel 宏VBA 代码：输入图片名字后在对应单元格显示图片，请帮忙看下面的代码有什么问题非常感谢！、Excel 的VBA中ActiveSheet.Pictures.Insert如果没有获取图片,值是什么、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！