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
Exporter et enregistrer 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
Le 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 > Épargnez 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 for Excel's Classeur fractionné utilitaire, vous pouvez y faire face rapidement. Cliquez pour 30 jours d'essai gratuit avec toutes les fonctionnalités ! |
 |
| Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jour. |
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:
Exporter et enregistrer 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 for Excel pour exporter et enregistrer rapidement et facilement chaque feuille de calcul d'un classeur pour séparer le nouveau classeur.
| Kutools for Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. | ||
Après installation gratuite Kutools for Excel, veuillez faire comme ci-dessous:
É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 for 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 les fonctionnalités complètes 30 jours d'essai gratuit ! |
 |
| Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jour. |
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
Meilleurs outils de productivité bureautique
Boostez vos compétences Excel avec Kutools for Excelet faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel Offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab Apporte une interface à onglets à Office et facilite grandement 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!
