Tag: ms project

VBA错误1101：值无效

此代码打开一堆MS Project 2016文档，并将内容转储到Excel 2016表单中。 MS Project文件path在范围（rng2）C2：C＆Last Row中。 每次通过时，1101错误都会在达到范围中的第六项时抛出。 在PrjApp.FileOpenEx rng2失败。 无论文件path如何在范围内sorting，都会发生错误。 当文件path一次被testing1时代码运行完成，所以我知道path和文件是好的。 手表显示rng2值正是在故障发生时的情况（例如，将值设置为所需的文件path）。 这对我来说没有意义，但是代码一定有问题。 有任何想法吗？ Sub OpenProjectCopyPasteData() Dim PrjApp As MSProject.Application Dim aProg As MSProject.Project Dim PrjFullName As String Dim t As Task Dim rngClr As Range Dim rngClr2 As Range Dim rng As Range Dim rng2 As Range Dim ws1 As Worksheet Dim ws2 […]

Excel应用程序不从MS-Project VBAclosures

下面的子不closuresExcel应用程序。 它仍然在任务pipe理器中。 这有点奇怪，因为我使用相同的方法来打开和closures其他模块中的工作簿，它的工作原理。 此代码在MS-Project中。 Sub updateModules() 'TESTE INICIAL PARA SABER SE AS INFORMAÇÕES BÁSICAS ESTÃO INSERIDAS If sanity_test = 0 Then Exit Sub End If '——————————–//——————————– Dim xlapp As Object Dim xlbook As Object Dim sHostName As String ' Get Host Name / Get Computer Name sHostName = Environ$("username") Set xlapp = CreateObject("Excel.Application") 'xlapp.Visible = […]

Excel VBA – 打开MS Project文件的代码不起作用

我写了一些代码，让我select一个MS项目文件，并打开它，但是当我运行的代码，没有任何反应。 零错误，它只是退出，任何build议与我在这里做错了吗？ 下面的代码 Sub START() ' MS Project variables Dim Proj As MSProject.Application Dim NewProj As MSProject.Project 'File Name Variables Dim FileOpenType As Variant Dim NewProjFileName As String Dim NewProjFilePath As String Dim NewProjFinal As String 'Code to find and open project files Set Proj = CreateObject("MsProject.Application") MsgBox ("Please Select MS Project File for Quality […]

VBA – 从Excel中添加任务到MS项目

我目前正在使用VBA从Excel工作表中打开一个MS-Project项目。 我也添加任务，date，持续时间和一些更多的数据。 我的问题是，当我添加一个新的任务，该任务的默认开始时间不是在项目（上午7:00），但00:00定义。 这里是我使用的代码： 'Collect data strValue = Worksheets("Display").Range("B" & i) strStartDate = Worksheets("Display").Range("G" & i) strEndDate = Worksheets("Display").Range("G" & i) Strresource = Worksheets("Display").Range("C" & i) DurTim = CDec(Worksheets("Display").Range("E" & i)) ActDurTim = CDec(Worksheets("Display").Range("F" & i)) 'Define project defaults newproj.DefaultStartTime = "7:00" newproj.DefaultFinishTime = "16:00" newproj.HoursPerDay = "7" 'Enter data to task newproj.Tasks.Add (strValue) 'Check […]

从Excel导入到MS Project时出现循环错误

我有一个读取Excel文件并将其转换为MS Project项目计划的工具。 它还将任务列表（uniqueID）打印回电子表格中，用于匹配Excel /项目任务。 这部分工作正常，我试图更新它，使Excel文件可以用来更新现有的计划。 下面的代码工作正常，除了两个项目任务，然后循环rest。 它也覆盖前两个任务，而不是仅使用uniqueID更新匹配的任务。 dim statements Set prApp = New MSProject.Application 'If fileToOpen <> False Then prApp.FileOpen "c:\users\faizal\desktop\Project1.mpp" Set CurrProject = prApp.ActiveProject With CurrProject Set lshtProjStage2 = ActiveWorkbook.Worksheets("Project Stage – Gate 2") lshtProjStage2.Activate ' Default place to start. llngRowCounter = 10 llngTaskCounter = 0 lintBoldCellCount = 0 lsCellContent = lshtProjStage2.Range("B10").Value lblnSkipAddTask = […]

