Note: The other languages of the website are Google-translated. Back to English

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 for 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 for 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 y nodir 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:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (62)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch yn fawr, yn gweithio'n dda iawn ac yn hawdd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rwy'n hoffi'r cod Ydy hi'n bosibl cadw'r llyfr gwaith newydd heb y wybodaeth dyddiad Dyna felly pan fyddaf yn ail gadw'r dalennau yn y llyfr gwaith blaenorol bydd gennyf yr opsiwn i drosysgrifo'r newidiadau yn hytrach na chreu ffolder dyddiedig arall? Hefyd ond ddim mor bwysig sut allwn i ddefnyddio enw a chyrchfan arall ar gyfer y ffolder cyrchfan Regards Sean
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr. Swydd da!.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i newid y macro hwn fel y gallaf ei gadw mewn ffeil yn y ffolder XLSTART ond bydd yn rhedeg ar gyfer y llyfr gwaith gweithredol? Bob tro rwy'n ei gadw yn llyfr gwaith XLSTART mae'n methu ar y llinell DateString = Fformat(Nawr, "bbbb-mm-dd hh-mm-ss"). Diolch! Keith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Pawb, A all rhywun fy helpu ar isod. Mae angen cod VBA arnaf a all gopïo'r holl daflenni gweladwy yn unig i lyfr gwaith newydd ac ni ddylai gopïo cod macro i lyfr gwaith newydd, arbed llyfr gwaith newydd ar y bwrdd gwaith gyda dau werth cell gwahanol yn enw'r daflen a'r daflen fel enw ffeil a chau'r prif lyfr gwaith hebddo arbed.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch. Dyma yn union yr hyn yr oeddwn ei angen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod yn methu yn sh.Copy ac ni allaf chyfrif i maes pam. Unrhyw Syniadau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'r cod hwn yn berffaith ar gyfer yr hyn sydd ei angen arnaf, ond a allech chi ddangos cod ar gyfer yr un broses yn union ar gyfer un ddalen yn hytrach na'r llyfr gwaith cyfan?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r codau VBA yn gweithio fel hud, ond a oes ffordd i hyn gael ei wneud gan ddefnyddio VBScript? Rwy'n mynd yn wallgof yn ceisio bodloni'r gofyniad gan fy ngoruchwyliwr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch. terimakasih. ini cod yang saya butuhkan
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiol iawn diolch! Wedi caru'r Cod VBA
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae llawer o gais. Es una pena no existir tambien en Español. Gracias
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn anffodus nid oedd y cod VBA yn gweithio i mi. Roedd yn rhaid i mi ddadfygio ac mae'r broblem gyda'r llinell: Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum Unrhyw syniadau pam nad oedd yn gweithio i mi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Erthygl wych - gweithiodd VBA y tro cyntaf - perffaith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
xWs.Copy -mae'n gamgymeriad yn fy rhan i beth mae'n ei olygu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwall amser rhedeg Method 'Copi of Object' taflen waith'
Lleihawyd y sylw hwn gan y safonwr ar y wefan
O'r tri dull uchod, cefais fod y dull cyntaf yn eithaf da o ystyried y ffaith fy mod yn ddechreuwr ac nad yw fy ngwaith o gwbl yr un maint â gweithwyr proffesiynol. Fy niolch diffuant am esbonio'r camau mewn modd syml a chlir.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allwn hefyd allforio POB dalen (300+) i html, bydd hyn yn fy helpu llawer, mae allforio i destun unedig eisoes yn helpu ond mae eu hangen arnaf mewn html, neu dim borderi tabl ar gyfer y gwahaniaethau cell
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe weithiodd eich cod i mi... Diolch yn fawr !!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Derbyniais god gwall sy'n dweud "Gwall llunio: Gweithdrefn allanol annilys"...help!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir