MS PROJECT E PRIMAVERA
Boa Tarde!
Alguem sabe de algum exemplo para integração do vb com o ms project e o primavera??
Alguem sabe de algum exemplo para integração do vb com o ms project e o primavera??
[ô]vc deve referenciar a biblioteca do MSProject em references
[ô]naum trabalhei com as tarefa, somente com os dados de cabeçalho
Public Sub Grava_Project(arquivo, titulo)
Dim pj As New MSProject.Application
Dim strCoord As String
Dim strEle As String
Dim strMec As String
On Error GoTo TrataErro
pj.Application.FileOpen CAMINHO_RS & rs.Ano & [Ô]\[Ô] & rs & [Ô]\[Ô] & arquivo
pj.Application.ActiveProject.ProjectStart = Date
[ô]pj.Application.BaselineSave
pj.Application.ProjectSummaryInfo Manager:=strCoordenador
pj.Application.ProjectSummaryInfo Subject:=strNomeProjeto
pj.Application.ProjectSummaryInfo Title:=strDenominação
[ô]salva alterações, encerra project e libera memória
pj.FileSave
pj.FileCloseAll
Set pj = Nothing
Exit Sub
TrataErro:
MsgBox (Err.Description)
End Sub
[ô]naum trabalhei com as tarefa, somente com os dados de cabeçalho
Public Sub Grava_Project(arquivo, titulo)
Dim pj As New MSProject.Application
Dim strCoord As String
Dim strEle As String
Dim strMec As String
On Error GoTo TrataErro
pj.Application.FileOpen CAMINHO_RS & rs.Ano & [Ô]\[Ô] & rs & [Ô]\[Ô] & arquivo
pj.Application.ActiveProject.ProjectStart = Date
[ô]pj.Application.BaselineSave
pj.Application.ProjectSummaryInfo Manager:=strCoordenador
pj.Application.ProjectSummaryInfo Subject:=strNomeProjeto
pj.Application.ProjectSummaryInfo Title:=strDenominação
[ô]salva alterações, encerra project e libera memória
pj.FileSave
pj.FileCloseAll
Set pj = Nothing
Exit Sub
TrataErro:
MsgBox (Err.Description)
End Sub
Tópico encerrado , respostas não são mais permitidas