Abrir Word ou Excel sem marcar referências

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,

Valeu, muito obrigado!

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