Você pode explodir planilhas do Excel em pastas de trabalho separadas usando o VBA (Visual Basic for Applications) no Excel. Aqui está um guia passo a passo:
1. Ativar a guia Desenvolvedor: * Abra sua pasta de trabalho do Excel.
* Vá para
File> Opções> Personalize Ribbon .
* Verifique a caixa para
desenvolvedor .
* Clique em
ok .
2. Insira um módulo VBA: * Clique em
desenvolvedor> Visual Basic .
* No Visual Basic Editor (VBE), vá para
insert> módulo .
3. Cole e modifique o código VBA: `` `VBA
Sub Splitworksheets ()
Dim WB como pasta de trabalho, WS como planilha
Dim Newwb como pasta de trabalho
Dim FileName como string
Set wb =Activeworkbook 'Defina a pasta de trabalho ativa
'Faça um loop através de cada planilha
Para cada ws em wb.worksheets
'Crie uma nova pasta de trabalho
Definir newwb =Workbooks.add
'Copie a planilha atual para a nova pasta de trabalho
ws.copy antes:=newwb.sheets (1)
'Renomeie a nova pasta de trabalho com base no nome da planilha
nome do arquivo =ws.name &".xlsx"
Nome do arquivo newwb.saveas
'Feche a nova pasta de trabalho
newwb.close
Próximo ws
Final sub
`` `
Explicação: *
`Dim WB como pasta de trabalho, ws como planilha, newwb como pasta de trabalho, nome do arquivo como string`: Declara variáveis para armazenar os objetos da pasta de trabalho e a planilha, bem como o nome do arquivo para a nova pasta de trabalho.
*
`set wb =Activeworkbook`: Define a variável `wb` para a pasta de trabalho atualmente ativa.
*
`para cada ws em wb.worksheets`: Loops através de cada planilha na pasta de trabalho ativa.
*
`set newwb =workbooks.add`: Cria uma nova pasta de trabalho em branco.
*
`ws.copy antes:=newwb.sheets (1)`: Copia a planilha atual (`ws`) para a pasta de trabalho recém -criada (` newwb`), inserindo -a antes da primeira folha.
*
`filename =ws.name &" .xlsx "`: Define o nome do arquivo para a nova pasta de trabalho usando o nome da planilha e a extensão `.xlsx`.
*
`newwb.saveas filename`: Salva a nova pasta de trabalho com o nome do arquivo especificado.
*
`newwb.close`: Fecha a pasta de trabalho recém -criada.
4. Execute a macro: * Pressione
alt + f11 para retornar à planilha do Excel.
* Vá para
desenvolvedor> macros .
* Selecione as folhas
splitwork macro e clique em
executar .
A macro criará pastas de trabalho do Excel separadas para cada planilha em sua pasta de trabalho original, salvando -as na mesma pasta que a pasta de trabalho original.
Notas adicionais: *
Personalize o formato do nome do arquivo: Você pode modificar a variável `FILENAME` para incluir informações adicionais, como data ou hora, nos nomes de arquivos salvos.
*
Salvar em uma pasta específica: Você pode especificar uma pasta diferente para salvar as novas pastas de trabalho alterando a variável `FILENAME`.
*
Execute a macro em uma pasta de trabalho diferente: Antes de executar a macro, selecione a pasta de trabalho que você deseja dividir em arquivos separados.