Bruke Flytt eller Kopier-kommandoen vil hjelpe deg raskt eksportere eller kopiere en eller flere regneark til en ny arbeidsbok.
Kutools for Excel, med mer enn 120 praktiske Excel-funksjoner, forbedre effektivitet og lagre din arbeidstid. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
Trinn 1: Velg regnearknavnene i fanelinjen. Du kan velge flere med å holde nede Ctrl-tasten eller skift-tasten
Trinn 2:.. Høyreklikk navnet på regnearket, og klikk på Flytt eller Kopier fra kontekstmenyen
Trinn 3: I Flytt eller Kopier dialogboksen velger du (ny bok) element fra rullegardinlisten flytte valgte ark for å bestille.
Trinn 4: Deretter klikker OK, nå har du byttet til den nye arbeidsboken med eksporteres eller kopiert regneark, klikk på Fil > Lagre for å lagre den nye arbeidsboken
Merk:. I flytte eller kopiere dialogboksen, er det en Lag en kopi alternativ. Hvis du ikke merker det, vil det flytte de valgte regneark ut av opprinnelige arbeidsboken; hvis sjekke det, vil den kopiere merkede regneark.
Eksporter og lagre regneark som ny arbeidsbok med VBA-kode
Dette følgende kode vil eksportere alle synlige regneark i en ny arbeidsbok og lagre arbeidsboken med navnet på den opprinnelige arket i en nyopprettet mappe i samme bane som den aktive arbeidsboken. Vennligst gjør som følgende:
Kutools for Excel, med mer enn 120 praktiske Excel-funksjoner, forbedre effektivitet og lagre din arbeidstid. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
Trinn 1: Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vindu
Trinn 2:. Klikk på Insert > Modul, og lim inn følgende makroen i modulen Window:
VBA. Export og lagre regneark som ny arbeidsbok i en ny mappe Trinn 3: Trykk F5 for å kjøre denne koden. Og en rask boks vil komme opp for å fortelle deg plasseringen av de nye eksporterte arbeidsbøker, og alle regnearkene i den opprinnelige arbeidsboken har blitt eksportert til noen nye separate arbeidsbøker som heter originale ark i en ny bestemt mappe. Se skjermbilder: Hvis du har flere regneark for å lagres som separat arbeidsbok, den første metoden ikke kan være et godt valg. Og VBA-kode kanskje litt komplisert for Excel nybegynnere. Her kan du bruke Split arbeidsbok av Kutools for Excel for raskt og enkelt eksportere og lagre hvert regneark i en arbeidsbok for å skille ny arbeidsbok. Etter gratis installasjon Trinn 1: Klikk Enterprise > Arbeidsbok > Split arbeidsbok .... Se skjermbilde: Trinn 2: I Split arbeidsbok dialogboksen, gjør som følger: Trinn 3: Deretter klikker Split-knappen, og velg mappen du ønsker å sette de nye arbeidsbøker til. Se skjermbilde: Trinn 4: Og klikk deretter på OK, deretter hver sjekket regneark i Split arbeidsbok dialogboksen og lagres som individuell arbeidsbok. Hver ny arbeidsbok heter med det opprinnelige regnearket navn. Se skjermbilde: Klikk for å vite mer informasjon om dette Split arbeidsbok verktøyet
Sub SplitWorkbook () 'Updateby20140612Dim FileExtStr Som StringDim FileFormatNum Som LongDim xWs Som WorksheetDim; XWB Som WorkbookDim Mappe Som StringApplication.ScreenUpdating = FalseSet XWB = Application.ThisWorkbookDateString = (Nå, "åååå-mm-dd hh-mm-ss") Format Mappe = xWb.Path & "\\" &Amp; xWb.Name & "" &Amp; DateStringMkDir FolderNameFor Hver xWs I xWb.Worksheets xWs.Copy Hvis Val (Application.Version) < 12 Da FileExtStr = "XLS": FileFormatNum = -4143 Else Velg sak xWb.FileFormat Sak 51: FileExtStr = ".xlsx": FileFormatNum = 51 Sak 52: Hvis Application.ActiveWorkbook.HasVBProject Så FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Sak 56: FileExtStr = "XLS": FileFormatNum = 56 Sak Else: FileExtStr = "XLSB": FileFormatNum = 50 End Select End If Xfile = Mappe & "\\" &Amp; Application.ActiveWorkbook.Sheets (1) .name & FileExtStr Application.ActiveWorkbook.SaveAs Xfile, filformatet: = FileFormatNum Application.ActiveWorkbook.Close FalseNextMsgBox "Du kan finne filene i" & FolderNameApplication.ScreenUpdating = TrueEnd Sub
Eksporter og lagre regneark som ny arbeidsbok med Kutools for Excel
Kutools for Excel, med mer enn 120 praktiske Excel-funksjoner, forbedre effektivitet og lagre jobbe tid. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
Kutools for Excel, kan du gjøre som følger:
A: alle regneark navn har blitt merket av som standard, hvis du ikke gjør det ønsker å dele noen av regneark, kan du fjerner dem, B: Hvis du vil unngå å splitte de skjulte eller tomme regneark, kan du sjekke Hopp skjulte regneark eller Hopp tomme regneark); C:., og også du kan sjekke Spesifiser spare format, og for å velge split arkene deretter lagre som tekstfil, pdf-fil, eller csv-fil, i defualt, hvis du ikke velger dette alternativet, vil det delt ark og lagre som arbeidsbok.
Hvis du er interessert i dette Addi-in, klikk her for å laste ned 60-dagers gratis prøveperiode..
Du kanskje interessert i dette:
Export Range til fil
Kutools for Excel Export Range til fil kan eksportere eller lagre et utvalg for å skille fil asworkbook, pdf, tekst, CSV eller tekst. Å få gratis prøveversjon nå! Vite mer om Export Range til fil Klikk Enterprise > Import /Export > Export Range til fil.
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce