求大神帮忙将图片基本信息提取到表格中

qll123456

浏览了很多帖子，都是将文件夹里文件的修改时间、路径、名称批量提取到表格中，有没有将程序名称批量提取到表格中的，之前有个帖子提到用Application来提取，我是个小白，将Application单独引用可以提取，但替换到批量提取里面就报错，哪位大神告知一下批量提取Application该如何写？

蓝桥玄霜

http://club.excelhome.net/forum. ... ;page=1#pid10092700
但是程序名称好像还不行。

qll123456

蓝桥玄霜 发表于 2019-10-6 15:44
http://club.excelhome.net/forum.php?mod=viewthread&tid=1500337&page=1#pid10092700
但是程序名称好像 ...

非常感谢，对我很有帮助，给提供了一个新的方法，学习了。
我这两天自己研究了一下，在别人写的基础上用最笨的方法一个个试，也试出来了
Function getit(ByVal fileName As String) As String
    Dim f, shell, s As String, i As Long
    With CreateObject("scripting.filesystemobject")
        Set f = .GetFile(fileName)
        Set shell = CreateObject("Shell.Application").Namespace(f.ParentFolder.path)
   s = shell.GetDetailsOf(shell.Items.Item(f.Name), 35) '获取程序名称属性
    End With
    [A1] = s
End Function
sub X（）
getit ("文件路径")
end sub