Tag: ms project

MS项目到Excel甘特图使用VBA

我正在尝试使用Project中的VBA脚本将某些任务从MS Project导出到Excel。 到目前为止，我能够导出我想要的数据没有问题，它在Excel中打开就好了。 我现在要做的是在Excel中取出这些数据并复制到类似于Project中的甘特图中。 我知道我知道，如果我已经有一个项目的权利，在Excel中获得一个甘特图的过程是什么？ 除此之外，这个Excel甘特图正在制作，以便没有MS Project的人都可以查看计划任务，而无需MS Project。 所以我迄今为止所尝试过的（因为excel没有内置的甘特图）是在电子表格上制作图表，将单元格着色为模仿甘特图。 我的两个主要问题：1.我不知道如何为每个特定的任务添加一个偏移，取决于它在哪一天开始。2.我不知道如何着色正确数量的单元格（现在它将颜色单元格倍数7，或一周一次，而不是某一天。 Sub ExportToExcel() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim proj As Project Dim t As Task Dim pj As Project Dim i As Integer Set pj = ActiveProject Set xlApp = New Excel.Application xlApp.Visible = True AppActivate "Excel" Set […]

我需要捕获的地方的文件名和文件path

我需要捕获项目导出到Excel的文件名和文件path， 我使用的代码; FileSaveAs FormatID:="MSProject.ACE", Map:="Map 1" 但不能解决如何捕获用户将文件导出到哪里（excel版本） 谢谢 罗南

通过MS Project导入function保持MS项目和MS Excel文件同步

我有一个Excel文件，其中包含从Access数据库（主）导出的任务。 这个Excel文件然后作为MS Project的导入文件。 随后，MS Project将用于实际的跟踪和报告，并通过典型的MS Project信息（截止date，进度）来增强任务列表。 工作stream程如下所示： 1）执行到MS Project的初始导入。 2）开始使用MS Project中的数据（从而加强它） 3）定期将项目文件与最近的Excel导入文件同步（因为任务可能被修改或设置为不活动/活动 ） 第3步是问题出现的地方。我试图通过导入更新的Excel（将数据合并到活动项目*中）来使用项目标准function，匹配相应的列并定义融合密钥 （任务ID）以确保更改已正确导入MS Project。 但是，Project从不正确导入更改。 我尝试过不同的变化（修改列中的一个简单的活动/非活动值，添加不同的任务，在Project中留下空行，然后通过第二次导入填充新任务）。 我也确保匹配的列具有相同的数据格式。 有没有人有一个想法，我可能做错了什么？ 也许我需要去完全不同的路线？

全局variables在Projectclosures后丢失它的值

我有一个集合作为一个全局variables，这将有他们的项目任务对象。 我的macros的结构如下： Public TaskCollection As Collection Sub Main() Set TaskCollection = New Collection GetData(List of project paths) For Each task in TaskCollection //ProcessTask() Next End Sub Function GetData(List of project paths) for each project path Open project p //do something else with the opened project… for each Task t in p.Tasks TaskCollection.Add t next Close […]

如何将Excel工作表导入到Microsoft Project？

我想将以下Microsoft Excel工作表导入到Microsoft Project（2010）中： 本质上，工作表包含A列中的任务和子任务，B列中的开始date以及C列中的完成date。您看到的条件突出显示基于开始date和结束date。 没有macros，只有公式，所以电子表格保存为一个正常的Excel工作簿。 我试图在Project中打开工作簿。 它正确地find源工作表名称，但它不能识别要映射到的任何字段。 看到下面的图片： 我能做些什么来解决这个问题？ 我从来没有使用过Project，但我希望能够导入“Key里程碑”和“Subtasks”，以及他们各自的“开始”和“完成”date。 任何帮助深表感谢。

VBA将项目中的数据粘贴到Excel中

我正在运行下面的代码，并得到虚假的结果。 出于某种原因，它会将五行代码复制到所需的工作表中，而不是指定的MS Project数据。 任何人都可以帮助新手？ 五行代码错误地复制到Excel工作表中： 'Open MS Project file projApp.Application.FileOpenEx "C:File.mpp" Set projApp = projApp.ActiveProject 'Final set up of code Set projApp = Nothing Sub OpenProjectCopyPasteData() Dim appProj As MSProject.Application Dim aProg As MSProject.Project Dim sel As MSProject.Selection Dim ts As Tasks Dim t As Task Dim rng As Range Dim ws As Worksheet Application.DisplayAlerts […]

缓慢的VBAmacros在单元格中写入

我有一个VBAmacros，它将数据写入已清除的工作表，但速度很慢！ 我正在从Project Professional实例化Excel。 Set xlApp = New Excel.Application xlApp.ScreenUpdating = False Dim NewBook As Excel.WorkBook Dim ws As Excel.Worksheet Set NewBook = xlApp.Workbooks.Add() With NewBook .Title = "SomeData" Set ws = NewBook.Worksheets.Add() ws.Name = "SomeData" End With xlApp.Calculation = xlCalculationManual 'I am setting this to manual here RowNumber=2 Some random foreach cycle ws.Cells(RowNumber, 1).Value = […]