Notifications
Clear all

Macro Salvar Como (txt) Nome do arquivo pré determinado

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

Doutores, boa tarde!

Estou cá novamente pedindo ajuda, o que acontece é o seguinte, montei uma planilha "transformer" de forma simples, porem agora eu preciso fazer uma macro que salve as duas últimas abas dessa planilha em formato txt e com os nomes pré definidos.

A macro salvar como é extremamente simples

Sub Macro1()
'
' Macro1 Macro
'

'
ChDir _
"M:5. Controles DiáriosTransformer"
Sheets("Planilhando").Select
ActiveWorkbook.SaveAs Filename:= _
"M:5. Controles DiáriosTransformerPlanilhando.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False
Sheets("Txt Fornecedor").Select
ActiveWorkbook.SaveAs Filename:= _
"M:5. Controles DiáriosTransformerPlanilhando_for.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False
End Sub

O problema é que agora eu preciso que os arquivos sejam salvos com o nome de uma célula em outra sheet ( Header, celula L2), por exemplo, para salvar com o nome de uma célula dentro da mesma sheet utilizaria:

"M:5. Controles DiáriosTransformerPlanilhando" & Range ("L2") + ".txt"" se não estou enganado, mas como fazer para buscar o nome em outra sheet ?

Ficou claro?

Para quem quiser ver o arquivo:

https://onedrive.live.com/redir?resid=B ... 221A%21235

 
Postado : 29/04/2014 9:43 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Sheets("Header").Range("L2")

 
Postado : 29/04/2014 10:03 am