1. Schakel het tabblad Developer in:

* Open uw Excel -werkmap.

* Ga naar Bestand> Opties> Lint aanpassen .

* Vink het vakje aan voor ontwikkelaar .

* Klik op OK .

2. Voeg een VBA -module in:

* Klik op Developer> Visual Basic .

* Ga in de Visual Basic Editor (VBE) naar insert> module .

3. Plak en wijzig de VBA -code:

`` `vba

Sub splitworksheets ()

Dim WB als werkboek, WS als werkblad

Dim newwb als werkboek

Dim bestandsnaam als string

Set wb =ActiveWorkBook 'Stel het actieve werkboek in

'Loop door elk werkblad

Voor elke WS in WB.Worksheets

'Maak een nieuw werkboek

Set newwb =workbooks.add

'Kopieer het huidige werkblad naar het nieuwe werkboek

ws.copy voor:=newwb.sheets (1)

'Hernoem het nieuwe werkboek op basis van de werkbladnaam

bestandsnaam =ws.name &".xlsx"

newwb.saveas bestandsnaam

'Sluit het nieuwe werkboek

newwb.close

Volgende WS

Einde sub

`` `

Verklaring:

* `Dim WB als werkboek, WS als werkblad, newwb als werkboek, bestandsnaam als string`: Verklaart variabelen om werkboeken- en werkbladobjecten op te slaan, evenals de bestandsnaam voor het nieuwe werkboek.

* `set wb =ActiveWorkBook`: Stelt de `WB' -variabele in op het momenteel actieve werkboek.

* `voor elke WS in wb.worksheets`: Loopt door elk werkblad in het actieve werkboek.

* `set newwb =workbooks.add`: Creëert een nieuw lege werkboek.

* `ws.copy eerder:=newwb.sheets (1)`: Kopieert het huidige werkblad (`ws`) naar het nieuw gemaakte werkboek (` newwb`), waarbij het vóór het eerste blad wordt ingevoegd.

* `bestandsnaam =ws.Name &" .xlsx "`: Stelt de bestandsnaam in voor het nieuwe werkboek met behulp van de naam van het werkblad en de `.xlsx` -extensie.

* `newwb.saveas bestandsnaam`: Slaat het nieuwe werkboek op met de opgegeven bestandsnaam.

* `newwb.close`: Sluit het nieuw gemaakte werkboek.

4. Voer de macro uit:

* Druk op alt + f11 Om terug te keren naar het Excel -blad.

* Ga naar ontwikkelaar> macro's .

* Selecteer de splitworksheets Macro en klik op Uitvoeren .

De macro maakt afzonderlijke Excel -werkboeken voor elk werkblad in uw originele werkmap, waardoor ze in dezelfde map worden opgeslagen als het originele werkboek.

Aanvullende opmerkingen:

* Pas het bestandsnaamformaat aan: U kunt de variabele 'bestandsnaam' wijzigen om aanvullende informatie, zoals datum of tijd, in de opgeslagen bestandsnamen op te nemen.

* Opslaan op een specifieke map: U kunt een andere map opgeven om de nieuwe werkboeken op te slaan door de variabele 'bestandsnaam' te wijzigen.

* Voer de macro uit op een ander werkboek: Voordat u de macro uitvoert, selecteert u het werkboek dat u in afzonderlijke bestanden wilt splitsen.