Skip i'r prif gynnwys

Sut i allforio ac arbed pob taflen waith fel llyfr gwaith newydd ar wahân yn Excel?

Gadewch i ni ddweud eich bod chi am allforio ac arbed un neu sawl taflen waith fel llyfr gwaith newydd, sut fyddwch chi'n delio ag ef? Fel rheol, gallwch gopïo pob taflen waith a'i gludo i lyfr gwaith newydd. Ond yma rydyn ni'n dod â rhai triciau defnyddiol atoch chi i ddelio â nhw:

Allforio ac arbed taflenni gwaith fel llyfr gwaith newydd gyda gorchymyn Symud neu Gopïo

Allforio ac arbed taflenni gwaith fel llyfr gwaith newydd gyda chod VBA

Allforio ac arbed taflenni gwaith fel llyfr gwaith newydd gyda Kutools ar gyfer Excel syniad da3


swigen dde glas saeth Allforio ac arbed taflenni gwaith fel llyfr gwaith newydd gyda gorchymyn Symud neu Gopïo

Gan ddefnyddio'r Symud neu Gopïo bydd gorchymyn yn eich helpu i allforio neu gopïo un neu sawl taflen waith i lyfr gwaith newydd yn gyflym.

Cam 1: Dewiswch enwau'r daflen waith yn y bar tab. Gallwch ddewis lluosrif gyda dal i lawr Ctrl allweddol neu symud allweddol.

Cam 2: Cliciwch ar y dde ar enw'r daflen waith, a chliciwch ar y Symud neu Gopïo o'r ddewislen cyd-destun.
taflenni allforio doc 1

Cam 3: Yn Symud neu Gopïo blwch deialog, dewiswch y (llyfr newydd) eitem o'r gwymplen o Symudwch daflenni dethol i archebu.

taflenni allforio doc 2

Cam 4: Yna cliciwch OK, nawr rydych chi wedi newid i'r llyfr gwaith newydd gyda thaflenni gwaith wedi'u hallforio neu eu copïo, cliciwch Ffeil > Save i achub y llyfr gwaith newydd.

Nodyn: Yn y Symud neu Gopïo blwch deialog, mae yna a Creu copi opsiwn. Os na fyddwch yn ei wirio, bydd yn symud y taflenni gwaith a ddewiswyd allan o'r llyfr gwaith gwreiddiol; os gwiriwch ef, bydd yn copïo taflenni gwaith dethol.


Rhannwch daflenni gwaith lluosog yn gyflym yn llyfr gwaith ar wahân yn Excel

Yn Microsoft Excel, gallwch arbed neu rannu taflen waith o un llyfr gwaith fel ffeil Excel newydd trwy gopïo a gludo'r daflen waith hon yn llyfr gwaith newydd. Mae'n ymddangos yn drafferthus, os ydych chi am rannu pob dalen / taflen waith o lyfr gwaith mawr fel ffeiliau Excel, txt, csv, pdf ar wahân. Ond gyda Kutools ar gyfer Excel'S Llyfr Gwaith Hollti cyfleustodau, gallwch ddelio ag ef yn gyflym.  Cliciwch ar gyfer treial am ddim 30 diwrnod gyda nodweddion llawn!
llyfr gwaith rhaniad doc 1
 
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

swigen dde glas saeth Allforio ac arbed taflenni gwaith fel llyfr gwaith newydd gyda chod VBA

Bydd y cod canlynol yn allforio pob taflen waith weladwy mewn llyfr gwaith newydd ac yn arbed enw'r ddalen wreiddiol mewn ffolder sydd newydd ei chreu yn yr un llwybr â'r llyfr gwaith gweithredol. Gwnewch fel y camau canlynol:

Cam 1: Dalwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Cam 2: Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl:

VBA: Allforio ac arbed taflenni gwaith fel llyfr gwaith newydd mewn ffolder newydd.

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

Cam 3: Pwyswch y F5 allwedd i redeg y cod hwn. A bydd blwch prydlon yn ymddangos i ddweud wrthych leoliad y llyfrau gwaith newydd a allforiwyd, ac mae holl daflenni gwaith y llyfr gwaith gwreiddiol wedi'u hallforio i rai llyfrau gwaith ar wahân newydd a enwodd daflenni gwreiddiol mewn ffolder benodol newydd. Gweler sgrinluniau:

taflenni allforio doc 7

swigen dde glas saeth Allforio ac arbed taflenni gwaith fel llyfr gwaith newydd gyda Kutools ar gyfer Excel

Os oes gennych chi lawer o daflenni gwaith y mae angen eu cadw fel llyfr gwaith ar wahân, ni all y dull cyntaf fod yn ddewis da. Ac efallai bod y cod VBA ychydig yn gymhleth i ddechreuwyr Excel. Yma gallwch ddefnyddio'r Llyfr Gwaith Hollti cyfleustodau Kutools ar gyfer Excel i allforio ac arbed pob taflen waith o un llyfr gwaith yn gyflym ac yn hawdd i wahanu llyfr gwaith newydd.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

