Խորհուրդ. Այլ լեզուներն են Google- թարգմանված: Դուք կարող եք այցելել այն English այս հղման տարբերակը:
Մուտք
x
or
x
x
Գրանցում
x

or

Excel- ում ինչպես արտահանել եւ պահել յուրաքանչյուր աշխատաթերթը որպես առանձին նոր աշխատանքային տուփ:

Ենթադրենք, ցանկանում եք արտահանել եւ փրկել մեկ կամ մի քանի աշխատաթերթեր, որպես նոր աշխատանքային գրք, ինչպես եք զբաղվել դրա հետ: Սովորաբար դուք կարող եք պատճենել յուրաքանչյուր աշխատանքային թերթիկ եւ տեղադրեք նոր աշխատանքային գրքույկ: Բայց այստեղ մենք ձեզ բերում ենք որոշակի օգտակար հնարքներ `զբաղվելու համար:

Արտահանել եւ պահպանել աշխատաթերթերը որպես նոր աշխատանքային տուփ `Տեղափոխել կամ պատճենել հրամանով

Արտահանել եւ աշխատեք աշխատաթերթերը որպես նոր աշխատանքային գրքույկ VBA կոդի հետ

Արտահանում եւ պահպանեք աշխատաթերթերը որպես նոր աշխատանքային տետր, Excel- ի համար Kutools- ի հետ լավ գաղափար 3


Արագորեն բաժանեք բազմաթիվ աշխատանքային թերթեր առանձին աշխատանքային գրքույկում Excel- ում

Microsoft Excel- ում կարող եք փրկել կամ պառակտել աշխատանքային թերթիկը մեկ աշխատանքային գրքից որպես նոր Excel ֆայլ `պատճենելով այս նյութը նոր աշխատանքային գրքում: Թվում է, թե դժվար է, եթե ցանկանում եք բաժանել յուրաքանչյուր էջի / աշխատանքային թերթիկի առանձին Excel, txt, csv, pdf ֆայլերը: Սակայն հետ Excel- ի համար Excel- ում'S Սպլիտ աշխատանքային գրքույկը օգտակար, դուք կարող եք արագ գործ ունենալ դրա հետ: Սեղմեք 60 օր անվճար փորձով լի առանձնահատկություններով:
doc պառակտված աշխատանքային տետր 1
Kutools համար Excel- ը, ավելի քան 300- ով օգտագործվող Excel- ի հավելվածները, ազատ են, առանց 60 օրվա սահմանափակումների:

arrow կապույտ աջ փուչիկ Արտահանել եւ պահպանել աշխատաթերթերը որպես նոր աշխատանքային տուփ `Տեղափոխել կամ պատճենել հրամանով


Օգտագործելով Տեղափոխեք կամ պատճենեք հրամանը կօգնեն արագ կամ արագորեն նոր աշխատատեղին արտահանել կամ պատճենել մեկ կամ մի քանի աշխատաթերթեր:

Քայլ 1. Ընտրեք աշխատաթերթերի անունները ներդիրի տողում: Դուք կարող եք ընտրել բազմակի ընտրություն անցկացնելով Ctrl բանալի կամ հերթափոխություն բանալի.

Քայլ 2: Անմիջապես կտտացրեք աշխատաթերթի անունը եւ կտտացրեք Տեղափոխեք կամ պատճենեք համատեքստում ընտրացանկից:
doc արտահանման թերթիկներ 1

Քայլ 3 Տեղափոխեք կամ պատճենեք երկխոսության վանդակում, ընտրեք (նոր գիրք) կետը կաթվածի ցուցակից Տեղափոխել ընտրված թերթերը գիրք.

doc արտահանման թերթիկներ 2

Քայլ 4: Այնուհետեւ կտտացրեք OK, հիմա դու անցել ես նոր աշխատագիրք արտահանվող կամ պատճենահանված գործերի հետ, սեղմեք Ֆայլ > Փրկել նոր աշխատագիրքը փրկելու համար:

