Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com exportar i guardar cada full de treball com a llibre nou independent a Excel?

Suposem que voleu exportar i guardar un o diversos fulls de treball com un llibre nou, com us tractarà? Normalment, podeu copiar cada full de càlcul i enganxar-lo al llibre nou. Però aquí us presentem alguns trucs útils per fer-ho:

Exporta i guarda fulls de treball com a llibre nou amb la comanda Move o Copy

Exporta i guarda fulls de treball com a llibre nou amb codi VBA

Exporta i guarda worksheets com a llibre nou amb Kutools for Excel bona idea 3


Divideix ràpidament múltiples fulls de treball en un llibre de treball diferent a Excel

A Microsoft Excel, podeu desar o dividir un full de càlcul d'un llibre com un nou fitxer d'Excel copiant i enganxant aquest full de càlcul en un llibre nou. Sembla molest, si voleu dividir cada full o full de treball d'un llibre de treball com a fitxers separats d'Excel, Txt, CSV, pdf. Però amb Kutools for Excel'S Quadre de treball dividit utilitat, podeu gestionar-la ràpidament. Feu clic a 60 dies de prova gratuïta amb totes les funcions.
quadern de dividir doc 1
Kutools for Excel: amb més complements de Excel de 300, gratuïts per intentar sense limitacions en 60 dies.

fletxa blau dreta bombolla Exporta i guarda fulls de treball com a llibre nou amb la comanda Move o Copy


Utilitzant el Moure o copiar La comanda us ajudarà a exportar o copiar una o diverses fulls de treball ràpidament a un llibre nou.

Pas 1: seleccioneu els noms del full de treball a la barra de pestanyes. Podeu seleccionar múltiples mantenint premut Ctrl clau o canviar clau

Pas 2: feu clic amb el botó dret al nom del full de càlcul i feu clic a la icona Moure o copiar des del menú contextual.
fulls d'exportació doc 1

Pas 3: a Moure o copiar quadre de diàleg, seleccioneu el (llibre nou) element de la llista desplegable de Mou els fulls seleccionats per reservar.

fulls d'exportació doc 2

Pas 4: a continuació, feu clic a OK, ara heu canviat a la nou llibre de treball amb fulls d'exportació o copiats, feu clic a Dossier > Desar per desar el llibre nou.

Nota: Al Moure o copiar quadre de diàleg, hi ha un Crea una còpia opció. Si no el marques, es mouran les fitxes de treball seleccionades del llibre de treball original; si ho comprova, copiarà els fulls de càlcul seleccionats.


fletxa blau dreta bombolla Exporta i guarda fulls de treball com a llibre nou amb codi VBA

Aquest codi següent exportarà tots els fulls de treball visibles en un llibre nou i guardarà el llibre amb el nom del full original en una carpeta recentment creada en la mateixa ruta que el llibre actiu. Feu els passos següents:

Pas 1: manteniu premuda la tecla ALT + F11 tecles i obre el Microsoft Visual Basic per a aplicacions finestra.

Pas 2: fes clic Insereix > Mòduls, i enganxeu la macro següent a la finestra del mòdul:

VBA: exporteu i deseu fulls de treball com a llibre nou en una nova carpeta.

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

Pas 3: premeu la tecla F5 clau per executar aquest codi. A més, apareixerà una casella d'indicadors per indicar-vos la ubicació dels llibres de treballs exportats i totes les fitxes del llibre original s'han exportat a alguns llibres de treball separats que han nomenat fulls originals en una nova carpeta específica. Veure captures de pantalla:

fulls d&#39;exportació doc 7

fletxa blau dreta bombolla Exporta i guarda worksheets com a llibre nou amb Kutools for Excel

Si teniu diversos fulls de treball necessaris per desar-los com a quadern de treball separat, el primer mètode no pot ser una bona elecció. I el codi VBA potser una mica complicat per als principiants d'Excel. Aquí podeu utilitzar el Quadre de treball dividit utilitat de Kutools for Excel per exportar i guardar de forma ràpida i senzilla cada full de treball d'un llibre per separar el llibre nou.

Kutools for Excel, amb més de 300 Funcions pràctiques, fa que els vostres treballs siguin més fàcils.

Després de Instal·lació gratuïta Kutools for Excel, feu el següent:

Pas 1: fes clic Kutools més > llibre de treball > Dividir llibre de treball .... Mostra la captura de pantalla:
fulls d&#39;exportació doc 3

Pas 2: a la Quadre de treball dividit quadre de diàleg, feu el següent:

fulls d&#39;exportació doc 4
1: tots els noms del full de treball s'han verificat de forma predeterminada, si no voleu dividir algunes de les fitxes, podeu desmarcar-les;


2: Si voleu evitar dividir els fulls de càlcul ocults o buits, podeu consultar el Saltar fulls de càlcul ocults or Saltar fulls de càlcul en blanc.);


3: i també podeu consultar Especifiqueu desar format i per seleccionar dividir els fulls, guardeu-los com a fitxer de text, fitxer pdf o fitxer CSV, en defecte, si no marqueu aquesta opció, dividirà els fulls i guardarà-los com a quaderns de treball.

Pas 3: a continuació, feu clic a divisió , i seleccioneu la carpeta a la qual vulgueu posar els llibres nous. Mostra la captura de pantalla:
fulls d&#39;exportació doc 6

Pas 4: i després feu clic a OK, a continuació, cada full de càlcul seleccionat al Quadre de treball dividit El quadre de diàleg s'exporta i es guarda com a llibre de treball individual. Cada nou llibre es diu amb el nom del full de treball original. Mostra la captura de pantalla:
fulls d&#39;exportació doc 5

Feu clic per obtenir més informació sobre aquesta eina Split Workbook.

fletxa blau dreta bombolla Exporta i guarda cada full com a llibre nou


Divideix ràpidament dades en diversos fulls de treball basats en columnes o files fixes en Excel

Si teniu un full de càlcul que conté dades a les columnes A a G, el nom del venedor es troba a la columna A i haureu de dividir automàticament aquestes dades en diversos fulls de treball segons la columna A del mateix llibre i cada venedor es dividirà en un nou full de treball Kutools for Excel'S Data de dividir la utilitat us pot ajudar a dividir ràpidament les dades en múltiples fulls de treball basats en la columna seleccionada a continuació de la captura de pantalla que es mostra a Excel. Feu clic per veure gratuïtament 60 dies de prova completa.
doc split data 2
Kutools for Excel: amb més complements de Excel de 300, gratuïts per intentar sense limitacions en 60 dies.

Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d&#39;or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d&#39;or1Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d&#39;or1300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a 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 · 6 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??