Salvar como (Sheets/Folha/Abas) em arquivo separado

2024 - VBA & Macros

Post Recente por leandroxtr 6 anos atrás

3 Posts

2 Usuários

0 Reactions

1,367 Visualizações

RSS

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Topic starter

Bom dia, pessoal!

Vejam se os amigos podem me ajudar.

Resumo:

Estou precisando muito de uma rotina que salve várias, não todas, Worksheets de uma determinada Workbook, sendo em um caminho específico no diretório (Ex C:Arquivos e ProgramasPastax).

Instruções:

Somente devem ser salvas as Worksheets que possuem 3 caracteres em seu nome. (Ex: 001; 002; 003...)
Cada Worksheet deve ser salva em sua Workbook específica, ou seja, em arquivos separados, porém no mesmo diretório.
Cada Workbook deve levar o nome, segundo o que está na Worksheet. (Ex: Se o nome da Worksheet é 001, então a Workbook levará o nome 001)

Desde já muito obrigado pela ajuda de vocês! Têm me proporcionado experiências extraordinárias em VBA-Excel.
Qualquer dúvida estou aqui!

Forte abraço!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 02/10/2018 6:16 am

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Se eu entendi!!


Sub Salvar()
Dim WS As Worksheet
Dim Caminho As String
Dim Nome As String

'Ajuste para o caminho desejado
Caminho = "C:Users" & Environ("UserName") & "Desktop"


For Each WS In Worksheets

'Aqui vc deve colocar todas as guias que nunca deveram ser salvas.

If WS.Name <> "Matriz" _
And WS.Name <> "Plan_1" Then

Nome = WS.Name
WS.Copy


    ChDir Caminho
    ActiveWorkbook.SaveAs Filename:=Caminho & Nome, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close
    
    
End If

Next WS


End Sub

Este codigo atende.

Teste ai!

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 : 02/10/2018 6:55 am