İ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-in hər bir səhifəsini CSV / PDF faylı kimi saxlamaq və ya ixrac etmək necədir?

Məsələn, birdən çox səhifəyə malik böyük bir iş kitabınız var və hər bir hesabatı fərdi. Csv fayl və ya PDF faylı kimi saxlamaq və ya ixrac etmək istəyirsiniz, asanlıqla və tez bir şəkildə necə qurulacaqsınız? Bu yazıda onu həll etmək üçün bir neçə üsul təqdim edəcəyəm.

Hər bir hesabatı CSV / PDF faylı kimi saxlaya və ya ixrac etmə xüsusiyyətinə malikdir

Batch VBA ilə hər bir hesabatı CSV faylı saxlaya və ya ixrac et

Batch, Excel üçün Kutools ilə CSV / PDF faylı kimi hər hesabatı saxlaya və ya ixrac et

Batch Excel-də PDF-yə çox Excel faylları çevirir


Bildiyiniz kimi, Microsoft Excel, cari iş səhifəsini fərdi .csv fayl və ya PDF faylı kimi saxlaya bilər. Buna görə, hər bir hesabatı bir .csv fayl və ya PDF faylını bir-bir əl saxlaya və ya ixrac edə bilərsiniz.

1. Fərdi bir .csv faylı olaraq saxlaya və ya ixrac edəcək hesabatı açın və vurun fayl (Və ya Ofis düyməsi)> Saxla.

2. Açılış informasiya qutusunda, .csv faylını saxladığınız hedef qovluğu daxil edin, üzərinə basın Tipi olaraq saxla qutusu seçin və seçin CSV (Virgülle ayrılmış) (* .csv) or PDF (* .pdf) açılan siyahıdan və basın Yadda saxla düyməsini basın.

3. Ardıcıl gələn iki xəbərdarlıq qutusu olacaq. Klikləyin OK > bəli.

Qeyd: Fəal iş səhifəsini PDF faylı olaraq saxlasanız, bu informasiya qutuları açılmayacaq. Yalnız bir sonrakı mərhələyə keçin.

4. 1-3 yuxarıdakı təkrar təkrar təkrar fərdi .csv faylları kimi digər təbəqələri saxlamaq üçün təkrarlayın.


.csv faylları kimi saxlamaq və ya ixrac etmək istədiyiniz bir sıra təbəqələr varsa, ilk metod çox vaxt aparan və yorucu olacaq. Bu VBA işi sadələşdirə bilər və hər bir hesabatı .csv faylı olaraq saxlamaq və ya ixrac etmək asanlaşdırır.

1. Basın Dayandırmaq + F11 Microsoft Visual Basic for Application penceresini açmaq üçün eyni zamanda düymələri.

2. klik Taxmaq > Modules, və sonra VBA kodunu aşağıdakı yeni modul pəncərəsinə yapışdırın.

VBA: Hər bir hesabatı fərdi CSV faylı olaraq saxlayın

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. Basın qaçış düyməsini basın və ya basın F5 bu VBA'yı çalıştırmak üçün açar.

4. Açma İnsanlar diyalog kutusunda, bütün. Csv faylları daxil edəcəyiniz hedef qovluğu daxil edin və basın OK düyməsini basın.

Sonra hər bir hesabatı müəyyən bir hədəf qovluğunda bir fərdi. Csv faylı olaraq saxlanılır / ixrac olunur.


Bəzi Excel istifadəçiləri bəzi səbəblərə görə VBA kodundan imtina edə bilərlər. Narahat olma! Üçüncü üsul, həmçinin, hər bir hesabatı asanlıqla .csv fayl və ya PDF faylını saxlaya və ya ixrac edə bilər Split İş Kitabı Excel üçün Kutools proqramı.

Excel üçün Kutools - Microsoft Excel üçün 300 Ətraflı funksiyaları və Alətlərdən daha çox birləşir

1. Basın Müəssisə > İş kitabı > Split İş Kitabı.

Hər bir hesabatı csv 2 doc

2. Açılış Split Workbook informasiya qutusuna,

Hər bir hesabatı csv 8 doc

(1) Bütün təbəqələrin seçilməsini davam etdirin. Əgər yoxsa, daha əvvəl onay kutusunu kontrol edə bilərsiniz İşin adı bütün təbəqələri seçmək;

(2) Saxlama formatını göstərin seçim

(3) Aşağıdakı qutuyu basın Saxlama formatını göstərin seçin və seçin CSV (Macintosh) (*. Csv) or PDF (* .pdf) açılan siyahıdan.

(4) basın Split düyməsini basın.

Qeyd: İş kitabında mövcud olan gizli və boş iş varsa, yoxlayın Gizli iş sənədlərini atlayın qutusu və Boş iş səhifəsini at qutu ixrac edərkən bütün boş və gizli vərəqələri görməyəcəkdir.

Excel üçün Kutools - 300-dən çox lazımlı Excel alətləri daxildir. Tam xüsusiyyət pulsuz sınaq 60-gün, kredit kartı lazım deyil! Ele indicə onu al!

3. Açılışa Göz atma Qovluq qutusunda, bütün. Csv faylını və ya PDF faylını saxlayacağınız təyinat qovluğunu daxil edin və OK düyməsini basın.

İndi hər bir hesabatı ixrac edilmiş və göstərilən qovluğa fərdi. Csv faylı kimi qeyd edəcəyik.


Bu videoda Kutools nişanı və Kutools Plus nişanı əlavə olunur Excel üçün Kutools. Lazım olsa, klikləyin burada məhdudiyyətsiz bir 60 günlük pulsuz sınaq üçün!



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.
    Ken · 1 years ago
    Copied and pasted the VBA script. On pressing F5, the system highlighted the word "sheet" in the first line, and gave the error "Compile error: Expected: end of statement"


    Mmmph.
  • To post as a guest, your comment is unpublished.
    Pav · 1 years ago
    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