Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

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

Dywedwch eich bod am allforio ac arbed un neu sawl taflen waith fel llyfr gwaith newydd, sut y byddwch chi'n delio ag ef? Fel arfer, gallwch chi gopïo pob taflen waith a'i gludo i lyfr gwaith newydd. Ond dyma ni'n dod â chi driciau defnyddiol i chi i ddelio ag ef:

Allforio ac arbed taflenni gwaith fel llyfr gwaith newydd gyda Gorchymyn Symud neu Gopi

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


Rhannwch daflenni gwaith lluosog yn gyflym i lyfr 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 threfnu'r daflen waith hon i lyfr gwaith newydd. Mae'n ymddangos yn anodd, os ydych chi eisiau rhannu pob daflen / daflen waith o lyfr gwaith mawr fel ffeiliau Excel, txt, csv, pdf ar wahân. Ond gyda Kutools ar gyfer Excel'S Rhannu Llyfr Gwaith cyfleustodau, gallwch ddelio â hi yn gyflym. Cliciwch ar gyfer treialon diwrnod 60 am ddim gyda nodweddion llawn!
llyfr gwaith rhannol doc 1
Kutools for Excel: gyda mwy na 300 Excel add-ins, yn rhad ac am ddim i geisio heb gyfyngiad mewn diwrnodau 60.

swigod saeth cywir glas Allforio ac arbed taflenni gwaith fel llyfr gwaith newydd gyda Gorchymyn Symud neu Gopi


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 lluosog gyda dal i lawr Ctrl allweddol neu symud allweddol.

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

Cam 3: Yn Symud neu Gopïo blwch deialog, dewiswch y (llyfr newydd) eitem o'r rhestr ollwng o Symud taflenni dewis i archebu.

dalennau 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 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 edrychwch arno, bydd yn copïo taflenni gwaith dethol.


swigod saeth cywir glas 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 achub y llyfr gwaith gydag enw'r daflen wreiddiol mewn ffolder newydd ei greu 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 chludwch y macro canlynol yn y Ffenestr Modiwl:

VBA: Allforio a chadw taflenni gwaith fel llyfr gwaith newydd mewn ffolder newydd.

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

Cam 3: Gwasgwch y F5 allweddol i redeg y cod hwn. A bydd blwch prydlon yn dod i fyny i ddweud wrthych leoliad y llyfrau gwaith allforio newydd, ac mae holl daflenni gwaith y llyfr gwaith gwreiddiol wedi cael eu hallforio i rai llyfrau gwaith ar wahân newydd a enwyd yn daflenni gwreiddiol mewn ffolder newydd newydd. Gweler sgrinluniau:

dalennau allforio doc 7

swigod saeth cywir glas Allforio ac arbed taflenni gwaith fel llyfr gwaith newydd gyda Kutools ar gyfer Excel

Os oes gennych chi lawer o daflenni gwaith sydd angen eu cadw fel llyfr gwaith ar wahân, ni all y dull cyntaf fod yn ddewis da. Ac efallai y cod VBA ychydig yn gymhleth i ddechreuwyr Excel. Yma gallwch chi ddefnyddio'r Rhannu Llyfr Gwaith cyfleustodau i Kutools ar gyfer Excel i allforio yn gyflym ac yn hawdd ac arbed pob taflen waith o un llyfr gwaith 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 a ganlyn:

Cam 1: Cliciwch Kutools Mwy > Llyfr Gwaith > Llyfr Gwaith Hollti .... Gweler y sgrin:
dalennau allforio doc 3

Cam 2: Yn y Rhannu Llyfr Gwaith blwch deialog, gwnewch fel a ganlyn:

dalennau allforio doc 4
1: mae pob un o'r enwau ar y daflen waith wedi cael eu gwirio yn ddiofyn, os nad ydych am rannu rhai o'r taflenni gwaith, gallwch eu dadgofnodi;


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


3: a hefyd gallwch chi wirio Nodwch arbed fformat, ac i ddethol rhannu'r taflenni yna arbed fel ffeil testun, ffeil pdf, neu ffeil csv, os na wnewch chi wirio'r opsiwn hwn, bydd yn rhannu taflenni ac yn arbed fel llyfr gwaith.

Cam 3: Yna cliciwch Hollti botwm, a dewiswch y ffolder yr hoffech chi roi'r llyfrau gwaith newydd i. Gweler y sgrin:
dalennau allforio doc 6

Cam 4: Ac yna cliciwch OK, yna pob taflen waith wedi'i gwirio yn y Rhannu Llyfr Gwaith Caiff blwch deialog ei allforio a'i gadw fel llyfr gwaith unigol. Mae pob llyfr gwaith newydd wedi'i enwi gyda'r enw dalen waith wreiddiol. Gweler y sgrin:
dalennau allforio doc 5

Cliciwch i wybod mwy o wybodaeth am y pecyn Llyfr Gwaith Hollti hwn.

swigod saeth cywir glas Allforio ac arbed pob daflen fel llyfr gwaith newydd


Rhannwch ddata yn gyflym i mewn i 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 mewn 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 Rhannu gall cyfleustodau eich helpu i rannu data yn gyflym i mewn i daflenni gwaith lluosog yn seiliedig ar y golofn a ddewisir fel y sgriniau isod a ddangosir yn Excel. Cliciwch ar gyfer treialon rhad ac am ddim diwrnod llawn 60!
data rhannol doc 2
Kutools for Excel: gyda mwy na 300 Excel add-ins, yn rhad ac am ddim i geisio heb gyfyngiad mewn diwrnodau 60.

Erthyglau cysylltiedig:



Offer Cynhyrchiant a Argymhellir

Tab Swyddfa

star1 aur Dewch â thafiau defnyddiol i Excel a meddalwedd Swyddfa eraill, yn union fel Chrome, Firefox a Internet Explorer newydd.

Kutools ar gyfer Excel

star1 aurYn rhyfeddol! Cynyddu eich cynhyrchedd mewn munudau 5. Peidiwch ag angen unrhyw sgiliau arbennig, arbed dwy awr bob dydd!

star1 aur300 Nodweddion Newydd ar gyfer Excel, Gwnewch Excel Yn Fach Hawdd a Phwerus:

  • Cyfuno Cell / Rows / Colofnau heb Colli Data.
  • Cyfuno a Chyfuno Taflenni Lluosog a Llyfrau Gwaith.
  • Cymharwch Rangau, Copi Lluosog, Trosi Testun hyd yma, Uned ac Addasu Arian.
  • Count by Colors, Subtotals Paging, Trefnu Uwch ac Uwch Hidlo,
  • Mwy Dethol / Mewnosod / Delete / Text / Format / Link / Comment / Llyfrau Gwaith / Taflenni Gwaith Offer ...

Sgrîn sgript o Kutools ar gyfer 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.
    Keith · 5 years ago
    Is there a way to change this macro so I can save it in a file in the XLSTART folder but it will run for the active workbook? Everytime I save it in the XLSTART workbook it fails at the DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")line.

    Thanks!
    Keith
  • To post as a guest, your comment is unpublished.
    Rajesh Jayagopi · 5 years ago
    Thanks a lot. Good Job!.
  • To post as a guest, your comment is unpublished.
    Sean · 5 years ago
    Hello I like the code
    Is it possible to just save the new workbook without the date information That is so when I resave the sheets in the previous workbook I will have the option to overwrite the changes rather than create another dated folder? Also but not so important how could I use another name and destination for the destination folder
    Regards
    Sean
  • To post as a guest, your comment is unpublished.
    Nasser · 5 years ago
    thanks alot, works very well and easy.