Ana içeriğe atla

Her çalışma sayfasını Excel'de ayrı yeni çalışma kitabı olarak nasıl dışa aktarabilir ve kaydedebilirim?

Bir veya birkaç çalışma sayfasını yeni bir çalışma kitabı olarak dışa aktarmak ve kaydetmek istediğinizi varsayalım, bununla nasıl başa çıkacaksınız? Normalde her çalışma sayfasını kopyalayıp yeni çalışma kitabına yapıştırabilirsiniz. Ama burada size bununla başa çıkmanız için bazı kullanışlı püf noktaları getiriyoruz:

Çalışma sayfalarını Taşı veya Kopyala komutuyla yeni çalışma kitabı olarak dışa aktarın ve kaydedin

Çalışma sayfalarını VBA kodu ile yeni çalışma kitabı olarak dışa aktarın ve kaydedin

Kutools for Excel ile çalışma sayfalarını yeni çalışma kitabı olarak dışa aktarın ve kaydedin iyi fikir3


ok mavi sağ balon Çalışma sayfalarını Taşı veya Kopyala komutuyla yeni çalışma kitabı olarak dışa aktarın ve kaydedin

Kullanma Taşı veya Kopyala komutu, bir veya birkaç çalışma sayfasını yeni bir çalışma kitabına hızlı bir şekilde aktarmanıza veya kopyalamanıza yardımcı olur.

Adım 1: Sekme çubuğunda çalışma sayfası adlarını seçin. Tuşunu basılı tutarak birden fazla seçim yapabilirsiniz Ctrl anahtar veya çalışma tuşuna basın.

Adım 2: Çalışma sayfası adına sağ tıklayın ve Taşı veya Kopyala bağlam menüsünden.
doc dışa aktarma sayfaları 1

3. Adım: Giriş Taşı veya Kopyala iletişim kutusunu seçin. (yeni kitap) açılan listeden öğe Seçili sayfaları kitaba taşı.

doc dışa aktarma sayfaları 2

4. Adım: Ardından tıklayın OK, şimdi geçtiniz yeni çalışma kitabı dışa aktarılan veya kopyalanan çalışma sayfaları ile fileto > İndirim yeni çalışma kitabını kaydetmek için.

Not: içinde Taşı veya Kopyala iletişim kutusu, bir Bir kopya oluştur seçeneği. Kontrol etmezseniz, seçilen çalışma sayfalarını orijinal çalışma kitabının dışına taşır; kontrol ederseniz, seçilen çalışma sayfalarını kopyalayacaktır.


Excel'de birden çok çalışma sayfasını hızla ayrı çalışma kitabına bölün

Microsoft Excel'de, bu çalışma sayfasını kopyalayıp yeni bir çalışma kitabına yapıştırarak bir çalışma kitabındaki bir çalışma sayfasını yeni bir Excel dosyası olarak kaydedebilir veya bölebilirsiniz. Büyük bir çalışma kitabının her sayfasını / çalışma sayfasını ayrı Excel, txt, csv, pdf dosyaları olarak bölmek istiyorsanız zahmetli görünüyor. Fakat Kutools for Excel'S Çalışma Kitabını Böl yardımcı program, onunla hızlı bir şekilde başa çıkabilirsiniz.  Tüm özelliklere sahip 30 günlük ücretsiz deneme için tıklayın!
doc split çalışma kitabı 1
 
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz olarak deneyin.

ok mavi sağ balon Çalışma sayfalarını VBA kodu ile yeni çalışma kitabı olarak dışa aktarın ve kaydedin

Bu aşağıdaki kod, her görünür çalışma sayfasını yeni bir çalışma kitabında dışa aktaracak ve çalışma kitabını, orijinal sayfanın adıyla yeni oluşturulmuş bir klasöre, etkin çalışma kitabıyla aynı yolda kaydedecektir. Lütfen aşağıdaki adımları uygulayın:

Adım 1: tuşunu basılı tutun. ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

Adım 2: Tıklayın Ekle > modülve aşağıdaki makroyu Modül Penceresine yapıştırın:

VBA: Çalışma sayfalarını dışa aktarın ve yeni bir klasöre yeni çalışma kitabı olarak kaydedin.

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

Adım 3: tuşuna basın. F5 Bu kodu çalıştırmak için anahtar. Ve size yeni dışa aktarılan çalışma kitaplarının yerini söyleyen bir bilgi istemi kutusu açılır ve orijinal çalışma kitabının tüm çalışma sayfaları, yeni belirli bir klasördeki orijinal sayfaları adlandıran bazı yeni ayrı çalışma kitaplarına aktarılır. Ekran görüntülerine bakın:

doc dışa aktarma sayfaları 7

ok mavi sağ balon Kutools for Excel ile çalışma sayfalarını yeni çalışma kitabı olarak dışa aktarın ve kaydedin

Ayrı çalışma kitabı olarak kaydedilmesi gereken birden çok çalışma sayfanız varsa, ilk yöntem iyi bir seçim olamaz. Ve VBA kodu, Excel'e yeni başlayanlar için biraz karmaşık olabilir. Burada kullanabilirsiniz Çalışma Kitabını Böl yarar Kutools for Excel yeni çalışma kitabını ayırmak için bir çalışma kitabının her çalışma sayfasını hızlı ve kolay bir şekilde dışa aktarmak ve kaydetmek için.

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

Adım 1: Tıklayın Kutools Artı > alıştırma kitabı > Çalışma Kitabını Böl…. Ekran görüntüsüne bakın:
doc dışa aktarma sayfaları 3

2. Adım: Çalışma Kitabını Böl iletişim kutusu, aşağıdaki gibi yapın:

doc dışa aktarma sayfaları 4
1: tüm çalışma sayfası adları varsayılan olarak kontrol edilmiştir, bazı çalışma sayfalarını bölmek istemiyorsanız, işaretlerini kaldırabilirsiniz;


2: Gizli veya boş çalışma sayfalarını bölmekten kaçınmak istiyorsanız, Gizli çalışma sayfalarını atla or Boş çalışma sayfalarını atla.;)


3: ve ayrıca kontrol edebilirsiniz Kaydetmeyi belirtin format ve sayfaları bölmeyi seçmek ve ardından varsayılan olarak metin dosyası, pdf dosyası veya csv dosyası olarak kaydetmek için, bu seçeneği işaretlemezseniz sayfaları böler ve çalışma kitabı olarak kaydeder.

3. Adım: Ardından tıklayın Bölünmüş düğmesine tıklayın ve yeni çalışma kitaplarını yerleştirmek istediğiniz klasörü seçin. Ekran görüntüsüne bakın:
doc dışa aktarma sayfaları 6

4. Adım: Ve ardından tıklayın OK, sonra her kontrol edilen çalışma sayfasındaki Çalışma Kitabını Böl iletişim kutusu dışa aktarılır ve ayrı çalışma kitabı olarak kaydedilir. Her yeni çalışma kitabı orijinal çalışma sayfası adıyla adlandırılır. Ekran görüntüsüne bakın:
doc dışa aktarma sayfaları 5

Bu Bölünmüş Çalışma Kitabı aracı hakkında daha fazla bilgi edinmek için tıklayın.

ok mavi sağ balon Her sayfayı yeni çalışma kitabı olarak dışa aktarın ve kaydedin


Excel'deki sütun veya sabit satırlara göre verileri hızla birden çok çalışma sayfasına bölün

A'dan G'ye kadar olan sütunlarda veri içeren bir çalışma sayfanız olduğunu varsayarsak, satıcının adı A sütunundadır ve bu verileri aynı çalışma kitabındaki A sütununa göre otomatik olarak birden çok çalışma sayfasına bölmeniz gerekir ve her satış elemanı yeni bir sayfaya bölünecektir. çalışma kağıdı. Kutools for Excel'S Bölünme Tarihi yardımcı programı, Excel'de gösterilen ekran görüntüsü gibi, seçilen sütuna göre verileri hızlı bir şekilde birden çok çalışma sayfasına bölmenize yardımcı olabilir.  Tam özellikli 30 günlük ücretsiz deneme için tıklayın!
doc bölünmüş veri 2
 
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz olarak deneyin.

İlgili yazılar:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Comments (63)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks, this was awesome. There are dozens of pages on the internet talking about how to do this. You guys are the only ones that got the VBA code right. Many thanks. I had a big monster workbook with about 100 tabs, all relatively small, and the VBA macro knocked it out in about five minutes. Thank God for smart guys like you. :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
This has been extremely helpful, my job was doing some data management manually and this helped me automate it. I do have a question though, as the code is a bit over my head to figure out on my own.

What would I need to change to make it so that it always saves as a CSV file instead of an excel file? I know it'll be part of the IF VAL THEN CASES but I don't follow the formatting of that area.

Thank you,
Matt
This comment was minimized by the moderator on the site
Hi, Matt, I am glad that this article can help you. If you want to save sheets as new CSV files, this article https://www.extendoffice.com/documents/excel/5537-excel-batch-convert-to-csv.html lists the methods on exporting sheets as separated CSV files, hope it can do you a favor.
This comment was minimized by the moderator on the site
I have been using this VBA Code for some time and it worked like a charm until I changed computers. I have the same version of excel but now I am getting a Run Time Error "76" Path Not found. Any ideas what could be causing this? It looks like it is hanging up at MkDir. Any help you can provide is appreciated.
This comment was minimized by the moderator on the site
Hi, can I ask which office version you use?
This comment was minimized by the moderator on the site
I'm having this issue as well. I ran it once a month ago just fine and this came up just now.
This comment was minimized by the moderator on the site
You are amazing! Thank you so very much!
This comment was minimized by the moderator on the site
Thank you so much ! great and useful.
This comment was minimized by the moderator on the site
For Each xWs In xWb.Worksheets
How to do export only selected / grouped sheets to separate excel sheets by using this code.?
This comment was minimized by the moderator on the site
Hi there,

Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
This comment was minimized by the moderator on the site
Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
This comment was minimized by the moderator on the site
For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

Set xWb = Application.ThisWorkbook to

Set xWB = ActiveWorkbook

That will make the macro run from the Active Workbook instead and save in a subfolder to that.
This comment was minimized by the moderator on the site
With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
This comment was minimized by the moderator on the site
You can directly click the Run button of the Microsoft Visual Basic for Applications window.
This comment was minimized by the moderator on the site
Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations