Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por Pegorini
Posts Posts
#74035
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"
Você não está autorizado a ver ou baixar esse anexo.
Ressuscitado pela última vez por Pegorini em 03 Mar 2024 às 07:36.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord