Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að flytja út og vista hvert verkstæði sem sérstakur nýr vinnubók í Excel?

Segjum að þú viljir flytja út og vista eitt eða fleiri vinnublöð sem nýtt vinnubók, hvernig munu takast á við það? Venjulega má afrita hvert verkstæði og líma í nýja vinnubók. En hér færum við þér nokkrar góðar brellur til að takast á við það:

Flytja út og vista vinnublöð sem ný vinnubók með Færa eða Afrita stjórn

Flytja út og vista vinnublöð sem nýtt vinnubók með VBA kóða

Flytja út og vista vinnublöð sem nýtt vinnubók með Kutools fyrir Excel góð hugmynd3


Skiptu fljótt mörgum vinnublöðum í sérstaka vinnubók í Excel

Í Microsoft Excel er hægt að vista eða skipta verkstæði úr einum vinnubók sem ný Excel skjal með því að afrita og líma þetta verkstæði í nýtt vinnubók. Það virðist erfitt, ef þú vilt skipta hverju blaði / verkstæði af stórum vinnubók sem aðskilin Excel, Txt, CSV, PDF skrár. En með Kutools fyrir Excel'S Split vinnubók gagnsemi, þú getur fljótt að takast á við það. Smelltu fyrir 60 daga ókeypis prufa með fullum eiginleikum!
doc skipt vinnubók 1
Kutools fyrir Excel: með fleiri en 300 handvirkum Excel viðbótum, ókeypis að reyna án takmörkunar á 60 daga.

ör blár hægri kúla Flytja út og vista vinnublöð sem ný vinnubók með Færa eða Afrita stjórn


Notkun á Færa eða afrita stjórn mun hjálpa þér að flytja út eða afrita eina eða fleiri vinnublöð í nýtt vinnubók fljótt.

Skref 1: Veldu heiti vinnublaðsins í flipanum. Þú getur valið marga með því að halda niðri Ctrl lykill eða breyting lykillinn.

Skref 2: Hægri smelltu á heiti vinnublaðsins og smelltu á Færa eða afrita úr samhengisvalmyndinni.
doc útflutnings blöð 1

Skref 3: Í Færa eða afrita valmynd, veldu (nýr bók) atriði úr fellilistanum af Færðu valda blöð til bókar.

doc útflutnings blöð 2

Skref 4: Smelltu síðan á OK, nú hefur þú skipt yfir í ný vinnubók með útfluttum eða afrituðum vinnublöðum skaltu smella á File > Vista til að vista nýja vinnubókina.

Athugaðu: Í Færa eða afrita valmynd, það er Búðu til afrit valkostur. Ef þú skoðar ekki það mun það flytja valda vinnublaði úr upprunalegu vinnubók; ef athugaðu það mun það afrita valda vinnublað.


ör blár hægri kúla Flytja út og vista vinnublöð sem nýtt vinnubók með VBA kóða

Eftirfarandi kóði mun flytja út hvert sýnilegt verkstæði í nýjum vinnubók og vista vinnubókina með nafni upprunalegu blaðsins í nýstofnuðu möppu á sömu braut og virk vinnubók. Vinsamlegast gerðu eftirfarandi skref:

Skref 1: Haltu inni ALT + F11 lyklar, og það opnar Microsoft Visual Basic fyrir forrit gluggi.

Skref 2: Smelltu Setja > Mát, og límdu eftirfarandi fjölvi í eininga glugga:

VBA: Flytja út og vista vinnublöð sem nýtt vinnubók í nýjum möppu.

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

Skref 3: Styddu á F5 lykillinn að því að keyra þennan kóða. Og hvetja kassi birtist til að segja þér staðsetningu nýrra útfluttra vinnubóka og öll vinnublað af upprunalegu vinnubókinni hefur verið flutt út í nokkrar nýjar aðskildar vinnubækur sem nefndu upprunalegu blöð í nýjum sérstökum möppu. Sjá skjámyndir:

doc útflutnings blöð 7

ör blár hægri kúla Flytja út og vista vinnublöð sem nýtt vinnubók með Kutools fyrir Excel

Ef þú hefur marga vinnublaði sem þarf að vera vistuð sem aðskilin vinnubók, getur fyrsta aðferðin ekki verið góð val. Og VBA númerið er kannski svolítið flókið fyrir byrjendur Excel. Hér getur þú notað Split vinnubók gagnsemi Kutools fyrir Excel til að fljótt og auðveldlega flytja út og vista hvert verkstæði í einum vinnubók til að aðskilja nýja vinnubók.

Kutools fyrir Excel, með meira en 300 hagnýtar aðgerðir, gerir störf þín auðveldara.

Eftir ókeypis uppsetning Kutools fyrir Excel, vinsamlegast gerðu eftirfarandi:

Skref 1: Smelltu Kutools Meira > Vinnubók > Split vinnubók .... Sjá skjámynd:
doc útflutnings blöð 3

Skref 2: Í Split vinnubók valmynd, gerðu eftirfarandi:

doc útflutnings blöð 4
1: allar heiti vinnublaðsins hafa verið merktar sjálfgefið, ef þú vilt ekki að skipta sumum vinnublaðunum, getur þú hakað þau úr;


2: Ef þú vilt forðast að kljúfa falinn eða eyða blöðunum geturðu athugað Hoppa yfir falinn vinnublað or Slepptu eyða vinnublaðum.);


3: og einnig er hægt að athuga Tilgreina vistun snið og til að velja deildu blöðin þá vistaðu sem textaskrá, pdf-skrá eða csv-skrá, ef þú hefur ekki valið þennan möguleika mun hún skipta blöðum og vista sem vinnubók.

Skref 3: Smelltu síðan á Split hnappinn og veldu möppuna sem þú vilt setja nýtt vinnubók til. Sjá skjámynd:
doc útflutnings blöð 6

Skref 4: Og smelltu síðan á OK, þá hverja köfluð verkstæði í Split vinnubók Valmynd er flutt út og vistuð sem einstaklingur vinnubók. Hver ný vinnubók er nefnd með upprunalegu heiti verkefnisins. Sjá skjámynd:
doc útflutnings blöð 5

Smelltu til að fá frekari upplýsingar um þetta Split Workbook tól.

ör blár hægri kúla Flytja út og vista hvert blað sem nýtt vinnubók


Skiptu fljótt gögnum í margar vinnublöð á grundvelli dálks eða fastra raða í Excel

Segjum að þú hafir verkstæði sem hefur gögn í dálkum A til G, nafn sölumannsins er í dálki A og þú þarft sjálfkrafa að skiptast á þessum gögnum í margar vinnublöð byggt á dálki A í sömu vinnubók og hver sölumaður verður skipt í nýtt verkstæði. Kutools fyrir Excel'S Split Date gagnsemi getur hjálpað þér að fljótt skiptast á gögnum í margar vinnublöð byggt á völdum dálki og neðan skjámynd sýnt í Excel. Smelltu fyrir fullbúið 60 daga ókeypis prufa!
doc skipt gögn 2
Kutools fyrir Excel: með fleiri en 300 handvirkum Excel viðbótum, ókeypis að reyna án takmörkunar á 60 daga.

Tengdar greinar:



Ráðlögð framleiðni verkfæri

Office flipi

gull star1 Komdu með handan flipa í Excel og önnur Office hugbúnaður, eins og Króm, Firefox og nýjan Internet Explorer.

Kutools fyrir Excel

gull star1Ótrúlegt! Auka framleiðni þína á 5 mínútum. Ekki þörf á sérstökum hæfileikum, spara tvær klukkustundir á hverjum degi!

gull star1300 Nýjar eiginleikar fyrir Excel, Gera Excel mjög auðvelt og öflugt:

  • Sameina Cell / Rows / dálka án þess að tapa gögnum.
  • Sameina og sameina margar töflur og vinnubækur.
  • Bera saman sviðum, afritaðu margar línur, umbreyta texta í dag, einingar og gjaldmiðil viðskipta.
  • Fjöldi með litum, síðuskiptafjölda, háþróaður flokkur og frábær sía,
  • Meira Veldu / Setja / Eyða / Texti / Snið / Link / Athugasemd / Vinnubækur / Verkstæði Verkfæri ...

Skjár skot af Kutools fyrir 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.
    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 · 5 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??