Inquiridor
Project 2003 - UpdateProject Method

Pergunta
-
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 legalobjPrj.UpdateProject All=TRUE, UpdateDate="30/6/18", Action=2
objPrj.FilePrint 'Aqui funciona legal
objPrj.FileClose 'Aqui funciona legalend sub
Não consigo descobri o que há de errado, já fiz muita pesquisa na Internet.
Charlotte
Todas as Respostas
-
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
- Editado M_A_S_L segunda-feira, 14 de maio de 2018 17:27
-
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!!!!!
-
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
-
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
-
-