导出EXCEL的排版问题2-如何优化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

算了，我还是不看你的逻辑了，本来想做的，太麻烦。说一下思路。

1、不需要用字典，你可以直接获取到姓名和工号的，具体看getValues的帮助

Dim arys() As List(Of String()) = DataTables("进度").GetValues(team & "姓名",team & "工号", Filter)

2、不需要临时表，临时表里的内容，直接计算得出，直接赋值给excel表

3、一个book可以有多个sheet，可以新建多个sheet http://www.foxtable.com/help/topics/1465.htm

4、excel中超出单元格，无法换行。

主题：导出EXCEL的排版问题2-如何优化