我是c#世界中的新手,我试图动态地传递一个参数,所以我在ms项目上做一个小的加载项,当数据是持续时间或成本时,我需要做一些计算,所以我有很多持续时间字段Duration1,Duration2,.对于成本字段也是如此,所以我所做的很简单,我找到了所有的持续时间ID,然后将它们放在我的DurationList中,然后进行检查,如果我只选择了一个列,并且选择的列的ID在我的列表中,我取这个字段的名称并试图传递它作为参数
这是我的代码的一部分,这里我只是在处理持续时间
using MSProject = Microsoft.Office.Interop.MSProject;
private v
我希望只为MS-project中的某些任务(子任务)自动添加资源名,例如,如果任务是CMM,我希望自动将CMM添加到资源名称中,这是我的代码。
Sub Automatically()
Dim NR As MsProject.Resource
Dim Tsk As MsProject.Task
Dim Row As Integer
For each row in Ms.Project.Task
If Tsk = "CMM" Or "EDM" Or "EL Milling" Or "CAM Wire cut" Or
'~~> Code to open MPP file in Excel
Sub Sample()
Dim appProj As MSProject.Application
Dim aProg As MSProject.Project
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
'~~> This is the Sheet Where you want the data to be copied
Set ws = wb.Sheets("Sheet1")
Set
我试图打开一个特定文件夹中的所有MS文件,以提取每个文件的一些信息,并传输到excel。
Sub OpenProjectFiles()
Dim myMpp As MSProject.Application
Dim FileNameMpp As String, Folder As String
Folder = "C:\Users\nikolasqueiroz\Desktop\VBA Test"
Set myMpp = CreateObject("Msproject.Application")
FileNameMpp = Dir(Folder & &
我现在正在用VBA在Excel中编写一个Sub。我成功地启动了一个MS项目。现在,我想通过Excel在文件中添加一个新列。我该怎么做?
“”vba
Dim MSProject As MSProject.Application
Dim project As MSProject.project
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = Sheets("Sheet1")
wb.Activate
ws.Select
' Open Microsoft Project proje
我一直试图使用Excel Text1方法从中找到.Find,但它似乎不起作用。我有一个工作代码,但它非常慢,因为它循环通过每一个任务。这是我的代码:
Sub Exp()
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "MPD", "*.mpp*"
If .Show = True Then
Dim getfilename As String
Dim appProj As MSProje
我正在编写一个脚本,它用MS文件中的数据填充excel电子表格。我希望脚本能够识别MS项目列的标题名,因为我有许多具有不同名称的自定义列(用不同的名称填充自定义编号字段)
下面的代码是我的尝试,但是在将任务列标题的值写入工作表时,我遇到了一个错误,我在这里做错了什么吗?
Sub PopulateSheet()
Dim Proj As MSProject.Application
Dim NewProj As MSProject.Project
Dim t As MSProject.Task
Dim xl a
我在VBA中有一些代码,它打开一个Microsoft文件,提取一些数据,然后关闭该文件。不幸的是,我在Project文件中添加了一些链接,使其在打开时会弹出一些Splash屏幕。我试图编辑我的代码,以便该代码关闭运行宏的用户的Splash屏幕,这样他们就不会看到或必须对它们作出响应,并且宏将自动继续运行。
这是当前编写的代码(FileToOpen设置为文件位置)
'Open the MSProject file
Set mpApp = New MSProject.Application
mpApp.Visible = True
AppAc
我有两个文档,一个Excel文档和一个Microsoft文档。我想在Excel文档中添加一个"update“按钮,使某些单元格与项目文件中的某些单元格相等。
在某种程度上,我试图做与这个问题相反的事情:
下面是我到目前为止拥有的按钮宏:(在本例中,项目文件中的任务/列之一是" ID ",并且我试图使Cell (4,7)等于存在于Project文件中同一ID行的另一列上的值。搞不懂该怎么做。)
Sub Update()
projApp As MSProject.Application
Set ProjApp = GetObject(, "MSProject.A
我想用c#循环Microsoft项目的所有任务,下面是我的循环。
foreach (MSProject.Project t in project.Tasks)
{
MessageBox.Show(t.ToString());
foreach (MSProject.Project s in t.OutlineChildren)
{
if (s.Summary)
{