Através do comando Shell vba não consigo abrir o word.

Question

Pessoal, o caminho que esta o arquivo é: c:\Users\hasco\Este Computador\Ok.docx.

Escrevo o comando: 

Shell "WINWORD, c:\Users\hasco\OneDrive\Desktop\Ok.docx", vbNormalFocus

Shell "WINWORD, c:\Users\hasco\OneDrive\Este Computador\Ok.docx", vbNormalFocus

Shell "WINWORD, c:\Users\hasco\Este Computador\Ok.docx", vbNormalFocus

Shell "WINWORD, C:\Este Computador\Área de Trabalho\Ok.docx", vbNormalFocus

enfim, já tentei de tudo e o retorno é que não existe o arquivo ou ele foi deletado. Podem me ajudar ?

Answer 1

Coloque o caminho e nome de arquivo entre aspas:

  Shell "WINWORD  ""C:\Users\hasco\OneDrive\Desktop\Ok.docx""", vbNormalFocus

No Excel vc também pode usar o método FollowHyperlink:

  ThisWorkbook.FollowHyperlink "C:\Users\hasco\OneDrive\Desktop\Ok.docx"

Outra alternativa é usando a função GetObject:

  Dim doc As Object
  Set doc = GetObject("C:\Users\hasco\OneDrive\Desktop\Ok.docx")
  doc.Parent.Visible = True
  AppActivate doc.Name & " - Word"

Answer 2

A primeira opção colega diz que o diretorio não é valido. 

Nao sei como escrever o caminho correto. Acho que é isso. Não sei. 

Quando refaço o caminho manualmente. Arquivo Abrir, Area de Trabalho, Ok.

Na Janela lá em cima fica o caminho Este Computador - Area de Trabalho

Mas eu coloco esse caminho ele não encontra.

Answer 3

A resposta é:

O nome do diretório não é válido.

(C:\Users\hasco\...\Ok.docx)

Answer 4

Mas seu arquivo está aonde? Em sua Área de Trabalho ou no OneDrive? Se está no OneDrive, você está conectado nele?

Vá pelo Windows Explorer até onde está o arquivo, clique nele com o botão direito e escolha Propriedades. Na guia Geral copie o caminho que está na linha Local.

Answer 5

Colega deu certo. Realmente era o caminho.

'VBA.Shell "Explorer.exe C:\Users\hasco\OneDrive\Área de Trabalho\Ok.docx, vbNormalFocus"
'Esse deu certo.

Obrigado !