microsoft-project-vba

问题 I would like to create an automated tool to import the excel for Microsoft Project file. I am trying to achieve this in VBA (please suggest me, If any other options there) and i researched some code for basic setup. I found following link to setup the system and code to do this automation but still not sure below code is exact my findings or not. Sources : https://www.linkedin.com/pulse/how-automate-ms-project-from-excel-app-malcolm-farrelle?trk=portfolio_article-card_title Automate creating

问题 I am trying to automate creating flag field based on if text is in the task description. The goal is to use text to search through the project file and for each row with the text, in a flag field to put yes beside it. I am able to generate a list of the activites in MS project with the Row IDs. I am not sure how to use this list to generate "yes No" in Flag field Sub Findtask() Dim sTask As Task 'Summary level Task' Dim aTask As Task 'Job level Task' Dim Proj As Project x = InputBox$("Search

问题 Trying to help our Project 2013 Users out with some VBA code, and we have come to a point where we can't seem to find an answer for finding if a Project 2013 file is checked out on our PWA server using VBA. They basically have a list of Projects set as tasks in a single Project file, and the VBA code loops through the list of tasks to run FileOpenEx, do some changes, and then closes it. However, the need is to be able to check to see if the Project File is checked out prior to running

问题 Hello I have been trying to figure out a code, so as to color different rows depending upon their task levels. I am new to VBA in MS Project. I have a code which I found online, but it only colors the text in the task column. Sub ColorFormatOL() Dim t As Task Dim i As Integer SelectTaskColumn i = 0 For Each t In ActiveSelection.Tasks If Not t Is Nothing Then i = i + 1 If t.Summary Then SelectRow row:=i, Columrowrelative:=False Select Case t.OutlineLevel Case 1 FontEx Color:=pjRed Case 2

问题 Hello I have been trying to figure out a code, so as to color different rows depending upon their task levels. I am new to VBA in MS Project. I have a code which I found online, but it only colors the text in the task column. Sub ColorFormatOL() Dim t As Task Dim i As Integer SelectTaskColumn i = 0 For Each t In ActiveSelection.Tasks If Not t Is Nothing Then i = i + 1 If t.Summary Then SelectRow row:=i, Columrowrelative:=False Select Case t.OutlineLevel Case 1 FontEx Color:=pjRed Case 2

问题 I am working in a project where i have to to copy some text from a web page using Crt A + Crt C then i want to use this Data in Excel the copyed text is about 100 lines with defrent sizes let say on line has a string of 200 chart and the next one has 500 chart . And the 3rd maybe 20 Is there a way to loop over the clipboard Data line and copy them to an array ? i add the sample of the copied (Making Crt A Crt C in the page ) text: Note : I removed some Lines Usernames are XXXXXXXXXXXXXXXXX

问题 I have some code that I am using to Open a Microsoft Project file but despite all efforts I have been unable to prevent the opening dialogue box from appearing or auto answering it. I have tried Application.EnableEvents = False , Application.DisplayAlaerts = False and .FileOpenEx all to no avail. I would appreciate some help. Thanks in advance. Public Sub extract_data() Dim appProj As MSProject.Application Dim aProg As MSProject.Project Dim app Dim mppApp As MSProject.Application Dim Tasks As

问题 Update: Answered below I've built a Form in my MS Project VBA that has some formatting buttons on it, particularly a "Done" button that changes the font of the selected cells to Grey and Strikethrough. The subroutine below works fine, except... Sub SetTaskNameFontDone() Dim T As Task If Not (ActiveSelection.Tasks Is Nothing) Then For Each T In ActiveSelection.Tasks ' Test for blank task row If Not (T Is Nothing) Then SelectTaskField Row:=T.ID, Column:="Name", RowRelative:=False Font32Ex Color

问题 So I have a Timeline in Microsoft Excel which contains a variety of information. I created an array of my own custom type which read in this data but now I need to output my array onto Project. My array consists of a custom datatype as following: Type customtype Summary Name (The subtask would go under their respective summary task) Number of subtasks Another array called TaskList() This array called TaskList() would then hold as many subtasks inside as the number of tasks. All subtasks in

问题 I am writing a macro to add a column of data from an MS Excel sheet into an already existing MS Project document. When I run my macro the correct project is opened, but I get an error message saying that the project I opened has been deleted, even though it has not been deleted. Here is my current macro: Sub newProjectColumn() Dim appProj As MSProject.Application Dim aProg As MSProject.Project Dim wb As Workbook Dim ws As Worksheet Dim rng As Range Set wb = ActiveWorkbook '~~> Open MS Project