Usuário com melhor resposta
Vba Ms Project 2003

Pergunta
-
Respostas
-
Olá McBryan,
Você precisa é utilizar os métodos do Project para customizar o projeto, neste seu caso SALVAR um projeto.
With Application.ActiveProject.ProjectSummaryTask
.EnterpriseProjectText40 = CboSituacao.Value
.EnterpriseProjectOutlineCode2 = CboGestorConta.Value
.EnterpriseProjectOutlineCode3 = CboGerenteProjetos.Value
.EnterpriseProjectText3 = txtSponsor.Text
.EnterpriseProjectText23 = Trim(txtSolicitante.Text).
.
.
End With
Dim v_proj_name As Variant
' Pergunta se quer salvar projeto agora
vMsg = MsgBox("Salvar agora o projeto?", vbYesNo + vbQuestion)
If vMsg = vbYes Then
v_proj_name = Replace(Replace(txtNomeProjeto.Text, ".publicada", ".Publicada"), ".Publicada", ".Publicada")
If vNovo = True Then
' Se projeto é novo
txtNomeProjeto.Text = txtNomeProjeto.Text & ".Publicada"
Application.ActiveProject.ProjectSummaryTask.Name = txtNomeProjeto.Text
FileSaveAs Name:="<>\" & txtNomeProjeto.Text, UserId:="", DatabasePassWord:="", FormatID:=""
end ifend if
Qualquer duvida...
- Marcado como Resposta Harley AraujoModerator quinta-feira, 23 de dezembro de 2010 14:39
Todas as Respostas
-
Talvez voce encontre algo no blog abaixo
http://zo-d.com/blog/archives/programming.html -
-
Olá McBryan,
Você precisa é utilizar os métodos do Project para customizar o projeto, neste seu caso SALVAR um projeto.
With Application.ActiveProject.ProjectSummaryTask
.EnterpriseProjectText40 = CboSituacao.Value
.EnterpriseProjectOutlineCode2 = CboGestorConta.Value
.EnterpriseProjectOutlineCode3 = CboGerenteProjetos.Value
.EnterpriseProjectText3 = txtSponsor.Text
.EnterpriseProjectText23 = Trim(txtSolicitante.Text).
.
.
End With
Dim v_proj_name As Variant
' Pergunta se quer salvar projeto agora
vMsg = MsgBox("Salvar agora o projeto?", vbYesNo + vbQuestion)
If vMsg = vbYes Then
v_proj_name = Replace(Replace(txtNomeProjeto.Text, ".publicada", ".Publicada"), ".Publicada", ".Publicada")
If vNovo = True Then
' Se projeto é novo
txtNomeProjeto.Text = txtNomeProjeto.Text & ".Publicada"
Application.ActiveProject.ProjectSummaryTask.Name = txtNomeProjeto.Text
FileSaveAs Name:="<>\" & txtNomeProjeto.Text, UserId:="", DatabasePassWord:="", FormatID:=""
end ifend if
Qualquer duvida...
- Marcado como Resposta Harley AraujoModerator quinta-feira, 23 de dezembro de 2010 14:39