Macro Exportar Planilhas
Enviado: 03 Mar 2024 às 07:36
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"
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"