PAGE1
PAGE1
二次开发案例分析与实战
在上一节中，我们探讨了MicrosoftProject的基本二次开发工具和方法。本节将通过具体案例分析和实战演练，帮助您深入了解如何利用这些工具和方法解决实际项目管理中的问题。我们将逐步展示如何通过二次开发增强MicrosoftProject的功能，使其更好地适应特定的业务需求。
案例一：自动生成项目报告
在项目管理中，报告是项目状态和进展的重要工具。通过自动生成项目报告，可以节省大量的时间和精力，同时确保报告的准确性和一致性。本案例将展示如何使用VBA（VisualBasicforApplications）编写脚本来自动生成项目报告。
1.需求分析
项目报告通常包含以下内容：
项目基本信息（项目名称、项目经理、开始日期、结束日期）
项目进度（已完成任务、未完成任务、关键路径任务）
资源使用情况（资源分配、资源利用率）
风险管理（已识别风险、风险应对措施）
2.技术方案
我们将使用VBA脚本读取项目的各项数据，并将其格式化输出到一个Excel文件中。这样，项目经理可以方便地查看和分享项目报告。
3.实现步骤
3.1创建Excel工作簿
首先，我们需要在VBA中创建一个Excel工作簿，并设置其基本格式。
SubCreateExcelWorkbook()
DimexcelAppAsObject
DimexcelWorkbookAsObject
DimexcelWorksheetAsObject
DimprojectAsProject
Setproject=Application
SetexcelApp=CreateObject(Excel.Application)
SetexcelWorkbook=excelApp.Workbooks.Add
SetexcelWorksheet=excelWorkbook.Worksheets(1)
设置Excel可见
excelApp.Visible=True
设置工作表标题
excelWorksheet.Cells(1,1).Value=项目报告
excelWorksheet.Cells(1,1).Font.Bold=True
excelWorksheet.Cells(1,1).Font.Size=16
设置列标题
excelWorksheet.Cells(3,1).Value=项目名称
excelWorksheet.Cells(3,2).Value=项目经理
excelWorksheet.Cells(3,3).Value=开始日期
excelWorksheet.Cells(3,4).Value=结束日期
设置报告内容
excelWorksheet.Cells(4,1).Value=project.Name
excelWorksheet.Cells(4,2).Value=project.ProjectManager
excelWorksheet.Cells(4,3).Value=project.Start
excelWorksheet.Cells(4,4).Value=project.Finish
保存工作簿
excelWorkbook.SaveAsC:\ProjectReports\ProjectReport.xlsx
EndSub
3.2项目进度报告
接下来，我们将生成项目进度报告，包括已完成任务、未完成任务和关键路径任务。
SubGenerateProjectProgressReport()
DimexcelAppAsObject
DimexcelWorkbookAsObject
DimexcelWorksheetAsObject
DimprojectAsProject
DimtaskAsTask
DimrowAsInteger
Setproject=Application
SetexcelApp=CreateObject(Excel.Application)
SetexcelW