none
Project 2003 - UpdateProject Method RRS feed

  • 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 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

    quarta-feira, 9 de maio de 2018 17:47

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
    sexta-feira, 11 de maio de 2018 15:46
  • 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!!!!!

    segunda-feira, 14 de maio de 2018 13:32
  • 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

    segunda-feira, 14 de maio de 2018 17:25
  • 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

    terça-feira, 15 de maio de 2018 18:11
  • Lamento mas não consigo ajudar mais.

    M_A_S_L


    • Editado M_A_S_L terça-feira, 15 de maio de 2018 19:19
    terça-feira, 15 de maio de 2018 19:15
  • De qualquer forma muito obrigada! :) 
    terça-feira, 15 de maio de 2018 19:24