我目前正在为MS Project编写一个VBA宏。我希望遍历集成的主文件(包含链接的子项目的文件)中的所有任务,并写入任务的原始唯一ID值。我知道插入的子项目会得到一个“种子值”(4194304的倍数),集成文件中的所有任务的UID都会变成种子值+原始UID值 如果我想要获取任务的原始UID,我如何找出子项目的种子值是什么?我尝试使用任务所属的项目对象的Index属性,然后将其乘以4194304,但Index属性似乎并不总是返回正确的子项目索引值。 Sub test()
Dim t As Task
Dim subProjIndex As Integer
Dim originalUID As
我是MS项目中的VBA新手,所以我有一个非常简单的问题。我想从Project1复制一个任务,并在Project2中创建一个包含所有字段信息的新任务。 我只能弄清楚如何一次复制一个字段(例如"Name"),但是如何复制所有字段呢? Sub CopyTask()
Dim source As Project
Dim destination As Project
Set source = Application.Projects("Project1")
Set destination = Application.Projects("Project2"
我目前正在使用MS Project2003 Visual Basic编辑器编写一个宏,我需要为它保存一个指向模板excel电子表格的路径。我希望用户能够更改路径,并将设置永久保存在某个地方。
是否有一个使用VBA for MS Project2003保存永久数据的方便位置?我想也许是在Global.mpt的自定义字段中,但我不确定如何访问它。
我有一个excel宏,它应该打开MS Project,并对一些自定义字段进行更改,然后再次关闭它。Excel和Project都是2010版本,并且项目存储在MS project Server 2010上。
当我手动打开MS Project,然后用VBA检测它时,一切都正常。但是当我使用VBA打开一个新的Project实例时(因为我还没有手动打开MS Project),它抛出一个错误:
以下是代码的两个版本:
Sub open_project_with_error()
Dim projapp As MSProject.Application, prj As Project
我现在正在用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
我试图发送一封电子邮件,从MS使用MS,通知下一个资源时,一项任务完成。
我想发送一封电子邮件来验证主要命令是正确的。
通过Google,我找到了一个创建电子邮件的VBA宏。
我在macro中测试了这个宏,它可以工作,但是同一个宏在中不起作用。
在这两种情况下,我都添加了对Microsoft 16.0对象库的引用。
宏打开一个窗口而不发送电子邮件,以填充“to”字段:
Sub CreateMail()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = New Outlook
我有一个硕士项目,里面有几个子项目。
我想根据字段Text5的值格式化行的颜色。
当前问题:如何使用VBA代码来引用第二个子项目中的行。当我运行代码并修改任务ID 5中的Text5值(在Sub 2中)时,它会修改任务ID 5的颜色,但修改子项目1的颜色。
如何使用SelectRow并向所需的子项目添加参考资料?
My Code (相关部分)
Sub FormatChangedTasks()
Dim SubPrj As Subproject
Dim Tsk As Task
Dim i As Long
For Each SubPrj In Acti
从理论上讲,我在MS项目VBA中的代码并没有做任何重要的事情。
它将任务与其他任务进行比较,但运行速度非常慢。
一次通过Temp持续15秒。在1500-2000个任务中尝试一下,宏需要花费几个小时。
Sub Laczona()
Application.Calculation = xlManual
Application.ScreenUpdating = False
Dim Temp, Temp2 As Integer
For Temp = 1 To ActiveProject.Tasks.Count
For Temp2 = 1 To ActiveProject.Tasks.Coun
我有一个表单,我可以在其中输入一些值(项目信息)
当用户单击按钮时,在这些字段中输入的值将存储在VBA的某些变量中:
Private Sub btnPItoKabels_Click()
Dim Project As String
Dim ProjectNummer As String
Dim OpdrachtGever As String
Project = ProjectInvoer.Value
ProjectNummer = ProjectNrInvoer.Value
OpdrachtGever = OpdrachtgeverI
有没有办法使用VBA和SQL查询将列添加到MS Access数据库中,然后使用其他列中的公式插入值。 例如,我想创建一个employee列,它应该已经计算了所有记录的值。我想在employee字段中使用LEFT(col2, 3)。 这是我的代码: Sub createcolumn()
Dim objAccess As Object
Set objAccess = CreateObject("Access.Application")
Call objAccess.OpenCurrentDatabase("H:\VBA\Array Practice