Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Abrir arquivo de ac...
 
Notifications
Clear all

Abrir arquivo de acordo com valor de Célula

 
2024 - VBA & Macros
Post Recente por carlosrgs 8 anos atrás
5 Posts
3 Usuários
0 Reactions
538 Visualizações
RSS
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Boa tarde pessoal.

Possuo o código que abre um arquivo copiar tudo para outro arquivo e fecha.

    ChDir "C:relato"
    Workbooks.OpenText Filename:="C:relato01-01.##r", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), _
        TrailingMinusNumbers:=True
    Range("A1:A30000").Select
    Selection.Copy
    Windows("Verificação de Erros.xlsm").Activate
    Sheets("Base2").Visible = True
    Sheets("Base2").Select
    Range("B10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("001-01.##r").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close

Na segunda linha eu informei que quero o arquivo 001-01

Eu consigo substituir isso, usando como referência uma célula ?

Exemplo na Célula A1 contém o valor 001-01

eu deixar o código de grosso modo como abaixo ?

Workbooks.OpenText Filename:="C:relatoPlan1!A1.##r", Origin:=xlWindows, _

Desde já agradeço!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 15/06/2016 1:58 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Declara uma variavel e carrega na celula que deseja

Dim Arquivo as string

Arquivo = range ("A1").value

Troque a variavel pelo nome do arquivo a ser aberto no seu codigo

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 15/06/2016 2:45 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 
Workbooks.OpenText Filename:="C:relato" & Plan1.[A1] & ".##r"

Osvaldo

 
Postado : 15/06/2016 6:51 pm
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Bom dia.

Então MPrudencio eu mexendo com VBA fico só no Gravar macro e parar, manjo pouco.

O que o Osvaldo postou ta dando certo por enquanto, assim que concluir os testes coloco como resolvido.

Valeu!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 16/06/2016 6:18 am
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Resolvido Valeu!!!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 16/06/2016 11:39 am
Forum Jump:
  Tópico Anterior
Próximo Tópico