Cam 1: Cliciwch Kutools Byd Gwaith > Llyfr Gwaith > Llyfr Gwaith Hollt…. Gweler y screenshot:
taflenni allforio doc 3

Cam 2: Yn y Llyfr Gwaith Hollti blwch deialog, gwnewch fel isod:

taflenni allforio doc 4
1: mae holl enwau'r daflen waith wedi'u gwirio yn ddiofyn, os nad ydych chi eisiau rhannu rhai o'r taflenni gwaith, gallwch eu dad-wirio;


2: Os ydych chi am osgoi rhannu'r taflenni gwaith cudd neu wag, gallwch wirio'r Hepgor taflenni gwaith cudd or Hepgor taflenni gwaith gwag.);


3: a hefyd gallwch wirio Nodwch arbed fformat, ac i ddewis rhannu'r dalennau yna eu cadw fel ffeil testun, ffeil pdf, neu ffeil csv, mewn defualt, os na fyddwch yn gwirio'r opsiwn hwn, bydd yn rhannu taflenni ac yn arbed fel llyfr gwaith.

Cam 3: Yna cliciwch Hollti botwm, a dewiswch y ffolder rydych chi am roi'r llyfrau gwaith newydd iddo. Gweler y screenshot:
taflenni allforio doc 6

Cam 4: Ac yna cliciwch OK, yna pob taflen waith wedi'i gwirio yn y Llyfr Gwaith Hollti blwch deialog yn cael ei allforio a'i gadw fel llyfr gwaith unigol. Enwir pob llyfr gwaith newydd gydag enw'r daflen waith wreiddiol. Gweler y screenshot:
taflenni allforio doc 5

Cliciwch i wybod mwy o wybodaeth am yr offeryn Llyfr Gwaith Hollt hwn.

swigen dde glas saeth Allforio ac arbed pob dalen fel llyfr gwaith newydd


Rhannwch ddata yn gyflym yn daflenni gwaith lluosog yn seiliedig ar golofn neu resi sefydlog yn Excel

Gan dybio bod gennych daflen waith sydd â data yng ngholofnau A i G, mae enw'r gwerthwr yng ngholofn A ac mae angen i chi rannu'r data hwn yn awtomatig i daflenni gwaith lluosog yn seiliedig ar golofn A yn yr un llyfr gwaith a bydd pob gwerthwr yn cael ei rannu'n newydd taflen waith. Kutools ar gyfer Excel'S Dyddiad Hollti gall cyfleustodau eich helpu chi i rannu data yn gyflym i sawl taflen waith yn seiliedig ar golofn ddethol fel y nodir isod o luniau a ddangosir yn Excel.  Cliciwch ar gyfer treial llawn sylw 30 diwrnod am ddim!
data rhaniad doc 2
 
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

Erthyglau cysylltiedig:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!

Comments (63)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks, this was awesome. There are dozens of pages on the internet talking about how to do this. You guys are the only ones that got the VBA code right. Many thanks. I had a big monster workbook with about 100 tabs, all relatively small, and the VBA macro knocked it out in about five minutes. Thank God for smart guys like you. :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
This has been extremely helpful, my job was doing some data management manually and this helped me automate it. I do have a question though, as the code is a bit over my head to figure out on my own.

What would I need to change to make it so that it always saves as a CSV file instead of an excel file? I know it'll be part of the IF VAL THEN CASES but I don't follow the formatting of that area.

Thank you,
Matt
This comment was minimized by the moderator on the site
Hi, Matt, I am glad that this article can help you. If you want to save sheets as new CSV files, this article https://www.extendoffice.com/documents/excel/5537-excel-batch-convert-to-csv.html lists the methods on exporting sheets as separated CSV files, hope it can do you a favor.
This comment was minimized by the moderator on the site
I have been using this VBA Code for some time and it worked like a charm until I changed computers. I have the same version of excel but now I am getting a Run Time Error "76" Path Not found. Any ideas what could be causing this? It looks like it is hanging up at MkDir. Any help you can provide is appreciated.
This comment was minimized by the moderator on the site
Hi, can I ask which office version you use?
This comment was minimized by the moderator on the site
I'm having this issue as well. I ran it once a month ago just fine and this came up just now.
This comment was minimized by the moderator on the site
You are amazing! Thank you so very much!
This comment was minimized by the moderator on the site
Thank you so much ! great and useful.
This comment was minimized by the moderator on the site
For Each xWs In xWb.Worksheets
How to do export only selected / grouped sheets to separate excel sheets by using this code.?
This comment was minimized by the moderator on the site
Hi there,

Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
This comment was minimized by the moderator on the site
Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
This comment was minimized by the moderator on the site
For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

Set xWb = Application.ThisWorkbook to

Set xWB = ActiveWorkbook

That will make the macro run from the Active Workbook instead and save in a subfolder to that.
This comment was minimized by the moderator on the site
With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
This comment was minimized by the moderator on the site
You can directly click the Run button of the Microsoft Visual Basic for Applications window.
This comment was minimized by the moderator on the site
Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations