რჩევა: სხვა ენები Google- ით თარგმნილია. შეგიძლიათ ეწვიოთ English ამ ბმის ვერსია.
შესვლა
x
or
x
x
რეგისტრაცია
x

or

როგორ ექსპორტისა და შენახვა თითოეული worksheet როგორც ცალკე ახალი სამუშაო წიგნი Excel?

მოდით ვთქვათ, რომ გსურთ, რომ ექსპორტი და გადარჩენა ერთი ან რამდენიმე სამუშაოები როგორც ახალი სამუშაო წიგნი, როგორ გაუმკლავდეთ ამას? ჩვეულებრივ, შეგიძლიათ დაარეგისტრიროთ თითოეული ნამუშევარი და ჩასვით ახალი სამუშაო წიგნში. მაგრამ აქ ჩვენ მოუტანს რამდენიმე მოსახერხებელი ხრიკები გაუმკლავდეთ მას:

ექსპორტისა და შენახვის სამუშაოები როგორც ახალი შრომის წიგნაკი Move ან ასლი ბრძანება

ექსპორტისა და შენახვის სამუშაოები როგორც ახალი სამუშაო წიგნი VBA კოდით

Export და save worksheets როგორც ახალი workbook ერთად Kutools for Excel კარგი იდეა 3


სწრაფად გაყოფილი მრავალჯერადი worksheets შევიდა ცალკე workbook in Excel

Microsoft Excel- ში შეგიძლიათ შეინახოთ ან გაანაღდოთ worksheet ერთი შრომის წიგნადიდან, როგორც ახალი Excel ფაილი ამ სამუშაოების კოპირებისა და გასახსნელად ახალ სამუშაო წიგნში. როგორც ჩანს შემაშფოთებელია, თუ გსურთ გაყოფილი თითოეული ფურცლის / სამუშაო ფურცლის დიდი შრომის წიგნაკი ცალკე Excel, txt, csv, pdf ფაილი. მაგრამ Kutools ამისთვის Excel'S გაკვეთილი სამუშაო წიგნი კომუნალური, შეგიძლიათ სწრაფად გაუმკლავდეთ მას. დაწკაპეთ 60 დღე უფასო საცდელი სრული თვისებები!
doc გაყოფილი შრომის წიგნაკი 1
Kutools for Excel: ზე მეტი 300 მოსახერხებელი Excel add-ins, უფასო ცდილობენ არ შეზღუდვა in 60 დღე.

arrow ლურჯი სწორი bubble ექსპორტისა და შენახვის სამუშაოები როგორც ახალი შრომის წიგნაკი Move ან ასლი ბრძანება


გამოყენება გადატანა ან ასლი ბრძანება დაგეხმარებათ ახალ სამუშაო წიგნში ექსპორტის ან ერთი ან რამდენიმე სამუშაოების ასლის გადაღება.

ნაბიჯი X: აირჩიეთ worksheet სახელები tab ბარი. თქვენ შეგიძლიათ აირჩიოთ მრავალჯერადი დანიშვნა ქვემოთ Ctrl გასაღები ან გადაიტანოს გასაღები.

ნაბიჯი X: მარჯვენა ღილაკით worksheet სახელი, და დააჭირეთ გადატანა ან ასლი კონტექსტური მენიუდან.
doc ექსპორტის ფურცლები 1

ნაბიჯი X: In გადატანა ან ასლი დიალოგური ფანჯარა, აირჩიეთ (ახალი წიგნი) პუნქტი ჩამოწერის სიიდან შერჩეული ფურცლების გადატანა წიგნში.

doc ექსპორტის ფურცლები 2

ნაბიჯი X: შემდეგ დააჭირეთ OK, ახლა გადავედი ახალი სამუშაო წიგნი ექსპორტირებული ან გადაწერილი worksheets, დააწკაპუნეთ ფაილი > გადარჩენა ახალი სამუშაო წიგნის გადარჩენა.

შენიშვნა: ამ გადატანა ან ასლი დიალოგური ფანჯარა, არსებობს ასლის შექმნა ვარიანტი. თუ არ შეამოწმე, ეს გადააადგილდება შერჩეული სამუშაოების ორიგინალი შრომის წიგნაკიდან; თუ შემოწმება, იგი კოპირება შერჩეული worksheets.


arrow ლურჯი სწორი bubble ექსპორტისა და შენახვის სამუშაოები როგორც ახალი სამუშაო წიგნი VBA კოდით

ეს შემდეგი კოდი ახალ სამუშაო წიგნში ექსპორტის ყველა საექსპლუატაციას გაამჟღავნებს და შრომის წიგნაკის შენახვას ახლად შექმნილი ფოლდერის სახით იგივე გზავნილის სახით, როგორც აქტიური შრომის წიგნაკის სახით. გთხოვთ გააკეთოთ შემდეგი ნაბიჯები:

ნაბიჯი X: დაიჭიროთ ქვემოთ ALT + F11 გასაღებები, და ეს ხსნის Microsoft Visual Basic აპლიკაციებისათვის window.

ნაბიჯი X: დააჭირეთ ჩადეთ > მოდულები, და ჩასვით შემდეგი მაკრო მოდული ფანჯარაში:

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

ნაბიჯი X: პრესა F5 გასაღები ამ კოდის გასაშვებად. და დაუყოვნებლივ ყუთში გაიხსნება ახალი ექსპორტირებული სამუშაო წიგნების ადგილმდებარეობის შესახებ და ორიგინალური შრომის წიგნაკის ყველა სამუშაო ვერსია გაიგზავნა რამდენიმე ახალი ცალკეული საგუშაგოებისთვის, რომლებსაც თავდაპირველი ფურცლები დაემატა ახალი სპეციფიკური საქაღალდე. იხილეთ სკრინშოტები:

doc ექსპორტის ფურცლები 7

arrow ლურჯი სწორი bubble Export და save worksheets როგორც ახალი workbook ერთად Kutools for Excel

თუ თქვენ გაქვთ მრავალჯერადი სამუშაოები საჭიროა ცალკე შრომის წიგნაკში, პირველი მეთოდი ვერ იქნება კარგი არჩევანია. და VBA კოდი იქნებ ცოტა რთული Excel დამწყებთათვის. აქ შეგიძლიათ გამოიყენოთ გაკვეთილი სამუშაო წიგნი სასარგებლო Kutools ამისთვის Excel სწრაფად და მარტივად გაიტანოს ექსპორტი და შეინახოს ერთი სამუშაო წიგნის თითოეული სამუშაო ვერსია ახალი სამუშაო წიგნის დასაწერად.

Kutools ამისთვის Excel, მეტია 300 მოსახერხებელი ფუნქციები, იქმნება თქვენი სამუშაო ადგილები უფრო ადვილია.

მას შემდეგ, რაც უფასო ინსტალაცია Kutools for Excel, გთხოვთ, როგორც ქვემოთ:

ნაბიჯი X: დააჭირეთ კუტუსი პლუს > სამუშაო წიგნი > გაკვეთილის შრომა .... იხილეთ სკრინშოტი:
doc ექსპორტის ფურცლები 3

ნაბიჯი X: In გაკვეთილი სამუშაო წიგნი დიალოგური ფანჯარა, როგორც ქვემოთ:

doc ექსპორტის ფურცლები 4
1: ყველა worksheet სახელები უკვე შემოწმდება, თუ არ გსურთ გაყოფილი ზოგიერთი worksheets, შეგიძლიათ uncheck მათ;


2: თუ გსურთ, რომ თავიდან იქნას აცილებული ფარული ან ცარიელი სამუშაოები, შეგიძლიათ შეამოწმოთ Skip ფარული სამუშაოები or გადავიდეთ ცარიელი სამუშაო ცხრილებით.);


3: და ასევე შეგიძლიათ შეამოწმოთ მიუთითეთ შენახვა ფორმატი, და შეარჩიეთ გაყოფილი sheets შემდეგ შეინახეთ ტექსტური ფაილი, pdf ფაილი, ან CSV ფაილი, in defualt, თუ არ შეამოწმოთ ეს ვარიანტი, იგი გაყოფილი ფურცლები და შეინახეთ როგორც სამუშაო წიგნი.

ნაბიჯი X: შემდეგ დააჭირეთ Split ღილაკს და აირჩიეთ საქაღალდე, რომ გსურთ ახალი სამუშაო წიგნები. იხილეთ სკრინშოტი:
doc ექსპორტის ფურცლები 6

ნაბიჯი X: შემდეგ დააჭირეთ OK, შემდეგ თითოეული შემოწმებული worksheet გაკვეთილი სამუშაო წიგნი დიალოგური ფანჯარა ექსპორტირებულია და შეინახება როგორც ინდივიდუალური შრომის წიგნაკი. თითოეული ახალი სამუშაო წიგნი დასახელებულია ორიგინალი სამუშაოების სახელთან. იხილეთ სკრინშოტი:
doc ექსპორტის ფურცლები 5

დააჭირეთ გაეცანით მეტი ინფორმაცია ამ Split Workbook- ის ინსტრუმენტის შესახებ.

arrow ლურჯი სწორი bubble ექსპორტი და შეინახეთ თითოეული ფურცლის სახით ახალი სამუშაო წიგნი


სწრაფად გაყოფილი მონაცემების მრავალჯერადი worksheets ეფუძნება სვეტის ან ფიქსირებული რიგები Excel

ვარაუდობენ, რომ გაქვთ სამუშაო სვეტი, რომელსაც აქვს სვეტების A- ს, მყიდველის სახელი არის სვეტში და საჭიროა ავტომატურად გაიაროთ ეს მონაცემები სხვადასხვა სამუშაოების მიხედვით, რომელიც ეფუძნება სვეტის A ნაწილში ამავე სამუშაო წიგნში და თითოეული გამყიდველი იქნება ახალი worksheet. Kutools ამისთვის Excel'S გაყოფის თარიღი კომუნალური დაგეხმარებათ სწრაფად გაყოფილი მონაცემების მრავალჯერადი worksheets ეფუძნება შერჩეული სვეტის ქვემოთ screenshot ნაჩვენები Excel. დაწკაპეთ სრული რჩეული 60 დღე უფასო საცდელი!
doc split მონაცემები 2
Kutools for Excel: ზე მეტი 300 მოსახერხებელი Excel add-ins, უფასო ცდილობენ არ შეზღუდვა in 60 დღე.

სტატიები:



რეკომენდებული პროდუქტიულობის ინსტრუმენტები

ოფისის ჩანართი

ოქროს ვარსკვლავი 1 მოიტანეთ ხელსაყრელი ჩანართები Excel და სხვა საოფისე პროგრამებისთვის, ისევე როგორც Chrome, Firefox და ახალი Internet Explorer.

Kutools ამისთვის Excel

ოქროს ვარსკვლავი 1საოცარი! გაზარდეთ თქვენი პროდუქტიულობა წუთში. არ გჭირდებათ რაიმე განსაკუთრებული უნარები, ყოველდღე ორ საათში გადარჩენა!

ოქროს ვარსკვლავი 1300 ახალი ფუნქციები Excel, ჩადება Excel ძალიან მარტივი და ძლიერი:

  • უჯრედის / რიგების / სვეტების შერწყმა მონაცემების დაკარგვის გარეშე.
  • მრავალჯერადი ცხრილებისა და სამუშაოების კომბინირება და კონსოლიდაცია.
  • შეადარეთ საზღვრები, დააკოპირეთ მრავალჯერადი საზღვრები, გადაიყვანეთ ტექსტის თარიღის, განყოფილებისა და ვალუტის კონვერტაციის.
  • დათვლა ფერები, Paging Subtotals, გაფართოებული დალაგება და სუპერ ფილტრი,
  • სხვა არჩევა / ჩასმა / წაშლა / ტექსტი / ფორმატი / ლინკი / კომენტარი / სამუშაო წიგნები / სამუშაოები ინსტრუმენტები ...

ეკრანის კადრი Kutools for 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 · 2 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??