Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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 y remédier? 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 des feuilles de calcul en tant que nouveau classeur avec la commande Déplacer ou Copier

Exporter et enregistrer des 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 pour Excel bonne idée3


Diviser 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 voulez diviser chaque feuille / feuille de calcul d'un grand classeur en fichiers séparés Excel, txt, csv, pdf. Mais avec Kutools for Excel's Manuel de travail divisé utilitaire, vous pouvez rapidement y faire face. Cliquez pour un essai gratuit de quelques jours avec toutes les fonctionnalités!
doc classeur fractionné 1
Kutools for Excel: avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60.

flèche bleue droite bulle Exporter et enregistrer des feuilles de calcul en tant que nouveau classeur avec la commande Déplacer ou Copier


En utilisant 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 sélectionner plusieurs en maintenant enfoncé Ctrl clé ou décalage clé.

Étape 2: Cliquez avec le bouton droit sur le nom de la feuille de calcul, puis cliquez sur Déplacer ou copier à partir du menu contextuel.
feuilles d'exportation doc 1

É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 pour réserver.

feuilles d'exportation doc 2

Étape 4: puis cliquez sur OK, maintenant vous êtes passé au nouveau classeur avec des feuilles de calcul exportées ou copiées, cliquez sur Fichier > Sauvegarder pour enregistrer le nouveau classeur.

Remarque: dans le Déplacer ou copier boîte de dialogue, il y a un Créer une copie option. Si vous ne le vérifiez pas, il déplacera les feuilles de calcul sélectionnées du classeur d'origine; Si vous le cochez, il copiera les feuilles de calcul sélectionnées.


flèche bleue droite bulle Exporter et enregistrer des feuilles de calcul en tant que nouveau classeur avec le code VBA

Le 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 la 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()
'Updateby20140612
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb 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
MkDir FolderName
For Each xWs In xWb.Worksheets
    xWs.Copy
    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
    xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr
    Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum
    Application.ActiveWorkbook.Close False
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 certains nouveaux classeurs distincts qui ont nommé les feuilles d'origine dans un nouveau dossier spécifique. Voir les captures d'écran:

feuilles d&#39;exportation doc 7

flèche bleue droite bulle Exporter et enregistrer des feuilles de calcul en tant que nouveau classeur avec Kutools pour Excel

Si vous devez enregistrer plusieurs feuilles de calcul en tant que classeur séparé, la première méthode ne peut pas être un bon choix. Et le code VBA est peut-être un peu compliqué pour les débutants d'Excel. Ici vous pouvez utiliser le Manuel de travail divisé utilité de Kutools for Excel exporter rapidement et facilement et enregistrer chaque feuille de calcul d’un classeur pour le séparer d’un nouveau.

Kutools for Excel, avec plus de 300 fonctions pratiques, rend votre travail plus facile.

après installation gratuite Kutools pour Excel, s'il vous plaît faire comme ci-dessous:

Étape 1: cliquez sur Kutools Plus > Classeur > Split Workbook .... Voir la capture d'écran:
feuilles d&#39;exportation doc 3

Étape 2: Dans le Manuel de travail divisé boîte de dialogue, faites comme ci-dessous:

feuilles d&#39;exportation doc 4
1: tous les noms de feuille de calcul ont été vérifiés par défaut, si vous ne voulez pas diviser certaines feuilles de calcul, vous pouvez les décocher;


2: Si vous souhaitez éviter de diviser 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 vides.);


3: et aussi vous pouvez vérifier Spécifiez la sauvegarde format, et pour sélectionner diviser les feuilles puis enregistrer en tant que fichier texte, fichier pdf, ou fichier csv, dans defualt, si vous ne cochez pas cette option, il va fractionner les feuilles et enregistrer en tant que classeur.

Étape 3: puis cliquez sur Divisé Cliquez sur le bouton et choisissez le dossier dans lequel vous souhaitez placer les nouveaux classeurs. Voir la capture d'écran:
feuilles d&#39;exportation doc 6

Étape 4: Et puis cliquez OK, puis chaque feuille de calcul cochée Manuel de travail divisé 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 feuille de calcul d'origine. Voir la capture d'écran:
feuilles d&#39;exportation doc 5

Cliquez pour en savoir plus sur cet outil Split Workbook.

flèche bleue droite bulle Exporter et enregistrer chaque feuille comme nouveau classeur


Diviser rapidement les données en plusieurs feuilles de calcul basées sur des colonnes ou des lignes fixes dans Excel

Supposons que vous ayez une feuille de calcul contenant des données dans les colonnes A à G, le nom du vendeur se trouve dans la colonne A et vous devez scinder automatiquement ces données en plusieurs feuilles de calcul basées sur la colonne A du même classeur. feuille de travail. Kutools for Excel's Date de partage utilitaire peut vous aider à diviser rapidement les données en plusieurs feuilles de calcul en fonction de la colonne sélectionnée comme ci-dessous capture d'écran montré dans Excel. Cliquez pour un essai gratuit complet de 60 days!
doc fractionnement des données 2
Kutools for Excel: avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60.

Articles Liés:



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    PK · 1 months ago
    How to convert this macro so that I can save it in my personal workbook and can use to where ever I need it.
    • To post as a guest, your comment is unpublished.
      Sunny · 3 days ago
      Click Developer tab > Record Macro > select Personal Macro Workbook, and give the vba a name.
      Then in Microsoft Visual Basic for Applications window, click VBAProject(PERSONA_XLSB) > Modules > double click Module1, paste the code between Sub() and End Sub, save the code.
      When you want to use the code, click Developer > Macro, choose the code you name.
  • To post as a guest, your comment is unpublished.
    Sergii · 1 months ago
    February 2019 - after some update Excel silently exits macro right after Application.ActiveWorkbook.SaveAs
    It means, that commands Application.ActiveWorkbook.Close does not run and file stays opened... Could it be fixed? This happened all the machines in our office on several workbooks that were using such kind of Macro.
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Do you have the formula to make sure that each excel sheet when saved as a new work book is in total format Comma Delimited .CSV
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Love this and another info you have on splitting data into each worksheet. However I keep getting an error when trying to upload my single reports into my system

    I needed them as a csv file so just changed the last part of the module to .csv I am wondering if I missed something else that should've been changed.

    Thanks a million
  • To post as a guest, your comment is unpublished.
    Ananda · 1 years ago
    what is the use of Worksheet.Save??