发布网友 发布时间:2022-05-02 00:29
共3个回答
热心网友 时间:2022-06-25 13:59
Sub png()追问我的意思是,通过一个窗体输入一个时间,比如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
随便点一个呗~