Comment exporter et enregistrer chaque feuille de calcul en tant que nouveau classeur séparé dans Excel?
Supposons que vous souhaitiez exporter et enregistrer une ou plusieurs feuilles de calcul en tant que nouveau classeur, comment allez-vous le gérer? Normalement, vous pouvez copier chaque feuille de calcul et la coller dans un nouveau classeur. Mais ici, nous vous apportons quelques astuces pratiques pour y faire face:
Exporter et enregistrer les feuilles de calcul en tant que nouveau classeur avec le code VBA
Exportez et enregistrez des feuilles de calcul en tant que nouveau classeur avec Kutools for Excel 
Exporter et enregistrer des feuilles de calcul en tant que nouveau classeur avec la commande Déplacer ou Copier
En utilisant l' Déplacer ou copier La commande vous aidera à exporter ou à copier rapidement une ou plusieurs feuilles de calcul dans un nouveau classeur.
Étape 1: Sélectionnez les noms de feuille de calcul dans la barre d'onglets. Vous pouvez en sélectionner plusieurs en maintenant Ctrl clé ou décalage clé.
Étape 2: cliquez avec le bouton droit sur le nom de la feuille de calcul, puis cliquez sur le Déplacer ou copier depuis le menu contextuel.
Étape 3: Dans Déplacer ou copier boîte de dialogue, sélectionnez le (nouveau livre) élément de la liste déroulante de Déplacer les feuilles sélectionnées vers le livre.
Étape 4: Cliquez ensuite sur OK, maintenant vous êtes passé au nouveau classeur avec les feuilles de calcul exportées ou copiées, cliquez sur Déposez le > Enregistrer pour enregistrer le nouveau classeur.
Remarque: Dans le Déplacer ou copier boîte de dialogue, il y a une Créer une copie option. Si vous ne le cochez pas, il déplacera les feuilles de calcul sélectionnées hors du classeur d'origine; si cochez, il copiera les feuilles de calcul sélectionnées.
Divisez rapidement plusieurs feuilles de calcul dans un classeur distinct dans Excel
|
| Dans Microsoft Excel, vous pouvez enregistrer ou fractionner une feuille de calcul d'un classeur en tant que nouveau fichier Excel en copiant et en collant cette feuille de calcul dans un nouveau classeur. Cela semble gênant, si vous souhaitez diviser chaque feuille / feuille de calcul d'un grand classeur en fichiers Excel, txt, csv, pdf séparés. Mais avec Kutools pour Excel's Classeur fractionné utilitaire, vous pouvez y faire face rapidement. Cliquez pour un essai gratuit de 30 jours avec toutes les fonctionnalités! |
 |
| Kutools for Excel: avec plus de 300 compléments Excel pratiques, essayez gratuitement sans limitation en 30 jours. |
Exporter et enregistrer les feuilles de calcul en tant que nouveau classeur avec le code VBA
Ce code suivant exportera chaque feuille de calcul visible dans un nouveau classeur et enregistrera le classeur avec le nom de la feuille d'origine dans un dossier nouvellement créé dans le même chemin que le classeur actif. Veuillez suivre les étapes suivantes:
Étape 1: maintenez la touche ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.
Étape 2: cliquez sur insérer > Moduleet collez la macro suivante dans la fenêtre Module:
VBA: exportez et enregistrez les feuilles de calcul en tant que nouveau classeur dans un nouveau dossier.
Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString
If Val(Application.Version) < 12 Then
FileExtStr = ".xls": FileFormatNum = -4143
Else
Select Case xWb.FileFormat
Case 51:
FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If Application.ActiveWorkbook.HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56:
FileExtStr = ".xls": FileFormatNum = 56
Case Else:
FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
MkDir FolderName
For Each xWs In xWb.Worksheets
On Error GoTo NErro
If xWs.Visible = xlSheetVisible Then
xWs.Select
xWs.Copy
xFile = FolderName & "\" & xWs.Name & FileExtStr
Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
xNWb.SaveAs xFile, FileFormat:=FileFormatNum
xNWb.Close False, xFile
End If
NErro:
xWb.Activate
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End SubÉtape 3: appuyez sur le F5 clé pour exécuter ce code. Et une boîte de dialogue apparaîtra pour vous indiquer l'emplacement des nouveaux classeurs exportés, et toutes les feuilles de calcul du classeur d'origine ont été exportées vers de nouveaux classeurs distincts qui ont nommé les feuilles d'origine dans un nouveau dossier spécifique. Voir les captures d'écran:
Exportez et enregistrez des feuilles de calcul en tant que nouveau classeur avec Kutools for Excel
Si plusieurs feuilles de calcul doivent être enregistrées en tant que classeur distinct, la première méthode ne peut pas être un bon choix. Et le code VBA peut-être un peu compliqué pour les débutants Excel. Ici, vous pouvez utiliser le Classeur fractionné utilité de Kutools pour Excel pour exporter et enregistrer rapidement et facilement chaque feuille de calcul d'un classeur pour séparer le nouveau classeur.
| Kutools pour Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. | ||
Après installation gratuite Kutools for Excel, procédez comme suit:
Étape 1: cliquez sur Kutools Plus > Classeur > Classeur fractionné…. Voir la capture d'écran:
Étape 2: dans le Classeur fractionné boîte de dialogue, procédez comme ci-dessous:
2: Si vous souhaitez éviter de fractionner les feuilles de calcul masquées ou vierges, vous pouvez vérifier Ignorer les feuilles de calcul masquées or Ignorer les feuilles de calcul vierges.);
3: et vous pouvez aussi vérifier Spécifiez enregistrer format, et pour sélectionner diviser les feuilles, puis enregistrer en tant que fichier texte, fichier pdf ou fichier csv, par défaut, si vous ne cochez pas cette option, il divisera les feuilles et l'enregistrera en tant que classeur.
Étape 3: Cliquez ensuite sur Divisé et choisissez le dossier dans lequel vous souhaitez placer les nouveaux classeurs. Voir la capture d'écran:
Étape 4: puis cliquez sur OK, puis chaque feuille de calcul cochée dans le Classeur fractionné La boîte de dialogue est exportée et enregistrée en tant que classeur individuel. Chaque nouveau classeur est nommé avec le nom de la feuille de calcul d'origine. Voir la capture d'écran:
Cliquez pour en savoir plus sur cet outil de classeur fractionné.
Exporter et enregistrer chaque feuille en tant que nouveau classeur
Divisez rapidement les données en plusieurs feuilles de calcul en fonction d'une colonne ou de lignes fixes dans Excel
|
| En supposant que vous ayez une feuille de calcul contenant des données dans les colonnes A à G, le nom du vendeur est dans la colonne A et vous devez automatiquement diviser ces données en plusieurs feuilles de calcul en fonction de la colonne A du même classeur et chaque vendeur sera divisé en un nouveau feuille de travail. Kutools pour Excel's Date de fractionnement L'utilitaire peut vous aider à diviser rapidement les données en plusieurs feuilles de calcul en fonction de la colonne sélectionnée, comme illustré ci-dessous dans Excel. Cliquez pour un essai gratuit complet de 30 jours! |
 |
| Kutools for Excel: avec plus de 300 compléments Excel pratiques, essayez gratuitement sans limitation en 30 jours. |
Articles Liés:
- Combiner plusieurs classeurs en un seul classeur
- Enregistrer une sélection en tant que fichier individuel
- Diviser un classeur pour séparer les fichiers Excel
Les meilleurs outils de productivité de bureau
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
- Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
- Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
- Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
- Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
- Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
- Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
- Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
- Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
- Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