Նշում: Է Տեղափոխեք կամ պատճենեք երկխոսության դաշտ, կա a Ստեղծեք պատճենը տարբերակը: Եթե ​​դուք չեք ստուգում այն, այն կտեղափոխվի ընտրված աշխատանքային թերթերը բնօրինակի աշխատանքային գրքից. եթե ստուգեք այն, պատճենեք ընտրված աշխատանքային թերթերը:


arrow կապույտ աջ փուչիկ Արտահանել եւ աշխատեք աշխատաթերթերը որպես նոր աշխատանքային գրքույկ VBA կոդի հետ

Հետեւյալ կոդը կտեսնի բոլոր տեսանելի աշխատաթերթերը նոր աշխատանքային գրքում եւ պահպանեք աշխատանքային գիրքը սկզբնական թերթիկի անունով նորաստեղծ թղթապանակում, նույն ճանապարհով, որը գործում է աշխատանքային գրքում: Խնդրում ենք անել հետեւյալ քայլերը.

Քայլ 1: Անջատեք ALT + F11 ստեղները, եւ այն բացում է Microsoft Visual Basic ծրագրերի համար պատուհան.

Քայլ 2: Սեղմեք Տեղադրել > Մոդուլներ, եւ Մոդուլի պատուհանում տեղադրեք հետեւյալ մակրո:

VBA: Արտագրում եւ պահպանեք worksheets որպես նոր աշխատանքային տետր նոր թղթապանակում:

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

Քայլ 3: Սեղմեք F5 բանալին գործարկել այս կոդը: Իսկ արագ տուփ կբացվի, որպեսզի ձեզ տեղեկացնեն արտահանված աշխատաթերթերի տեղադրությունը, իսկ բնօրինակի աշխատանքային գրքի բոլոր աշխատաթերթերը արտահանվել են մի քանի նոր առանձին աշխատանքային գրքեր, որոնք բնօրինակ թերթեր են անվանել նոր հատուկ թղթապանակում: Տեսեք screenshots- ը:

doc արտահանման թերթիկներ 7

arrow կապույտ աջ փուչիկ Արտահանում եւ պահպանեք աշխատաթերթերը որպես նոր աշխատանքային տետր, Excel- ի համար Kutools- ի հետ

