İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də csv və ya mətn fayllarını ayırmaq üçün birdən çox / bütün səhifələri ixrac etmək necə saxlanılır?

Excel istifadə edərkən, Saxla funksiyası ilə bir csv və ya mətn faylı olaraq iş səhifəsini əl ilə saxlaya bilərsiniz. Lakin, iş kitabında birdən çox və ya bütün təbəqələri ayrılmış csv və ya mətn faylına çevirmək üçün necə edə bilərsiniz? Bu yazıda, birdən çox və ya bütün təbəqələrin ayrılmış csv və ya mətn faylına qənaət üsullarını göstərəcəyik.

VBA koduyla csv və ya mətn faylına bütün təbəqələri saxla, ixrac et və ya çevir

Excel üçün Kutools ilə csv və ya mətn faylına birdən çox / bütün səhifələrin saxlanması, ixrac edilməsi və ya çevrilməsi


Siz maraqlana bilərsiniz:

Bir çox iş səhifəsini / iş kitabını bir iş səhifəsinə / iş kitabına birləşdirin:

Bir çox iş səhifəsini və ya iş kitabını bir iş səhifəsinə və ya iş kitabına birləşdirin, gündəlik işinizdə böyük bir vəzifə ola bilər. Ancaq əgər varsa Excel üçün Kutools, güclü fayda - Birləşdirmək tez bir çox iş səhifəsini, iş kitabını bir iş və ya iş kitabına birləşdirməyə kömək edə bilər.

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 30 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi yükləyin


arrow mavi sağ bubble VBA koduyla csv və ya mətn faylına bütün təbəqələri saxla, ixrac et və ya çevir


Aşağıdakı VBA kodları ilə, bütün iş kitablarını iş kitabında ayrılmış csv və ya mətn fayllarına saxlaya bilərsiniz. Xahiş edirik bunu edin.

Csv fayllarına bütün təbəqələri ixrac et və ya çevir

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Microsoft Visual Basic tətbiqi pəncərə.

2. İçində Microsoft Visual Basic tətbiqi pəncərə basın Taxmaq > Modules. Sonra aşağıdakı kodu kopyalayıb yapışdırın Modules pəncərə.

VBA kodu: Ayrılmış csv fayllarına bütün təbəqələri verin

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Bütün ixrac olunmuş csv fayllarının yerləşdiyi yerdən görəcəksiniz Sənədlər qovluq. Ekran görüntüsünə baxın:

Bütün şəkilləri mətn fayllarına ixrac et və ya çevir

Aşağıdakı kod, iş kitabçasındaki bütün sheets'i ayrılmış mətn fayllarına ixrac etmək və ya çevirməyə kömək edə bilər.

VBA kodu: Ayrılmış mətn fayllarına bütün təbəqələri ixrac edin

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

İxrac edilən Mətn faylları da yerləşdirilir Sənədlər qovluq. Ekran görüntüsünə baxın:


arrow mavi sağ bubble Excel üçün Kutools ilə csv və ya mətn faylına birdən çox / bütün səhifələrin saxlanması, ixrac edilməsi və ya çevrilməsi

You birdən çox və ya bütün sheets birbaşa csv faylları, mətn faylları və ya xls faylları Excel formatında Excel formatında ixrac edə və ya çevirə bilər. Split İş Kitabı faydası Excel üçün Kutools.

Excel üçün Kutools : 300-dən çox lazımlı Excel eklentisi ilə, 60 gün ərzində heç bir məhdudiyyət olmadan cəhd edin.

1. klik Müəssisə > İş kitabı > Split İş Kitabı. Ekran görüntüsünə baxın:

2. İçində Split İş Kitabı dialoq qutusu:

1). Bütün cədvəlləri csv və ya mətn fayllarına çevirmək istəyirsinizsə, yalnız qeyd olunan bütün hesabat adlarını saxlaya bilərsiniz İşin adı Qutu; Yalnız birdən çox təbəqəni çevirmək istəyirsinizsə, onları yoxlayın və çevirmək istəməyən digər səhifələrdən silin.

2). İçində Nizamlamalar bölməsinə baxın Tipi olaraq saxla qutusu seçin və seçin Unicode Text (*. Txt) or CSV (Macintosh) (*. Csv) açılan siyahıdan.

3). Tıklayınız Split düyməsini basın.

3. İçində Qovluq üçün göz atın informasiya qutusunda, ixrac edilən faylları saxlamaq üçün bir qovluq seçin və sonra basın OK düyməsini basın.

İndi bütün təbəqələr və ya göstərilən vərəqlər ayrılmış csv və ya mətn fayllarına çevrilir və yuxarıda göstərildiyi kimi qovluğu tapın.


arrow mavi sağ bubble Excel üçün Kutools ilə csv və ya mətn faylına birdən çox / bütün səhifələrin saxlanması, ixrac edilməsi və ya çevrilməsi

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.
    Mirko · 1 months ago
    Hello,
    thank you so much for a great macro, it works like a charm! But I have a question, what if I would like to save this macro (CSV version) on PERSONAL.xlsb as to make it available on any excel instance?

    When I try, CurDir takes the PERSONAL directory, instead of the active worksheet one...

    Thank you for any help!
  • To post as a guest, your comment is unpublished.
    AK sharma · 7 months ago
    If you just want to convert multiple sheets, keep checking them and going to uncheck other sheets you don’t want to convert
    sir for thuis step do you have macro
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Good day,
      Can't help with VBA code for this. Why not try the Split Workbook utility we provide in the post? It will save your time and you will love it.
  • To post as a guest, your comment is unpublished.
    sai · 8 months ago
    Superb solution.....Its saved my time.......Thank you
  • To post as a guest, your comment is unpublished.
    Cameron Stewart · 1 years ago
    Thanks - script very useful
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    A, I see now that the line "VBA code: Export all sheets to separated csv files" should not be copied into the code area. Perhaps that can be more explicit for newbies, and for people who follow instructions explicitly.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Ken,
      That's the description line of the code. The line "Sub ExportSheetsToCSV()" should be the first line of the code.
      I'm sorry for the inconvenience.