Vihje: Muut kielet ovat Google-käännettyjä. Voit vierailla English tämän linkin versio.
Kirjaudu
x
or
x
x
Rekis.
x

or

Miten jokainen laskentataulukko viedään ja tallennetaan erillisenä uutena työkirjana Excelissä?

Oletetaan, että haluat viedä ja tallentaa yhden tai useamman laskentataulukon uuden työkirjaksi, miten voit käsitellä sitä? Normaalisti voit kopioida jokaisen laskentataulukon ja liittää sen uuteen työkirjaan. Mutta täällä saamme sinulle käteviä temppuja käsitellä sitä:

Vie ja tallenna laskentataulukot uuteen työkirjaan Move tai Copy-komennolla

Vie ja tallenna laskentataulukot uusi työkirja VBA-koodilla

Vie ja tallenna laskentataulukot uudeksi työkirjaksi Kutools for Excel -ohjelmalla hyvä idea3


Nopeasti jakaa useita laskentataulukoita erilliseen Excel-työkirjaan

Microsoft Excelissä voit tallentaa tai jakaa laskentataulukon yhdestä työkirjasta uudeksi Excel-tiedostoksi kopioimalla ja liittämällä tämän laskentataulukon uuteen työkirjaan. Vaikuttaa vaikealta, jos haluat jakaa suuren työkirjan jokaisen arkin / laskentataulukon erikseen Excel-, txt-, csv- ja pdf-tiedostoina. Mutta kanssa Kutools for Excel'S Split Workbook hyödyllisyys, voit nopeasti käsitellä sitä. Napsauta 60-päivien ilmaista kokeilua, jossa on kaikki ominaisuudet!
doc jakaa työkirja 1
Kutools for Excel: enemmän kuin 300 kätevä Excel-lisäosat, voit kokeilla rajoituksia 60-päivinä.

nuoli sininen oikeus kupla Vie ja tallenna laskentataulukot uuteen työkirjaan Move tai Copy-komennolla


Käyttäen Siirrä tai kopioi komento auttaa sinua viemään tai kopioimaan yhden tai useamman laskentataulukon uuteen työkirjaan nopeasti.

Vaihe 1: Valitse laskentataulukon nimet. Voit valita useita pitämällä alhaalla Ctrl avain tai siirtää näppäintä.

Vaihe 2: Napsauta hiiren kakkospainikkeella laskentataulukon nimeä ja napsauta Siirrä tai kopioi pikavalikosta.
doc-vientilehdet 1

Vaihe 3: In Siirrä tai kopioi valintaikkunassa, valitse (uusi kirja) kohde avattavasta luettelosta Siirrä valitut arkit varaamaan.

doc-vientilehdet 2

Vaihe 4: Napsauta sitten OK, nyt olet siirtynyt uusi työkirja napsauttamalla filee > Tallentaa Tallenna uusi työkirja.

Huomautus: In Siirrä tai kopioi valintaikkunassa on a Luo kopio vaihtoehto. Jos et tarkista sitä, se siirtää valitut laskentataulukot alkuperäisestä työkirjasta. jos tarkistat sen, se kopioi valitut laskentataulukot.


nuoli sininen oikeus kupla Vie ja tallenna laskentataulukot uusi työkirja VBA-koodilla

Tämä seuraava koodi vie jokaisen näkyvän laskentataulukon uuteen työkirjaan ja tallentaa työkirjan alkuperäisen arkin nimen kanssa äskettäin luotuun kansioon samalla polulla kuin aktiivinen työkirja. Tee seuraavat toimet:

Vaihe 1: pidä alhaalla ALT + F11 avaimet, ja se avaa Microsoft Visual Basic for Applications ikkunassa.

Vaihe 2: Napsauta liite > Moduulit, ja liitä seuraava makro Moduuli-ikkunaan:

VBA: Vie ja tallenna laskentataulukot uusiin työkirjaan uudessa kansiossa.

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

Vaihe 3: Paina painiketta F5 avain tämän koodin suorittamiseen. Ja näyttöön tulee kehote ruutuun, josta kerrotaan uusien vietyjen työkirjojen sijainti ja kaikki alkuperäisen työkirjan laskentataulukot on viety uuteen erilliseen työkirjaan, jotka nimeävät alkuperäiset arkit uudessa erityisessä kansiossa. Katso kuvakaappauksia:

doc-vientilehdet 7

nuoli sininen oikeus kupla Vie ja tallenna laskentataulukot uudeksi työkirjaksi Kutools for Excel -ohjelmalla

Jos sinulla on useita työarkkeja, jotka on tallennettava erillisenä työkirjana, ensimmäinen menetelmä ei voi olla hyvä valinta. VBA-koodi on ehkä hieman monimutkainen Excel-aloittelijoille. Täällä voit käyttää Split Workbook hyödyllisyys Kutools for Excel Voit viedä ja tallentaa jokaisen työkirjan jokaisen laskentataulukon nopeasti ja helposti uuteen työkirjaan.

Kutools for Excel, yli 300 käteviä toimintoja, helpottaa töitäsi.

Jälkeen ilmainen asennus Kutools for Excel, tee näin:

Vaihe 1: Napsauta Kutools More > Työkirja > Split-työkirja .... Katso kuvakaappaus:
doc-vientilehdet 3

Vaihe 2: Split Workbook valintaikkunassa, toimi seuraavasti:

doc-vientilehdet 4
1: kaikki laskentataulukon nimet on tarkistettu oletusarvoisesti, jos et halua jakaa joitain laskentataulukoita, voit poistaa ne käytöstä;


2: Jos haluat välttää piilotettujen tai tyhjien laskentojen jakamisen, voit tarkistaa Ohita piilotetut laskentataulukot or Ohita tyhjät laskentataulukot.);


3: ja voit myös tarkistaa Määritä tallennus muoto ja lajittele arkistot ja tallenna ne tekstitiedostona, pdf-tiedostona tai csv-tiedostona. Jos et tarkista tätä vaihtoehtoa, se jakaa arkistot ja tallentaa ne työkirjaksi.

Vaihe 3: Napsauta sitten Jakaa -painiketta ja valitse kansio, johon haluat lisätä uudet työkirjat. Katso kuvakaappaus:
doc-vientilehdet 6

Vaihe 4: Ja napsauta sitten OK, sitten jokainen tarkistettu laskentataulukko Split Workbook valintaikkuna viedään ja tallennetaan erillisenä työkirjana. Jokainen uusi työkirja on nimetty alkuperäisellä laskentataulukon nimellä. Katso kuvakaappaus:
doc-vientilehdet 5

Napsauta saadaksesi lisätietoja tästä Split-työkirja -työkalusta.

nuoli sininen oikeus kupla Vie ja tallenna jokainen arkki uudeksi työkirjaksi


Jaa tiedot nopeasti useisiin laskentataulukoihin, jotka perustuvat sarakkeisiin tai kiinteisiin riveihin Excelissä

Olettaen, että sinulla on taulukko, joka sisältää tietoja sarakkeissa A-G, myyjän nimi on sarakkeessa A ja sinun on automaattisesti jaettava nämä tiedot useisiin laskentataulukoihin, jotka perustuvat sarakkeeseen A samassa työkirjassa ja jokainen myyntimiehe jakautuu uuteen taulukkoon. Kutools for Excel'S Jaa päivämäärä apuohjelma auttaa sinua jakamaan tiedot nopeasti useisiin laskentataulukoihin, jotka perustuvat valittuun sarakkeeseen Excel-kuvakaappauksen alla. Napsauta 60-päivien ilmaista kokeilua!
doc jakaa tietoja 2
Kutools for Excel: enemmän kuin 300 kätevä Excel-lisäosat, voit kokeilla rajoituksia 60-päivinä.

Aiheeseen liittyviä artikkeleita:



Suositeltavat tuottavuustyökalut

Office-välilehti

kulta star1 Tuo kätevät välilehdet Exceliin ja muihin Office-ohjelmistoihin, kuten Chrome, Firefox ja uusi Internet Explorer.

Kutools for Excel

kulta star1Hämmästyttävä! Lisää tuottavuutta 5 minuutissa. Älä tarvitse mitään erikoistaitoja, paitsi kaksi tuntia päivässä!

kulta star1300 Excelin uudet ominaisuudet, Excelin ansiosta helppo ja tehokas:

  • Yhdistä solu / rivit / sarakkeet ilman tietojen menettämistä.
  • Yhdistä ja yhdistä useita arkkeja ja työkirjoja.
  • Vertaa alueita, kopioi useita alueita, muuntaa tekstin päivämäärän, yksikön ja valuutan muuntamisen.
  • Laske värit, hakulausekartat, Advanced Sort ja Super Filter,
  • Lisää Valitse / Lisää / Poista / Teksti / Muoto / Link / Kommentti / Työkirjat / Työtaso Työkalut ...

Kutools for Excel -näyttö

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 · 8 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??