İ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

Birdən çox mətn faylını bir çox təbəqəyə necə gətirmək olar?

Şübhəsiz ki, kompüterinizin bir qovluğunda birdən çox mətn faylları var, indi bu mətn fayllarını bir Excel iş kitabına daxil etmək və hər bir mətn faylı ayrı-ayrı iş yerlərinə yerləşdirmək istəyirsən. Hər bir mətn faylını iş səhifəsinə bir-birinə köçürmək və yapışdırmaq bir çox vaxt sərf edəcəkdir. Burada bu problemi həll etmək üçün bəzi tövsiyələrdən danışa bilərsiniz.

VBA kodu ilə iş səhifələrini ayırmaq üçün birdən çox mətn faylını idxal edin

İş kitabını Excel üçün Kutools ilə birdən çox ayrı mətn / pdf / csv / xlsx fayllarına ayırın


Bir çox iş səhifəsini bir iş və ya iş kitabına birləşdirin / idxal edin:
Gündəlik işinizdə bir çox iş və ya iş kitabını bir iş səhifəsinə və ya iş kitabına birləşdirmək böyük və başlıca bir iş ola bilər. Ancaq əgər varsa Excel üçün Kutools, güclü yardımı ilə - Birləşdirməktez bir çox iş kitabını, bir iş kitabçasına və ya iş kitabına birləşdirə bilərsiniz.
doc birdən çox iş kitabını birləşdirir

arrow mavi sağ bubble VBA kodu ilə iş səhifələrini ayırmaq üçün birdən çox mətn faylını idxal edin


Aşağıdakı VBA kodu, hər bir mətn faylını yeni bir iş kitabında bir seferde ayrı-ayrı vərəqələrə idxal etməyə kömək edə bilər, xahiş edirəm:

1. Basıb saxlayın ALT + F11 Excel açarları açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

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

VBA kodu: İş səhifələrini ayırmaq üçün birdən çox mətn faylını idxal et:

Sub CombineTextFiles()
'updateby Extendoffice 20151015
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. Yuxarıdakı kodu bağladıktan sonra basın F5 bu kodu çalıştırmak üçün açar və açılmış pəncərədə, mətn faylları olan qovluğu göstərin, iş səhifələrinə idxal etmək istədiyiniz mətn fayllarını seçmək üçün qovluğa gedin, ekran görünüşünə baxın:

doc idxal birdən çox mətnli fayl 1

4. Sonra basın açıq düyməsinə basın, bütün seçilmiş mətn faylları yeni bir iş kitabına və hər bir fayl fərdi olaraq bir iş səhifəsində yerləşdirilir.

5. Nəhayət, yeni iş kitabını istədiyiniz kimi saxlaya bilərsiniz.


arrow mavi sağ bubble İş kitabını Excel üçün Kutools ilə birdən çox ayrı mətn / pdf / csv / xlsx fayllarına ayırın

Bəzən, yuxarıda göstərilən vəzifənin bəzi əks əməliyyatlarını etmək lazımdır, yəni bir iş kitabını mətn fayllarını ayırmaq üçün ayırmaq lazımdır. Excel üçün Kutools'S Split İş Kitabı yardım proqramı bu işi tez və asanlıqla həll etməyə kömək edə bilər.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutools, xahiş edirəm :( İndi Excel üçün Pulsuz Kutools Download! )

1. Birdən çox mətn faylına bölmək istədiyiniz iş kitabını aktivləşdirin.

2. Basın Müəssisə > İş kitabı > Split İş Kitabı, bax ekran görüntüsü:

excel add-ins split iş kitabı xüsusiyyət

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

(1.) Ayrılmaq istədiyiniz iş yerlərini yoxlayın.

(2.) Yoxlayın Saxlama formatını göstərin, sonra saxlamaq istədiyiniz fayl formatını seçin, məsələn, seçə bilərsiniz txt, Csv, pdf, xlsx or xls fayl formatı lazımdır.

(3.) Sonra basın Split düyməsi, aşağıdakı əmr qutusuna ayrı faylları çıxartmaq üçün bir qovluq daxil edin.

excel add-ins split iş kitabı informasiya qutusu  2 excel add-ins yeri seçin

4. Sonra basın OK düyməsini seçin və seçdiyiniz iş səhifələriniz bölünəcək və istədiyiniz formata istədiyiniz formatda saxlayacaqsınız.

excel add-ins faylları

İndi Excel üçün Pulsuz Kutools Download!



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.
    Thuva · 1 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 2 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 2 years ago
    Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
  • To post as a guest, your comment is unpublished.
    G · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?