python+VBA实现照片转Excel

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

感谢up主：幽蓝伊梦

本人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

bb.png

然后在Excel找到边界，也可以小一点，这样渲染的会不全

cc.png

改好然后点运行

dd.png

然后把里边填充的数值清楚

ff.png

效果图

ee.png

收工…………