Excel'de ayrı csv veya metin dosyalarına nasıl birden çok / tüm sayfa kaydedilir, dışa aktarılır?
Excel'i kullanırken, Farklı Kaydet işlevini kullanarak bir çalışma sayfasını csv veya metin dosyası olarak manuel olarak kaydedebilirsiniz. Ancak, bir çalışma kitabındaki birden çok veya tüm çalışma sayfasını ayrı csv veya metin dosyalarına dönüştürmek için nasıl yapabilirsiniz? Bu makalede, birden çok veya tüm sayfayı ayrı csv veya metin dosyalarına kaydetme veya dönüştürme yöntemlerini göstereceğiz.
VBA kodu ile tüm sayfaları kaydedin, dışa aktarın veya csv'ye veya metin dosyasına dönüştürün
Kutools for Excel ile birden çok / tüm sayfaları csv veya metin dosyasına kaydedin, dışa aktarın veya dönüştürün
VBA kodu ile tüm sayfaları kaydedin, dışa aktarın veya csv'ye veya metin dosyasına dönüştürün
Aşağıdaki VBA kodlarıyla, bir çalışma kitabındaki tüm çalışma sayfalarını ayrı csv veya metin dosyalarına kaydedebilirsiniz. Lütfen aşağıdaki işlemleri yapın.
Tüm sayfaları csv dosyalarına aktarın veya dönüştürün
1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Microsoft Visual Basic Uygulaması pencere.
2. içinde Microsoft Visual Basic Uygulaması Pencere, tıklayın Ekle > modül. Ardından aşağıdaki kodu kopyalayıp modül pencere.
VBA kodu: Tüm sayfaları ayrılmış csv dosyalarına aktarın
Sub ExportSheetsToCSV()
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xcsvFile = CurDir & "\" & xWs.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
FileFormat: = xlCSV, CreateBackup: = False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Dışa aktarılan tüm csv dosyalarının şurada bulunduğunu göreceksiniz. evraklar Klasör. Ekran görüntüsüne bakın:
Tüm çalışma sayfalarını Metin dosyalarına aktarın veya dönüştürün
Aşağıdaki kod, çalışma kitabındaki tüm sayfaları ayrılmış Metin dosyalarına dışa aktarmanıza veya dönüştürmenize yardımcı olabilir.
VBA kodu: Tüm sayfaları ayrılmış Metin dosyalarına aktarın
Sub ExportSheetsToText()
Dim xWs As Worksheet
Dim xTextFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xTextFile = CurDir & "\" & xWs.Name & ".txt"
Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
Dışa aktarılan Metin dosyaları ayrıca evraklar Klasör. Ekran görüntüsüne bakın:
Kutools for Excel ile birden çok / tüm sayfaları csv veya metin dosyasına kaydedin, dışa aktarın veya dönüştürün
You, Excel'de birden çok sayfayı veya tüm çalışma sayfalarını tek tek csv dosyalarına, metin dosyalarına veya Çalışma Kitabını Böl yarar Kutools for Excel.
Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.
1. tık Kutools Artı > alıştırma kitabı > Çalışma Kitabını Böl. Ekran görüntüsüne bakın:
2. içinde Çalışma Kitabını Böl iletişim kutusu:
- 1). Tüm sayfaları csv veya metin dosyalarına dönüştürmek istiyorsanız, tüm sayfa adlarını Çalışma sayfası adı Kutu; Birden fazla sayfayı dönüştürmek istiyorsanız, onları kontrol etmeye devam edin ve dönüştürmek istemediğiniz diğer sayfaların işaretini kaldırın.
- 2). İçinde Opsiyonlar bölümüne bakın, Kayıt türü kutusunu seçin ve ardından seçin Unicode Metin (*. Txt) or CSV (Macintosh) (*. Csv) açılır listeden seçin.
- 3). Tıkla Bölünmüş düğmesine basın.
3. içinde Klasöre Göz At iletişim kutusunda, dışa aktarılan dosyaların kaydedileceği bir klasör belirtin ve ardından OK düğmesine basın.
Artık tüm sayfalar veya belirtilen sayfalar, ayrılmış csv veya metin dosyalarına dönüştürülür ve yukarıda belirttiğiniz gibi klasörde bulunur.
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
Kutools for Excel ile birden çok / tüm sayfaları csv veya metin dosyasına kaydedin, dışa aktarın veya dönüştürün
En İyi Ofis Üretkenlik Araçları
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...
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!