Project 2003 - UpdateProject Method

Question

Amigos 

Estou tentando utilizar o UpdateProject Method no Project 2003 da seguinte forma:

objPrj.UpdateProject All=True, UpdateDate="30/3/18", Action=2

Não dá erro, mas também não é executado!

sub ConvertDoc(Path, FName)   
    objPrj.FileOpen "<>\" & FName & ".Published"
    on error resume Next 
       
    objPrj.ActiveProject.StatusDate = "30/6/18"  'Aqui funciona legal

    objPrj.UpdateProject All=TRUE, UpdateDate="30/6/18", Action=2     
    
   
   objPrj.FilePrint 'Aqui funciona legal
   objPrj.FileClose 'Aqui funciona legal

end sub

Não consigo descobri o que há de errado, já fiz muita pesquisa na Internet.

Charlotte

Answer 1

Charlotte.

Não vou conseguir ajudar muito mas reparei numa coisa.

Você coloca no código a linha:

on error resume Next 

Já tentou correr a rotina retirando essa linha?

Provavelmente irá acusar o erro.

E nesta linha:

objPrj.FileOpen "<>\" & FName & ".Published" 

Não quererá dizer:

objPrj.FileOpen <>"\" & FName & ".Published" 

---

Marcar como resposta se for útil.

M_A_S_L

Answer 2

Obrigada, M_A_S_L 

Eu fiz assim:

objPrj.UpdateProject All=TRUE, UpdateDate="30/6/18", Action=2     

on error resume next

If Err.Number <> 0 then

msgbox "deu erro"

else

msgbox "não deu erro"

endif

E o mais estranho é que eu recebi a mensagem de que NÃO DEU ERRO!!!!!

Answer 3

Eu não tenho grandes conhecimentos em VBA, mas penso que o operador "<>", não pode ser colocado entre aspas conforme o seu código, caso contrário  o sinal "Diferente" faz parte de uma string que você não tem:

objPrj.FileOpen "<>\" & FName & ".Published" 

penso que deverá ser desta forma:

objPrj.FileOpen <>"\" & FName & ".Published" 

Mesmo no exemplo que deu acima, suprima a expressão "On Error Resume Next". Se houver erro, a depuração há-de dar informações sobre o erro e em função desse erro poderá receber ajuda eficaz dos entendidos na matéria.

Eu presumo que FName, seja uma variável para um nome de ficheiro, especificado num determinado caminho. Esse caminho passa a não existir quando descrito por exemplo : FOTOS\3D<>\FName. Terá que ser: FOTOS\3D\FName.  O Operador não pode fazer parte da String.

O código que colocou na sua resposta, até pode não conter erro, mas em função do caminho errado, também não lhe fornece resultados.

Se o meu raciocínio não estiver correto peço desculpa.

---

M_A_S_L

Answer 4

Olá M_A_S_L

Eu tirei o "On Error Resume Next" e continuou a mesma coisa, nenhum erro, não faz nada.

Quanto ao nome do arquivo, está correto, eu pedi para ele mostrar o nome do arquivo ativo depois da abertura e ele mostrou corretamente.

Obrigada pelas dicas.

Charlotte

Answer 5

Lamento mas não consigo ajudar mais.

---

M_A_S_L

Answer 6

De qualquer forma muito obrigada! :)