Software  
 
Rede de conhecimento computador >> Software >> Microsoft Excel >> Content
Explode Excel Workleets em pastas de trabalho separadas?
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.

Anterior :

Próximo :
  Os artigos relacionados
·Você consegue colocar quinze dígitos no Excel? 
·Como você reverte uma função MOD no Excel? 
·O Microsoft Access é melhor do que o Excel? 
·Como você usa a função esquerda no Excel? 
·Lista 2 Dicas úteis para impressão no Excel? 
·Como você muda o estilo de gráfico no Microsoft Excel…
·A visualização da folha de dados se parece com o Exce…
·Como o trabalho do MS Office excel notas curtas? 
·Qual é a diferença entre o Microsoft Excel 2003 e o W…
·O Excel permite símbolos em nomes de folhas? 
  Artigos em destaque
·Como calcular valores Z em PERT no MS Project 
·Como abrir arquivos PSD Sem PhotoShop 
·Tutorial para Solid Works 2009 
·Como reinstalar o Office após uma Bater Hard Drive 
·A principal diferença entre sdram e dram é essa? 
·Como tornar um arquivo de imagem inpesquisável? 
·Principais diferenças entre o MS Office 2003 e MS Offi…
·Como converter Power Point para DVD Shareware 
·Como desativar Dalaran Banners para Lag 
·O que é o Viewpoint Media 
Cop e direita © Rede de conhecimento computador https://ptcomputador.com Todos os Direitos Reservados