VBA excel 查找图片文件夹下的图片文件，并打开。

Sub png()

Dim pn '定义文件名称

Dim i

pn = Dir("C:\Users\dxzy\Desktop\新建文件夹\png") '查找第一个文件名称

i = 1

Do While pn <> ""

    Range("a" & i) = pn

    'excel打开文件是什么鬼？是插入吗？

    pn = Dir '查找后续文件名称

    i = i + 1

Loop

End Sub

Xname = ActiveSheetShapes(ActiveSheetShapes(ApplicationCaller)Name)TextFrame2TextRangeCharactersText

Worksheets(Xname)Activate

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

以上就是关于VBA excel 查找图片文件夹下的图片文件，并打开。全部的内容，包括:VBA excel 查找图片文件夹下的图片文件，并打开。、如何用VBA实现，点击自创图形后，获取图形中的文字，然后进入以该文字命名的工作表、excel 宏VBA 代码：输入图片名字后在对应单元格显示图片，请帮忙看下面的代码有什么问题非常感谢！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！