python+VBA实现照片转Excel

原视频链接：https://www.bilibili.com/video/av55033139

本人Excel不是很了解，照着up视频瞄着写竟然还错了，弄了好半天才成功。一定记得

python代码，照片转RGB数值存储

 from PIL import Image  # 打开图片 imload = Image.open(r'C:\Users\Faye\Desktop\1.jpg') # 转换为RGB im = imload.convert('RGB') w,h = im.size # 追加写方式写文件 demo = open('rgb.txt','a')  # 一行一行输出 for y in range(h):     for x in range(w):         # 获取对应想书店的rgb值         rgb = im.getpixel((x,y))         rgb = str(rgb)         # 把rgb值写入文件         demo.write(rgb[1:-1]+'\t')     demo.write('\n') demo.close()

把rgb.txt文件拖到Excel打开

fff.png

Excel操作

全选区域

aaa.png

让行高和列宽都相等，设置宏

a.png

代码在这

     Dim r As Range, arr     For Each r In Range("A:xxx")         arr = Split(r, ",")         r.Interior.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))     Next