Este fórum está sendo desativado

[alancarlosssantos]

Prezados, boa tarde!

Amigos, mais uma vez preciso da ajuda de vocês.

Preciso abrir uma planilha em Excel, que se encontra em um caminho o qual está em uma celula no Excel. Eu gostaria de usar uma formula de VBA para fazer um link com a celula em questão. Por exemplo: Workbooks.Open Ative.Cells("D3"), sendo que em D3 está o caminho A:\DIRETORIOS_COMPARTILHADOS\RELATORIO_GERENCIAL\GerencialLJ_01\Reuniões\N5\Atendimento\Aderência_de_Escala_FEVEREIRO.xlsx

Sabem me dizer como fazer isso?

[osvaldomp]

Se a célula D3 que contém o caminho do arquivo estiver na planilha ativa, experimente o comando abaixo.

Workbooks.Open [D3]

[alancarlosssantos]

Tentei o que você me solicitou, mas está dando um erro "Erro em tempo de execução 1004" Não foi possivel encontrar D3.xlsx.

o código não está entendendo a referência da celula.

O código está assim, bem simples:
Sub importar_informacoes()

Dim D3 As Object

Sheets("Diretorios").Select
Set D3 = Workbooks.Open("D3")


End Sub

A a celular em questão está sendo assim:

A:\DIRETORIOS_COMPARTILHADOS\RELATORIO_GERENCIAL\GerencialLJ_01\Reuniões\N5\Atendimento\Aderência_de_Escala_FEVEREIRO.xlsx

Só que eu fiz isso com uma formula com concatenar:

=CONCATENAR("A:\DIRETORIOS_COMPARTILHADOS\RELATORIO_GERENCIAL\";C3;"\Reuniões\N5\Atendimento\Aderência_de_Escala_";$F$1;".xlsx")

[osvaldomp]

A:\DIRETORIOS_COMPARTILHADOS\RELATORIO_GERENCIAL\";C3;"\Reuniões\N5\Atendimento\Aderência_de_Escala_";$F$1;".xlsx

Se esse aí acima é o conteúdo de D3, então o código que passei deveria funcionar, mas você deve manter o que passei, sem alterações, como você fez.


Este é o que passei ~~~> Workbooks.Open [D3]

E este é o que você colocou na sua postagem ~~~> Workbooks.Open("D3")

[alancarlosssantos]

Agora funcionou.

Muito obrigado