VBA将excel任务导出到MS Project

我目前正在尝试创build一些代码，以允许我自己以及我创build的Excel工作簿的其他用户将任务，开始date和完成date从Excel导出到MS Project。 我尝试了很多方法，没有太多的成功。 我已经看到，您可以简单地在Excel和Project之间创build和保存地图 – 但是，这只适用于一个用户。 有没有办法导出地图，以便所有的用户可以使用相同的地图？ 例如将地图保存在共享驱动器上，并获取代码以使用该映射将任务导入到项目中？ 我目前保存的Excel输出我需要导出映射创build的标题下： ID, Outline_Level, Name, Start_Date, Finish_Date. 我也看到，可以在Excel中使用VBA添加一个任务。 但是，我找不到一个方法来说明开始date和结束date。 理想情况下，我想在Excel中的一个macros读取任务列表，并逐一添加到MS Project，导出开始和完成date。 我知道这样做会更快，但是我不会将它用于每个项目的大量任务。 任何帮助都很受欢迎！ 提前致谢！

无法从VBA中删除模块

我在更新某些模块时遇到问题。 在一些模块中，我可以删除和导入模块，但在其他模块上，会发生什么是模块先导入，然后删除原来的模块，在模块名称末尾添加1 ，并弄乱了代码。 下面是我如何做到这一点：我有以下的Excel文件，我可以跟踪谁需要或已经更新到新的模块版本。 当我更新模块版本时，我只需input正确的用户名列Not Updated 。 一旦用户打开他的MS Project它运行以下代码并将值更改为Updated 。 然后，我在VBA-MS Project 2016中的Project.Activate上运行以下命令来检查模块是否需要更新。 Dim xlapp As Object Dim xlbook As Object Dim sHostName As String Dim modulesList_loc As String Dim projectVBA_loc As String Dim modulesVBA_loc As String projectVBA_loc = "\\sharedNetwork\Project\VBA\" modulesVBA_loc = projectVBA_loc & "Modules\" modulesList_loc = projectVBA_loc & "Modules Updates.xlsx" ' Get Host Name […]

无法从MS Project中设置PageSetup.Orientation = xlLandscape

在MS Project 2003中使用VBA我创build一个Excel工作表并向其写入数据。 之后，我想改变我创build的工作表的SetPrintArea和方向，所以我写了 with xlsheet '// Defined being an Excel.Worksheet For i = 1 To .UsedRange.Columns.Count .Columns(i).EntireColumn.AutoFit Next i txtPrintArea = txtPrintArea & "$" & xlCol.Row '// I created the range to print before With .PageSetup .Orientation = xlLandscape .PrintArea = xlSheet.UsedRange.Address End With End With 它在.Orientation声明中崩溃。 如果我评论说它在.PrintArea行崩溃。 我的结论是它不能设置.PageSetup的任何属性 我怎样才能指定PrintArea？

通过VBA将任务基线的开始和结束date从MS Project导入Excel

迎接所有人。 两个月前，我面临这个问题而没有解决。 我需要通过VBA将MS Project文件的基线开始和结束date转换为Excel，其中的一个algorithm就是这样的： Set Prj = MSProject.Application Dim tarea As Task For Each tarea In Prj.ActiveProject.Tasks Select Case BL Case "BL0" StartD = CDate(Format(tarea.BaselineStart, "dd/mm/yyyy")) EndD = CDate(Format(tarea.BaselineFinish, "dd/mm/yyyy")) Case "BL1" StartD = CDate(Format(tarea.Baseline1Start, "dd/mm/yyyy")) EndD = CDate(Format(tarea.Baseline1Finish, "dd/mm/yyyy")) Case "BL2" StartD = CDate(Format(tarea.Baseline2Start, "dd/mm/yyyy")) EndD = CDate(Format(tarea.Baseline2Finish, "dd/mm/yyyy")) Case "BL3" StartD = CDate(Format(tarea.Baseline3Start, […]

自动从n行的Excel文件中创buildn个Microsoft Project文件

我将如何去使用某种forms的自动化从n行创buildn个Microsoft Project文件？ 在我的Excel文件中大约有2000行，我想创build2000个使用相同映射的Microsoft Project文件。 我想自动化，而不是手动做每个。