Եթե ​​ունեք բազմաթիվ աշխատանքային թերթեր, որոնք պետք է պահվեն որպես առանձին աշխատանքային գրքույկ, առաջին մեթոդը չի կարող լավ ընտրություն լինել: Եւ VBA կոդը գուցե մի փոքր բարդ է Excel սկսնակների համար: Այստեղ դուք կարող եք օգտագործել այն Սպլիտ աշխատանքային գրքույկը օգտակար Excel- ի համար Excel- ում արագ եւ հեշտությամբ արտահանել եւ պահպանել մեկ աշխատանքային տետրի յուրաքանչյուր աշխատանքային թերթիկ `առանձնացնել նոր աշխատանքային գրքույկ:

Excel- ի համար Excel- ում, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում են ձեր աշխատանքը:

Այն բանից հետո անվճար տեղադրումը Kutools համար Excel, խնդրում ենք անել ստորեւ:

Քայլ 1: Սեղմեք Մանրամասն > Աշխատանքային տետր > Սպլիտ աշխատանքային գրքույկ .... Տեսեք,
doc արտահանման թերթիկներ 3

Քայլ 2 Սպլիտ աշխատանքային գրքույկը երկխոսության արկղը, ստորեւ, ինչպես ստորեւ.

doc արտահանման թերթիկներ 4
1: բոլոր աշխատաթերթերի անունները ստուգվել են լռելյայնորեն, եթե չեք ուզում բաժանվել որոշ գործարանների, կարող եք հանել դրանք;


2: Եթե ​​ցանկանում եք խուսափել թաքնված կամ դատարկ աշխատաթերթերը բաժանելու համար, կարող եք ստուգել Բաց թողնել թաքնված worksheets or Բաց թողնել blank worksheets));


3: եւ դուք կարող եք ստուգել Նշեք խնայողությունը ձեւաչափը եւ ընտրեք պառակտումը թերթիկները, ապա փրկեք որպես տեքստային ֆայլ, pdf ֆայլ կամ csv ֆայլ, անպիտան, եթե չես ստուգում այս տարբերակը, այն կտարածնի թերթիկները եւ պահեք որպես աշխատանքային գրքույկ:

Քայլ 3: Այնուհետեւ կտտացրեք պառակտում կոճակը եւ ընտրեք այն թղթապանակը, որը ցանկանում եք տեղադրել նոր աշխատանքային տետրերը: Տեսեք,
doc արտահանման թերթիկներ 6

Քայլ 4: Եվ կտտացրեք OK, ապա յուրաքանչյուրը ստուգել է աշխատաթերթը Սպլիտ աշխատանքային գրքույկը երկխոսության տուփը արտահանվում է եւ պահվում որպես անհատական ​​աշխատանքային գրքույկ: Յուրաքանչյուր նոր աշխատանքային գրքույկը նշված է բնօրինակի աշխատանքային թերթիկի անունով: Տեսեք,
doc արտահանման թերթիկներ 5

Սեղմիր իմանալ այս Split Workbook գործիքի մասին լրացուցիչ տեղեկություններ.

arrow կապույտ աջ փուչիկ Արտահանել եւ պահպանել յուրաքանչյուր թերթիկը որպես նոր աշխատանքային գիրք


Արագորեն բաժանեք տվյալներ Excel- ում տեղադրված սյունակի կամ հաստատված տողերի հիման վրա բազմակի աշխատաթերթերի մեջ

Ենթադրելով, որ դուք ունեք աշխատանքային գիծ, ​​որը A- ի սյունակներում տվյալները ունի, վաճառողի անունը A սյունակում է, եւ դուք պետք է ավտոմատ կերպով բաժանեք այս տվյալները մի քանի աշխատաթերթերի վրա, նույն սյունակի A- ի վրա, նույն աշխատանքային գրքում, եւ յուրաքանչյուր վաճառողը բաժանվելու է նոր գործադիրը: Excel- ի համար Excel- ում'S Սպլիտ ամսաթիվը օգտակար կարող է օգնել ձեզ արագ շեղել տվյալները մի քանի աշխատաթերթերի վրա, ընտրված սյունակի հիման վրա, ինչպես ստորեւ, որը ցուցադրվում է Excel- ում: Սեղմեք ամբողջական տեսանյութի 60 օր անվճար դատավարության համար:
doc պառակտված տվյալներ 2
Kutools համար Excel- ը, ավելի քան 300- ով օգտագործվող Excel- ի հավելվածները, ազատ են, առանց 60 օրվա սահմանափակումների:

Առնչվող հոդվածներ քանակը:



Առաջարկված արտադրողականության գործիքներ

Գրասենյակի էջանշանը

ոսկի star1 Հասանելի էջանիշեր բերեք Excel- ում եւ Office- ի այլ ծրագրերում, ինչպես Chrome- ի, Firefox- ի եւ նոր Internet Explorer- ի:

Excel- ի համար Excel- ում

ոսկի star1Զարմանալի է: Բարձրացրեք ձեր արտադրողականությունը 5 րոպեում: Անհրաժեշտ է հատուկ հմտություններ, օրական երկու ժամ տեւողությամբ:

ոսկի star1300- ի նոր առանձնահատկությունները Excel- ում, կատարել Excel շատ հեշտ եւ հզոր:

  • Միավորել բջիջը / շարքերը / սյունակները առանց կորցնելու տվյալների:
  • Միավորել եւ միավորել բազմակի թերթիկները եւ աշխատանքային տետրերը:
  • Համեմատեք միջակայքերը, պատճենեք բազմակի ընդգրկույթներ, փոխեք տեքստային ամսաթիվը, միավորը եւ արտարժույթի փոխակերպումը:
  • Count by Colors, Paging Subtotals, Ընդլայնված Sort եւ Super Filter,
  • Լրացուցիչ Ընտրել / Ներդիր / Ջնջել / Տեքստային / Ֆորմատ / ՈՒղեցույց / Մեկնաբանություն / Աշխատանքային տետրեր / Գործիքներ գործիքներ ...

Excel ստեղնաշարի կրկնօրինակը 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 · 7 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??