Este fórum está sendo desativado

[Pegorini]

Olá Senhores

Gostaria de ajuda para solução de exportar planilhas para uma pasta específica que poderá estar em qualquer lugar em um PC


Encontrei esta macro na internet que não me atende plenamente:

'Exportar planilhas da pasta de trabalho ativa
Public Sub lsExportarPlanilhas()
On Error GoTo TratarErro

Dim lWorkbook As Workbook
Dim ws As Worksheet
Dim lCaminho As String

'Desliga atualização da tela
Application.ScreenUpdating = False

'Seta o objeto da pasta ativa
Set lWorkbook = ActiveWorkbook
lCaminho = Application.ActiveWorkbook.Path

'Loop entre as planilhas da pasta de trabalho
For Each ws In ActiveWorkbook.Worksheets
ws.Copy

ActiveWorkbook.SaveAs Filename:=lCaminho & "\" & ws.Name & ".xlsx"
ActiveWorkbook.Close vbNo
Next ws

MsgBox "Planilhas exportadas em: " & lCaminho

Sair:
Application.ScreenUpdating = True
Exit Sub
TratarErro:
MsgBox "Houve uma falha: " & Err.Description
GoTo Sair
End Sub





Seria duas soluções:

1º Solução: A macro deve exportar a partir da planilha2 todas as planilhas para uma pasta nominada "relatorio" que poderá estar em qualquer lugar.

Então, a macro deveria exportar a planilha "A1" "A2" e "A3" para uma pasta "relatorio" com este nome "A1" "A2" "A3"


2º Solução: Ao clicar em um botão vai chamar um inputbox que perguntará qual planilha o usuário quer exportar. No exemplo o usuário digita "A3" e esta planilha vai ser exportada para pasta "relatorio"