Endereço/nome na cé...
 
Notifications
Clear all

Endereço/nome na célula para Abrir o Arquivo

4 Posts
3 Usuários
0 Reactions
1,124 Visualizações
(@ander)
Posts: 2
New Member
Topic starter
 

Boa tarde,

Preciso saber de um comando (VBA), que abra um arquivo excel através do endereço e nome do arquivo que está em duas células respectivamente.

Preciso dessa macro para deixar mais prático meu comando e não precisa alterar o comando e sim as células toda vez que o nome do arquivo mudar.

Obrigado!

Att,
Anderson

 
Postado : 20/01/2014 1:03 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Tente:

Workbooks.Open Filename:=Range("A1") & "" & Range("B1") & ".xl*"

em A1, o caminho, em B1, o nome do arquivo (sem a extensão)

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 20/01/2014 1:35 pm
(@ander)
Posts: 2
New Member
Topic starter
 

Muito obrigado pela atenção! Mas acho que me expressei errado e tentei captar uma solução para adaptar a minha necessidade, mas não foi possível.

Então eu tenho o seguinte comando abaixo que ele copia e cola determinada guia de determinada planilha, eu gostaria de ao invés de colocar o titulo da guia (Gráfico Carnes) por uma célula em determinada guia na plan que está ativa, tornando mais pratico o comando, visto que tenho muitos indicadores para puxar. Você pode me ajudar?

Sub Puxar_Indicadores()
'
' Puxar_Indicadores Macro
'

Workbooks.Open Filename:=Sheets("Infos").[C3]
Sheets("Gráfico Carnes").Copy Before:=Workbooks( _
"Book - Frete Distribuição - Jan.xlsm").Sheets(1)
Sheets("Gráfico Carnes").Move Before:=Sheets(3)

 
Postado : 20/01/2014 2:32 pm
(@bilokas)
Posts: 168
Estimable Member
 

Você quer nomear uma nova planilha usando a informação de uma célula, é isso?

Se for isso, tente:

Sub CriaNovaAba()
Dim ws As Worksheet
Set ws = Sheets.Add
ws.Name = Sheets("Plan1").Range("A1").Value 'Aqui substitua o nome da planilha e repectivamente a célula para onde você vai informar o nome da nova aba criada
End Sub


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 21/01/2014 7:21 am