İ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

Birbaşa sütunları Excel-də fərdi mətn fayllarına necə ixrac etmək olar?

Normal olaraq, Farklı Saxla funksiyasından istifadə edərək tez və asanlıqla Excel-də txt faylına bir iş page ixrac edə bilərsiniz. Lakin, heç bir sütun məlumatını bir Excel səhifəsindən fərdi şəkildə mətn faylına yazmağa çalışdınızmı? Bu məqalədə, bu işi mümkün qədər tez həll etmək üçün necə danışacağam.

VBA kodu ilə fərdi mətn fayllarına birdən çox sütun verin

Excel üçün Kutools ilə fərdi mətn / pdf / csv fayllarına bir çox işi ixrac et


Fərdi mətn / pdf / csv fayllarına bir çox işi ixrac et:

Hər bir iş kitabını ayrı-ayrı mətn, iş dəftəri, Pdf və ya Csv fayllarına bölmək üçün Excel üçün Kutools's Split İş Kitabı bu işi mümkün qədər asanlıqla həll etməyə kömək edə bilər.

6 txts doc ixrac sütunları

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


VBA kodu ilə fərdi mətn fayllarına birdən çox sütun verin


Aşağıdakı VBA kodu hər bir sütun məlumatını Excel-də fərdi şəkildə mətn faylına saxlamağa kömək edə bilər, belə edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı makroyu yapışdırın Modules Pəncərə.

VBA kodu: Fərdi mətn fayllarına birdən çox sütun verin:

Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
        Else
            Exit Sub
        End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
    Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
        For xFRNum = 1 To xMaxR
            Print #1, Cells(xFRNum, xFCNum).Value
        Next xFRNum
    Close #1
Next
End Sub

3. Kodu bağladıktan sonra, mətbuatın üzərinə basın F5 bu kodu çalıştırmak üçün açar, və a Browser informasiya qutusu çıxdıqdan sonra ixrac edilən mətn fayllarınızı qoymaq üçün bir qovluq seçin, ekran görüntüsünə baxın:

1 txts doc ixrac sütunları

4. Sonra basın OK düyməsini basın və aktiv işdə hər bir sütun məlumatı fərdi olaraq mətn faylına ixrac olunub, ekran görüntüsünə baxın:

2 txts doc ixrac sütunları


Excel üçün Kutools ilə fərdi mətn / pdf / csv fayllarına bir çox işi ixrac et

Birdən çox iş səhifəsinin fərdi mətnə, pdf və ya csv fayllarına ixrac etməsi lazımdırsa Excel üçün Kutools'S Split İş Kitabı xüsusiyyət bir lütf edə bilər.

Quraşdırıldıqdan sonra Excel üçün Kutools, aşağıdakı adımlarla edin:

1. Basın Kutools Plus > İş kitabı > Split İş Kitabı, bax ekran görüntüsü:

3 txts doc ixrac sütunları

2. İçində Split İş Kitabı informasiya qutusu, txt, pdf, csv faylları olaraq saxlamaq istədiyiniz iş səhifələrini yoxlayın və sonra da yoxlayın Tipi olaraq saxla sonra seçmək istədiyiniz fayl növü seçin və sonra basın Split düyməsini göstərin Qovluq üçün göz atın informasiya qutusunda, ixrac edilən faylları qoymaq üçün qovluq seçin, ekran görüntüsünə baxın:

4 txts doc ixrac sütunları

3. Sonra basın OK düyməsini basın və seçdiyiniz iş səhifələriniz fərdi fayl formatına ehtiyac duyulduğunda ixrac edildikdə, ekran görüntüsünə baxın:

5 txts doc ixrac sütunları



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.
    Gianluca · 4 months ago
    Great, you made my day with the code to export multiple columns into individual text files! Many thanks!