上周派到了个case, 是批量从Excel导出数据导Visio每个图形中. 花了些时间实现了这个功能. 原理如下: 打开Excel 新建/打开表单 指向所选择的表单 遍历所在列的所有数据 打开Visio 建立/打开Visio页面(Visio是和Excel一样, 需要建立指定页面.) 指向所选择的Visio页面. 打开diagram service 服务 遍历所有数据在新的图形中做文字. 代码如下: Sub Test11() Dim rowCount As Long Dim sourceSheet