Ana içeriğe atla

Her bir sayfayı Excel'de CSV / PDF dosyası olarak nasıl kaydeder veya dışa aktarırım?

Örneğin, birden çok sayfalı büyük bir çalışma kitabınız var ve her bir sayfayı ayrı bir .csv dosyası veya PDF dosyası olarak kaydetmek veya dışa aktarmak istiyorsunuz, bunu nasıl kolay ve hızlı bir şekilde yapabilirsiniz? Bu yazıda, bunu çözmek için birkaç yöntem tanıtacağım.


Farklı Kaydet özelliği ile her sayfayı CSV / PDF dosyası olarak kaydedin veya dışa aktarın

Bildiğiniz gibi, Microsoft Excel mevcut çalışma sayfasını ayrı bir .csv dosyası veya PDF dosyası olarak kaydedebilir. Bu nedenle, her sayfayı .csv dosyası veya PDF dosyası olarak tek tek manuel olarak kaydedebilir veya dışa aktarabilirsiniz.

1. Ayrı bir .csv dosyası olarak kaydedeceğiniz veya dışa aktaracağınız sayfaya geçin ve fileto (Ya da Ofis düğmesi)> Farklı Kaydet.

2. Açılan iletişim kutusunda, .csv dosyasını içine kaydedeceğiniz hedef klasörü belirtin, Kayıt türü kutu ve seçin CSV (Virgülle ayrılmış) (* .csv) or PDF (* .pdf) açılır listeden tıklayın ve İndirim düğmesine basın.

3. Art arda çıkan iki uyarı iletişim kutusu olacaktır. lütfen tıklayın OK > Evet.

Not: Etkin çalışma sayfasını PDF dosyası olarak kaydederseniz, bu iletişim kutuları açılmaz. Sadece bir sonraki adıma geçin.

4. Diğer sayfaları tek tek .csv dosyaları olarak kaydetmek için 1-3 arasındaki adımları tekrarlayın.


Her bir sayfayı VBA ile CSV dosyası olarak toplu kaydedin veya dışa aktarın

.Csv dosyaları olarak kaydetmek veya dışa aktarmak istediğiniz çok sayıda sayfa varsa, ilk yöntem oldukça zaman alıcı ve sıkıcı olacaktır. Bu VBA çalışmayı basitleştirebilir ve her bir sayfayı .csv dosyası olarak kaydetmeyi veya dışa aktarmayı kolaylaştırabilir.

1. Basın Ara Toplam + F11 Microsoft Visual Basic for Application penceresini açmak için aynı anda tuşlarına basın.

2. tık Ekle > modülve ardından aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Her sayfayı ayrı bir CSV dosyası olarak kaydedin

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. Tıklayın koşmak tuşuna basın veya tuşuna basın. F5 Bu VBA'yı çalıştırmak için anahtar.

4. Açılan Gözat iletişim kutusunda, tüm .csv dosyalarını içine kaydedeceğiniz hedef klasörü belirtin ve OK düğmesine basın.

Ardından, her sayfanın belirtilen hedef klasörde ayrı bir .csv dosyası olarak kaydedildiğini / dışa aktarıldığını göreceksiniz.


Kutools for Excel ile her sayfayı toplu olarak kaydedin veya CSV / PDF dosyası olarak dışa aktarın

Bazı Excel kullanıcıları bazı nedenlerle VBA kodunu reddedebilir. Endişelenme! Üçüncü yöntem ayrıca, her bir sayfayı .csv dosyası veya PDF dosyası olarak toplu olarak kaydedebilir veya Çalışma Kitabını Böl Kutools for Excel'in yardımcı programı.

Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alın

1. Tıklayın kuruluş > alıştırma kitabı > Çalışma Kitabını Böl.

her sayfayı csv 2'ye dokundurun

2. Çalışma Kitabını Böl iletişim kutusunda,

her sayfayı csv 8'ye dokundurun

(1) Tüm sayfaları seçmeye devam edin. Değilse, daha önce onay kutusunu işaretleyebilirsiniz. Çalışma sayfası adı tüm sayfaları seçmek için;

(2) Kontrol edin Kaydetme formatını belirtin seçenek;

(3) Aşağıdaki kutuyu tıklayın Kaydetme formatını belirtin seçeneğini belirleyin ve CSV (Macintosh) (*. Csv) or PDF (* .pdf) açılır listeden.

(4) Bölünmüş düğmesine basın.

 

not: Çalışma kitabınızda gizli ve boş çalışma sayfaları varsa, Gizli çalışma sayfalarını atla kutusu ve Boş çalışma sayfasını atla kutusu dışa aktarılırken tüm boş veya gizli sayfaları yok sayar.

Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alın

3. Klasöre Gözat iletişim kutusunu açarken, tüm .csv dosyalarını veya PDF dosyalarını içine kaydedeceğiniz hedef klasörü belirtin ve OK düğmesine basın.

Artık her sayfanın dışa aktarıldığını ve belirtilen klasörde ayrı bir .csv dosyası olarak kaydedildiğini göreceksiniz.


Demo: her sayfayı Excel'de CSV / PDF dosyası olarak kaydedin veya dışa aktarın


Kutools for Excel: 300'den fazla kullanışlı araç parmaklarınızın ucunda! Hiçbir özellik sınırlaması olmaksızın 30 günlük ücretsiz deneme sürenizi bugün başlatın. Hemen İndir!

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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook.Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations