3个回答
展开全部
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
