获取某文件夹下某个图片的尺寸

唐佳中天

求助VBA如题，某个文件夹下有多张图片，在A2单元格输入图片文件名字并点击按钮，分别在B2及C2单元格得到图片的宽高数据。

aman1516

试试：
Sub picsize()
    Dim f As String, Img
    f = ThisWorkbook.Path & "\" & Range("A2").Value & ".png"
    Set Img = CreateObject("WIA.ImageFile")
    Img.LoadFile f
    Range("B2") = Img.Width
    Range("C2") = Img.Height
End Sub

唐佳中天

非常感谢楼上兄弟帮助，非常好，在任何一台安装了VB的机器上运行都没有问题，但是打包以后在没有安装VB的机器上运行，就会出现429错误，提示说“ActiveX 控件无法创建对象”

sheeboard

用pandas参考

1. import pandas as pd
   
2. import glob
   
3. from  PIL import Image
   
4. 
   
5. data=[]
   
6. for fname in glob.glob('*.png'):
   
7.     im=Image.open(fname)
   
8.     row=[fname,im.width,im.height]
   
9.     data.append(row)
   
10. 
    
11. df=pd.DataFrame(data,columns=['name','width','height']
    
12. df.to_excel('test.xlsx',index=false)

复制代码

aman1516

唐佳中天 发表于 2023-4-1 09:07
非常感谢楼上兄弟帮助，非常好，在任何一台安装了VB的机器上运行都没有问题，但是打包以后在没有安装VB的机 ...

不知道你的具体应用，在所有的 Range 前面加上个类似  Thisworkbook.sheets("sheet1").  的指定试试

perfect131

唐佳中天 发表于 2023-4-1 09:07
非常感谢楼上兄弟帮助，非常好，在任何一台安装了VB的机器上运行都没有问题，但是打包以后在没有安装VB的机 ...

打包？？估计你把 WIA.ImageFile dll 一起打包才行，工具 - 引用里找到 WIA.ImageFile 文件，把它一起打包
或者 不用wia 直接用 vba获取 EXIF 信息

perfect131

sheeboard 发表于 2023-4-1 09:59
用pandas参考

vba 简单多了