Notifications
Clear all

Macro para abrir planilha com nome previstos na própria plan

4 Posts
2 Usuários
0 Reactions
2,281 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite colegas.

Gostaria de saber se é possível ter uma macro para abrir um arquivo em EXCEL ou TXT, onde o caminho deste arquivo não seria fixo, e seria previsto na própria planilha, definido por uma fórmula? Isto é possível?

Só para exemplificar o meu problema:
Hoje eu tenho uma planilha que coleta informações de outra planilha diariamente, só que para isso funcionar hoje eu preciso alterar o nome do arquivo original, simplesmente retirando a data do final do nome do arquivo.

Outras necessidades relacionados a este problema, seriam:
- macro para abrir um hiperlink da web com o caminho definido na própria planilha por fórmula (concatenar + se)

- macro para abrir uma planilha na rede da empresa com um nome para cada mês
Exemplo: dentro de uma planilha que analisa as despesas da empresa, partindo de um razão que é salvo com nome "Razão contábil XXXXXXXXX 2013.xlsx" e se quer analisar a informação do mês atual (aqui daria pra fazer uma fórmula SE olhando o MES dentro da fórmula HOJE), quanto a fórmula ok, problema é fazer a macro abrir sempre o arquivo do mes atual, sem precisar alterar manualmente dentro dela.

Grato,

Abraço a todos.
Att
Leandro

 
Postado : 24/09/2013 9:24 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Leandro,

Bom Dia!

Não sei se entendi bem suas duvidas. Na verdade muitas coisas são possíveis de se fazer com macros, VBA e seus plugins. Desse modo, vamos por partes:

Gostaria de saber se é possível ter uma macro para abrir um arquivo em EXCEL ou TXT, onde o caminho deste arquivo não seria fixo, e seria previsto na própria planilha, definido por uma fórmula? Isto é possível?

- Sim, é possível. Para isso, você joga, por exemplo, o nome do caminho completo do arquivo a ser aberto em uma variável(no código, capturando-o diretamente da célula onde ele foi informado) e coloca essa variável na linha de comando que vai abrir o arquivo, tipo o exemplo abaixo:

        Dim Arquivo as String
        Arquivo = Sheets("Plan1").Range("A2").Value 'Supondo que o caminho completo, inclusive nome do arquivo está na célula A1 da Plan1.
        Workbooks.Open Filename:=Arquivo
 
Postado : 25/09/2013 9:10 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado Wagner me ajudou bastante.

Consegui abrir o arquivo com o caminho dentro da própria planilha, show de bola.

Porém preciso de mais uma string na parte abaixo, para trazer informações da planilha aberta na planilha "executadora", é possivel colocar uma variavel string nesta parte em vermelho?

Sub teste()
'
'
'
Range("E6").Select
Dim Arquivo As String
Arquivo = Sheets("Macro").Range("D10").Value
Range("I14").Select
Workbooks.Open Filename:=Arquivo
Columns("A:I").Select
Selection.Copy
Windows("NOME_ARQUIVO_ABERTO.xlsx").Activate
Sheets("BASE_COLAGEM").Select
Columns("A:A").Select
ActiveSheet.Paste
Range("M6").Select
End Sub

Obrigado

 
Postado : 19/10/2013 11:29 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

lcamargo,

Bom Dia!

Sim, é possível. Pode ser feito assim:

Sub teste()
'
'
'
Range("E6").Select
Dim Arquivo, OutroArquivo As String
Arquivo = Sheets("Macro").Range("D10").Value
OutroArquivo = "NOME_ARQUIVO_ABERTO.xlsx"
Range("I14").Select
Workbooks.Open Filename:=Arquivo
Columns("A:I").Select
Selection.Copy
Windows(OutroArquivo).Activate
Sheets("BASE_COLAGEM").Select
Columns("A:A").Select
ActiveSheet.Paste
Range("M6").Select
End Sub
 
Postado : 20/10/2013 5:08 am