《project与word转化》.docVIP

project和word，excel之间的转换?? 2011-05-12 17:15:51|??分类： 默认分类 |??标签： |字号大中小?订阅 一说到office组件综合运用，有的朋友就想到要编程，实际是不需要的，如在实际中打印project报表，要加上页眉页脚，要对数据进行分析，这都不是project的强项，我在实际工作中是这样解决的： ? ? 1.打印报表－将project转换成Word文档 --- 经典使用 ? ? Word文档是常用的软件，特别是word强大排版功能使我们的工作更加准确，project报表要加上页眉页脚，将其转换成Word文档可以做到。当前普遍的做法是将做好的project粘贴到Word里，可是粘到Word后表的格式全变了，还得重新进行调试，费时又费力。下面介绍一种方法可以轻松实现转换。 ? ? ??? 首先，在编缉好的project上点击“文件”→“另存为Web页”。Web页就是网页文件，在导出向导选择下一步，使用现有映射，选择数据映射，按向导一步步进行，htm根据实际情况改成你所需要的名字，如：“XX报表．htm”,再点击“保存”。注意，在改名时绝不能把后面的．htm去掉，只要改“．”前面的部分就可以了。 ? ????找到刚才保存好的“XX报表．htm”，如果你所安装的操作系统是WindowsXp或Windows 2000，可以在文件上面直接点击鼠标右键，选择“打开方式”最下面的的“打开程序”选项，在列表中找到“Word”选中并确定。也可以改名为“XX报表.doc”。 ? ? ??????? 用Word程序打开该文件后，不要做任何编缉操作，直接点击“文件”→“另存为”，把文件名改成“project转Word版”，把保存类型选成“Word文档”，再点击“保存”即可。现在再打开刚才保存的“project转Word版”文件看看，就是word文档了，再按word文件进行页眉页脚设置，就不用我多说了。 ? ? 2.数据分析－将project转换成excel表格 ?工具特点： 1、??????? 根据任务级别对任务名称进行缩进，使Excel文件看起来与Project一样具有层次 2、??????? 根据当前视图中的表格导出 3、??????? 智能判断一些列的特殊情况进行处理 4、??????? 开放源码 工具安装： 在Project中按Alt+F11键，在Project全局文件中导入该ShareWork.bas模块，如下所示： 在接下来的画面中选择ShareWork.bas。这样就成功导入了该模块文件。 该工具需要在Project中操作Excel应用程序，因此需要添加对Excel运行库的引用，其方法如下图所示：  以上步骤完成后即大功告成，接下来就可以使用这个工具了。 工具使用： 打开需要导出到Excel的Project文件，切换到甘特图视图，然后，按Alt+F8调出选择宏的界面，选择执行‘ExportToExcel’就可以了。 导出后的文件，存放在Project文件的相同目录下，文件名相同，只是后缀为.xls。 代码：也可到网络硬盘上下载： Private Const DEFAULT_TABLE_NAME As String = 项Private Const DEFAULT_VIEW_NAME As String = 甘特图Private Const INDENT_STRING As String = Private Const TASK_MAPING_NAME As String = ShareWorkMappingPrivate Const EXCEL_SHEET_NAME As String = 项目计划Private Const IGNORE_EXPORT As String = #标记#状态标记# Sub ExportToExcel() ??? Dim Project As Project??? Dim strPath As String??? Dim strFileName As String??? Dim str As String??? Dim strFullName As String??? ??? Dim Excel As Excel.Application??? Dim range As Excel.range??? Dim book As Excel.Workbook??? Dim sheet As Excel.Worksheet??? ??? Dim t As Table??? Dim f As TableField??? Dim fieldCount As Integer??? Dim fieldName As String???