Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

Birden fazla metin dosyasını birden fazla sayfaya nasıl aktarabilirim?

Author Xiaoyang Last modified

Diyelim ki, bilgisayarınızın bir klasöründe birden fazla metin dosyası var ve şimdi bu metin dosyalarını bir Excel çalışma kitabına aktarmak istiyorsunuz ve her metin dosyasını ayrı çalışma sayfalarına yerleştirmek istiyorsunuz. Her bir metin dosyasını tek tek bir çalışma sayfasına kopyalayıp yapıştırmak çok fazla zaman alır; burada bu sorunu çözmek için bazı ipuçlarını tartışacağım.

Birden fazla metin dosyasını VBA kodu ile ayrı çalışma sayfalarına aktarın

Kutools for Excel ile bir çalışma kitabını birden fazla ayrı metin / pdf / csv / xlsx dosyalarına bölün


arrow blue right bubble Birden fazla metin dosyasını VBA kodu ile ayrı çalışma sayfalarına aktarın

Aşağıdaki VBA kodu, her bir metin dosyasını yeni bir çalışma kitabındaki ayrı sayfalara bir defada aktarmanıza yardımcı olabilir, lütfen şu adımları izleyin:

1. Excel'de ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Birden fazla metin dosyasını ayrı çalışma sayfalarına aktarın:

Sub CombineTextFiles()
'updateby Extendoffice
    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. Yukarıdaki kodu yapıştırdıktan sonra, kodu çalıştırmak için F5 tuşuna basın ve açılan pencerede, metin dosyalarını içeren klasörü belirtin, metin dosyalarını seçmek için klasöre gidin, ekran görüntüsüne bakın:

A screenshot of selecting multiple text files to import into Excel worksheets

4. Ardından düğmesine tıklayın, tüm seçilen metin dosyaları yeni bir çalışma kitabına aktarılmış olacak ve her bir dosya ayrı ayrı bir çalışma sayfasında bulunacaktır.

5. Son olarak, yeni çalışma kitabını ihtiyacınıza göre kaydedebilirsiniz.


arrow blue right bubble Kutools for Excel ile bir çalışma kitabını birden fazla ayrı metin / pdf / csv / xlsx dosyalarına bölün

Bazen yukarıdaki görevin ters işlemlerini yapmanız gerekebilir, yani bir çalışma kitabını ayrı metin dosyalarına bölmek isteyebilirsiniz. Kutools for Excel'in Çalışma Kitabını Böl özelliği, bu işi hızlı ve kolay bir şekilde çözmenize yardımcı olabilir.

Kutools for Excel, karmaşık görevleri basitleştirmek için 300'den fazla gelişmiş özellik sunar ve yaratıcılığı ve verimliliği artırır. Yapay zeka yetenekleriyle entegre olarak, Kutools görevleri hassas bir şekilde otomatikleştirir ve veri yönetimi işlerini kolaylaştırır. Kutools for Excel hakkında detaylı bilgi...  Ücretsiz deneme...

Kutools for Excel'i yükledikten sonra lütfen şu adımları izleyin:

1. Birden fazla metin dosyasına bölmek istediğiniz çalışma kitabını etkinleştirin.

2. Kurumsal > Çalışma Kitabı > Çalışma Kitabını Böl'e tıklayın, ekran görüntüsüne bakın:

A screenshot of the Split Workbook option in the Kutools menu in Excel

3. Çalışma Kitabını Böl iletişim kutusunda:

(1.) Bölmek istediğiniz çalışma sayfalarını işaretleyin.

(2.) Dışa aktarma dosya biçimini belirle seçeneğini işaretleyin, ardından kaydetmek istediğiniz dosya biçimini seçin, örneğin ihtiyacınıza göre txt, csv, pdf, xlsx veya xls dosya formatını seçebilirsiniz.

(3.) Ardından Böl düğmesine tıklayın, takip eden açılır kutuda ayrı dosyaları kaydetmek için bir klasör belirtin.

A screenshot showing the Split Workbook dialog box with format options Arrow A screenshot showing the prompt box to specify a folder to output the separate files

4. Ardından Tamam düğmesine tıklayın ve seçtiğiniz çalışma sayfaları, ihtiyaç duyduğunuz formatta istediğiniz klasöre bölünmüş ve kaydedilmiş olacaktır.

A screenshot of separate files saved from an Excel workbook using Kutools

Excel için Kutools - Excel için 300 adet temel araç içeren bir paket. Sürekli ücretsiz AI özellikleriyle çalışın! Hemen indirin!

En İyi Ofis Verimlilik Araçları

🤖 Kutools AI Asistanı: Veri analizinde devrim yaratın – Akıllı Yürütme | Kod Oluştur | Özel Formüller Oluştur | Verileri Analiz Et ve Grafikler Oluştur | Kutools Fonksiyonlarını Çağır
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya İşaretle | Boş Satırları Sil | Sütunları veya Hücreleri Veriyi Kaybetmeden Birleştir | Formül olmadan Yuvarla...
Süper ARA: Çoklu Kriter VLookup | Çoklu Değer VLookup | Çoklu sayfa araması | Bulanık Eşleme....
Gelişmiş Açılır Liste: Hızlıca Açılır Liste Oluştur | Bağımlı Açılır Liste | Çoklu seçimli Açılır Liste....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekle | Sütunları Taşı | Gizli Sütunların Görünürlük Durumunu Değiştir | Aralıkları & Sütunları Karşılaştır...
Öne Çıkan Özellikler: Izgara Odaklama | Tasarım Görünümü | Gelişmiş formül çubuğu | Çalışma Kitabı & Çalışma Sayfası Yöneticisi | Otomatik Metin Kütüphanesi | Tarih Seçici | Veri Birleştir | Hücreleri Şifrele/Şifre Çöz | Listeye Göre E-posta Gönder | Süper Filtre | Özel Filtre (kalın/italik/üstü çizili filtreleme...)...
En İyi15 Araç Takımı:12 Metin Aracı (Metin Ekle, Belirli Karakterleri Sil, ...) | 50+ Grafik Türü (Gantt Grafiği, ...) | 40+ Pratik Formül (Doğum tarihine dayanarak yaş hesapla, ...) | 19 Ekleme Aracı (QR Kodu Ekle, Yoldan Resim Ekle, ...) | 12 Dönüşüm Aracı (Kelimeye Dönüştür, Para Birimi Dönüştürme, ...) | 7 Birleştirme & Bölme Aracı (Gelişmiş Satırları Birleştir, Hücreleri Böl, ...) | ... ve dahası
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40+ diğer dili destekler!

Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...


Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.

  • Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
  • Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
  • Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!

Tüm Kutools eklentileri. Tek kurulum

Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.

Excel Word Outlook Tabs PowerPoint
  • Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
  • Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
  • Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
  • 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
  • En iyi değer — tek tek eklenti almak yerine tasarruf edin