Como iniciar por meio de programação Microsoft Project Professional a partir de um programa do Office usando a função Shell em uma macro VBA

O suporte para o Office 2003 terminou

A Microsoft terminou o suporte para o Office 2003 em 8 de abril de 2014. Esta alteração afetou as suas atualizações de software e opções de segurança. Saiba o que isto significa para você e como permanecer protegido.

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 895509
INTRODUÇÃO
Este artigo descreve como iniciar o Microsoft Project Professional programaticamente de um programa do Microsoft Office usando a função shell em um Microsoft Visual Basic Applications (VBA) macro for.
Mais Informações
Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.

Para iniciar o Microsoft Project Professional em um programa do Office usando a função shell em uma macro VBA programaticamente, criar uma macro VBA que é semelhante ao exemplo de macro a seguir.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub StartMSProject()Dim sServer As StringDim sServerUser As StringDim sServerPass As StringDim sServerString As StringDim sProjectName As StringDim t As LongDim p As ObjectDim b As BooleanOn Error Resume Next Set p = GetObject(, "MSProject.Application")' Determine whether Project is already running.If Not p Is Nothing Then   b = True   MsgBox "Microsoft Project is already running. It will now be shut down. Please restart the macro."End If'If Project is running, shut down Project. Then, you must restart this macro.If b Then   p.Quit   Exit SubEnd If 'logon parameters for Project ServersServer = "http://servername/projectserver" ' for example, http://server85/projectserversServerUser = "Username"' If the sServerPass password is blank, the user must click OK  ' when the server logon dialog box appears. Note that we do not recommend a blank password. A non-blank password will log the user on automatically without ' user interaction.sServerPass = "Userpassword"sServerString = "winproj.exe /s """ & sServer & """ /u """ & sServerUser & """ /p """ & sServerPass & """"' Replace projectname with the name of your project.sProjectName = "projectname" 'Start Project. If you want to start with a Windows logon, remove the /u and /p parameters'from the ServerStringShell sServerString 'At this point, fail to an error handler if the application object cannot be created.'This behavior occurs because the Shell function does not "wait" for the application to start; the code continues'to execute. Because Project may be busy logging on, the following Set statement may fail. This'artificial 'loop' gives Project time to finish the logon process.t = Timer + 15 ' get the current time + 15 secondsSleep 15000 'Wait 15 seconds to give Project to finish the logon process.On Error GoTo NotReady'get object to project for automationSet p = GetObject(, "Msproject.Application")On Error GoTo 0        p.FileOpen "<>\" & sProjectNamep.WindowActivate sProjectNameExit Sub NotReady:   If Timer > t Then      MsgBox "Microsoft Project has not been able to start for 15 seconds. Try again later."   Else       Resume   End IfEnd Sub
PRJ2007 project2003 prj2003 prj2k3 project2002 prj2002 prj2k2

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 895509 - Última Revisão: 11/09/2006 20:38:18 - Revisão: 5.3

Microsoft Office Project Professional 2007, Microsoft Office Project Professional 2003, Microsoft Project 2002 Professional Edition

  • kbmt kbprogramming kbautomation kbvba kbhowto KB895509 KbMtpt
Comentários