MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Abrir Word ou Excel sem marcar referências

    chsestrem
    chsestrem
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    Abrir Word ou Excel sem marcar referências Empty Abrir Word ou Excel sem marcar referências

    Mensagem  chsestrem em 23/12/2010, 11:37

    Função simples para abrir documentos do Word ou Excel sem se preocupar em marcar a referência, (Método LateBinding):

    Código:
    Function AbreExcel()
     Dim Exc As Object  'Excel.Application
     Dim xl As Object    'Excel.Workbook
     Set Exc = CreateObject("Excel.application")
     Set xl = Exc.Workbooks.Add    ' ou  .Open("c:\seuarquivo.xls")
     Exc.Visible = True
    End Function

    Function AbreWord()
      Dim objWord As Object
      Dim doc As Object
      Set objWord = CreateObject("Word.Application")
      Set doc = objWord.Documents.Add    ' ou Open("C:\seudocumento.doc")
      objWord.Visible = True
      objWord.Selection.TypeText "Olá, seu documento foi aberto"
    End Function

    Para chamar é só usar:

    Call AbreWord
    Call AbreExcel

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    avatar
    Clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 29/08/2012

    Abrir Word ou Excel sem marcar referências Empty Re: Abrir Word ou Excel sem marcar referências

    Mensagem  Clebergyn em 21/12/2012, 22:55

    Valeu, muito obrigado!
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    Abrir Word ou Excel sem marcar referências Empty Re: Abrir Word ou Excel sem marcar referências

    Mensagem  criquio em 21/12/2012, 23:11

    Vale considerar as vantagens e desvantagens de cada método. O LateBinding tem como vantagem a não necessidade de marcar referência, mas tira um pouco da facilidade na programação por não termos disponíveis as dicas de uso das dependências da biblioteca. O EarlyBinding precisa marcar as referências mas, como vantagem, temos à disposição a exibição do que podemos utilizar quando digitamos o ponto (doc.ApareceAListaAqui). Isso facilita muito a programação. Uma vez que quando utilizamos esse tipo de recurso é porque temos o Word e o Excel no computador, eu particularmente acho mais prático. Vale lembrar que às vezes não funciona assim por enes razões. Temos como opção utilizarmos os dois modos em conjunto. Assim, se um falhar, pode ser que o outro resolva.

    É só para constar nos anais dos conhecimentos Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 4/12/2020, 10:50