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

发布网友发布时间：2022-05-02 00:29

共3个回答

热心网友时间：2022-06-25 13:59

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

追问我的意思是，通过一个窗体输入一个时间，比如20180328.然后，就调用win的看图程序，把这张图片打开。麻烦你了。

追答Sub png()
Dim pn '定义文件名称
Dim i

pn = Dir("C:\Users\dxzy\Desktop\新建文件夹\*") '查找第一个文件名称
i = 1
Do While pn <> ""

   If pn Like "##############.png" Then

    Range("a" & i) = pn

    Shell "rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen C:\Users\dxzy\Desktop\新建文件夹\" & pn, vbNormalFocus '调用win命令打开图片

    i = i + 1

    End If

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



Loop

End Sub

热心网友时间：2022-06-25 13:59

问题说得不全面，要查找的内容在哪里呀

热心网友时间：2022-06-25 14:00

随便点一个呗~