共享一个源码，这个源码的主要作用是当http返回一个照片时，通过二进制将照片数据压缩传输到vba端，采用adodb.stream的方法，可以将二进制数据存储到本地电脑作为静态png文件，后续在通过img.picture的方法，给渲染出来。 由于VBA项目的受众群体不是很多，所以用VBA处理一些复杂计算时往往不好用。 但是可以通过例如python的一些项目，作为服务端来处理这些计算，那么python与VBA端的数据衔接的方式最好的解决方案是采用http通讯。其实就是把python作为服务端，VBA的作为Qt的前端来使用。 VBA与Python的Http通讯，请参考： http://www.accessoft.com/article-show.asp?id=20914 上述链接已经解决了python返回JSON字符串的处理方法，当python端返回的是图片时，则采用以下处理方法，以下是处理步骤：1）Python端的路由采用fastapi.responses中的StreamingResponse方法，将服务端产生的图片转为二进制流数据通过http.responsebody响应反馈到VBA代码： #fastapi中的路由装饰器，定位url的请求处理函数，这里子路由假定是"/"@router.post("/")async def some_func(post_data): #这里的some_func需要返回的值是64位的二进制utf-8的图片编码buf= some_func() # 以下这段代码将会把buf的数据采用流数据的形式响应到http的请求体中return StreamingResponse(buf, media_type="image/png") # 关于some_func()的buf生成，因为我是用python的画图程序matplotlib生成图片的，我以这个来举例 ## 定义buf的数据类型 buf = io.BytesIO() 以字节形式输出 plt.savefig(buf, format='png', dpi=300)， 用matplotlib的pyplot将buf保存到内存中，格式是png，图片质量是dpi=3002) VBA端处理python端的返回结果 # httpResponse是VBA XML的httpResponse对象，fname是最终将流数据的图片产生temp的存放地址，ParseStreamToImage函数最终返回boolean值 #以判断是否正确处理响应，好在窗体中根据返回值判断是否要对img进行加载。Public Function ParseStreamToImage(httpResponse, fname As String) As BooleanOn Error GoTo ErrHandle ParseStreamToImage = False # 这里创建一个stream的对象，并将其定义为ADODB.Stream对象 Dim stream As Object Set stream = CreateObject("ADODB.Stream") #以下是stream对象的操作，open是打开这个对象，即可以对对象内容进行操作， #type定义对象的类型，这里定义为二进制 #Write则是将httpResponse响应体中的内容写入到stream对象中 stream.Open stream.Type = adTypeBinary stream.Write httpResponse.responseBody #Position是定义内存位置，不用管默认都是从0开始的，问我我也不知道，我百度的 stream.Position = 0 #SaveToFile则是将 stream中的二进制流数据导出为图片，导出的位置则是fname，adSaveCreateOverWrite是如果有同名文件时则覆盖处理 stream.SaveToFile fname, adSaveCreateOverWrite #close.关闭stream对象，并释放内存 stream.Close Set stream = Nothing #当成功操作时ParseStreamToImage 返回True，表示已经将数据处理好，并生成了对应路径下的文件。后续可以基于此判断来进行渲染操作 ParseStreamToImage = TrueExitHere: Exit FunctionErrHandle: ParseStreamToImage = False Exit Function End Function 效果是在窗体端当点击solve按钮后，会通过http把请求数据发送到python的后端来处理，python处理完成后把图片作为二进制数据再反馈给vba端，vba处理好这些数据后再在窗体上渲染出来就OK了。 二进制图片数据在窗体上的渲染【Access软件网】