Bir klasördeki birden fazla metin dosyasını tek bir çalışma sayfasına nasıl içe aktarabilirsiniz?
Diyelim ki raporlama veya analiz amacıyla verileri birleştirmeniz gereken bir senaryonuz var ve bu bilgiler, hepsi tek bir klasörde saklanan birden fazla metin dosyası şeklinde size ulaşıyor. Her metin dosyasının içeriğini elle kopyalayıp tek bir çalışma sayfasına yapıştırmak — özellikle dosya sayısı çoksa ya da dosyalar düzenli olarak güncelleniyorsa — son derece zaman alıcı ve hata yapmaya açık olabilir. Neyse ki, bu metin dosyalarını Excel’de tek bir çalışma sayfasına otomatik olarak içe aktarıp birleştirmenin oldukça verimli yolları mevcut. Bu makale, söz konusu görevi yerine getirmek için pratik yöntemler sunar; doğruluğu garanti eder ve manuel çabayı önemli ölçüde azaltır. Sunulan bu yöntemler, anket sonuçlarını birleştirme, günlük verilerini içe aktarma veya çeşitli kaynaklardan gelen parçalanmış metin dışa aktarımlarını tek bir veri kümesinde toplama gibi pek çok gerçek hayat senaryosunda başarıyla uygulanabilir.
Aşağıda, bir klasördeki birden fazla Metin dosyasını Excel’e hızlıca içe aktarmak için birkaç etkili yaklaşım bulacaksınız. Her yöntem, adım adım kılavuzluk sunar, pratik ipuçları içerir ve yaygın tuzaklardan kaçınmanıza yardımcı olacak önemli notlarla desteklenir.
VBA ile bir klasördeki birden fazla Metin dosyası'yi tek bir sayfaya içe aktarın
Kutools for Excel ile Metin dosyası'yi etkin hücreye içe aktarın 
VBA ile bir klasördeki birden fazla Metin dosyası'yi tek bir sayfaya içe aktarın
Belirli bir klasördeki tüm Metin dosyalarını Excel’e içe aktarmanın en verimli yolu, bir VBA makrosu kullanmaktır. Bu çözüm, özellikle bu işlemi sık sık yapıyorsanız veya ek eklentilere gerek kalmadan tekrarlayan görevleri otomatikleştirmeniz gerekiyorsa idealdir. Böylece çok sayıda dosyayı hızla işleyebilir ve manuel müdahalenizi en aza indirebilirsiniz. Ancak VBA kullanımı, bazı ortamlarda kısıtlanmış olabilecek makroların etkinleştirilmesini gerektirir ve Visual Basic for Applications düzenleyiciyle ilgili temel bilgiye sahip olmanızı ister.
Başlamadan önce, makro işlemlerinin kolayca geri alınamadığını göz önünde bulundurarak çalışma kitabınızı yedeklemeniz önerilir. İçe aktarımdan sonra öngörülemeyen yapıların manuel temizlik gerektirebileceğini unutmayın; bu nedenle metin dosyalarınızın tutarlı biçimlendirilmiş olduğundan emin olun.
1. Metin dosyalarını içe aktarmak istediğiniz çalışma kitabını açın ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. VBA Düzenleyicisi'nde Ekle > Modül seçeneğine tıklayın, ardından aşağıdaki VBA kodunu modül penceresine kopyalayıp yapıştırın:
VBA: Bir klasördeki birden fazla Metin dosyası'yi tek bir sayfaya içe aktarın
Sub Test()
'UpdatebyExtendoffice
Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim I As Long
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
If xFiles.Count > 0 Then
For I = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xWb.Name
On Error GoTo 0
xWb.Close False
Next
End If
End Sub3. İmleç kodun içindeyken F5 tuşuna basın. Hedef Metin dosyalarının bulunduğu klasörü seçmeniz için bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın. Makro, her Metin dosyasını Geçerli Çalışma Kitabı’nıza yeni bir çalışma sayfası olarak içe aktaracaktır. Not: Dosyalar büyükse ya da çok sayıdaysa bu işlem biraz zaman alabilir. Sonucu kontrol edin:
İpucu: Metin dosyanız başlık satırları veya özel ayırıcılar içeriyorsa, veri yapınıza uygun hale getirmek için VBA kodunu özelleştirmeniz gerekebilir. Hata oluşursa, dosya yolunun ve dosya türünün doğru olduğundan ve metin dosyasının sistemde başka hiçbir yerde açık olmadığından emin olun. Aynı ada sahip dosyalar varsa, çalışma sayfası adlandırma çakışmaları yaşanabilir.
Kutools for Excel ile Metin dosyası'ü etkin hücreye içe aktarın
Çalışma sayfanızdaki belirli bir konuma yalnızca tek bir Metin dosyası'nın içeriğini yerleştirmeniz gereken durumlarda, Kutools for Excel, kullanıcı dostu bir çözüm sunar; bu çözüm Dosyayı İçe Aktar aracı aracılığıyla gerçekleştirilir. Bu özellikle, veri parçalarını birleştirmek veya referans notlarını önceden tanımlanmış hücrelere ya da aralıklara aktarmak istediğinizde büyük kolaylık sağlar. VBA çözümlerinin aksine Kutools, kodlama gerektirmez ve metin dosyalarını hedeflediğiniz hücreye kolayca içe aktarmanız için sezgisel bir arayüz sunar.
ücretsiz yükledikten sonraKutools for Excel, aşağıdaki adımları izleyin:
1. Metin dosyası içeriğini içe aktarmak istediğiniz hücreyi seçmek için tıklayın, ardından KUTOOLS PLUS > İçe/Dışa Aktar > Dosyayı İçe Aktar yolunu izleyin. Ekran görüntüsüne bakın:
2. Bir iletişim kutusu görünür. Dosya seçim iletişim kutusunu açmak için Gözat düğmesine tıklayın. Dosya Türü açılır menüsünden Metin dosyası seçeneğini belirleyin ve yerleştirmek istediğiniz metin dosyasını bulun. Ekran görüntüsüne bakın:
3. Aç’a tıklayın, ardından Tamam düğmesine tıklayın. Seçtiğiniz Metin dosyasının içeriği seçilen hücreye yerleştirilecektir. Ekran görüntüsüne bakın:
Notlar: Metin içeriği, seçilen hücreye mümkün olduğunca orijinal biçimlendirmesi korunarak aktarılır. En iyi sonucu almak için hedef hücrenin, içe aktarılan verileri görüntülemek veya genişletmek üzere yeterli alana sahip olduğundan emin olun. Aynı anda birden fazla içe aktarma işlemi gerçekleştirmek için bu özelliği tekrar tekrar kullanabilir ya da Kutools’un toplu işlem araçlarıyla birlikte kullanabilirsiniz.
Özet: Tek dosya içe aktarımları gibi basit veya nadiren gerçekleştirilen işlemler için Kutools, çalışma sayfasında doğrudan kullanıcı dostu seçenekler sunar; ancak daha kapsamlı özelleştirme gerektiren ya da eklentilere bağımlı kalmadan toplu işlemler yapmak isteyen kullanıcılar için VBA en iyi seçenektir.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar