Birden fazla metin dosyasını birden fazla sayfaya nasıl içe aktarabilirim?
Bilgisayarınızın bir klasöründe birden fazla metin dosyası olduğunu varsayalım. Şimdi bu metin dosyalarını bir Excel çalışma kitabına içe aktarmak ve her birini ayrı bir çalışma sayfasına yerleştirmek istiyorsunuz. Her metin dosyasını tek tek kopyalayıp ayrı ayrı çalışma sayfalarına yapıştırmak oldukça zaman alıcı olur; bu sorunu akıllıca çözmek için bazı pratik püf noktalarını aşağıda paylaşıyorum.
VBA koduyla birden fazla Metin dosyası'yu ayrı çalışma sayfalarına içe aktarma
VBA koduyla birden fazla Metin dosyası'u ayrı çalışma sayfalarına içe aktarma
Aşağıdaki VBA kodu, her bir metin dosyasını aynı anda yeni bir çalışma kitabındaki ayrı sayfalara içe aktarmanıza olanak tanır. Lütfen aşağıdaki adımları izleyin:
1. Excel'de ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Birden fazla Metin dosyası'yu ayrı çalışma sayfalarına içe aktarma:
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, bu kodu çalıştırmak için F5 tuşuna basın. Açılan pencerede, metin dosyası içeren klasörü belirtin ve çalışma sayfalarına içe aktarmak istediğiniz metin dosyalarını seçmek için ilgili klasöre gidin (ekran görüntüsüne bakın):
4. Ardından Aç düğmesine tıklayın; seçilen tüm Metin dosyaları bir Yeni Çalışma Kitabı’na içe aktarılacak ve her dosya ayrı bir çalışma sayfasında yer alacaktır.
5. Son olarak, Yeni Çalışma Kitabı’nızı ihtiyacınıza göre kaydedebilirsiniz.
Kutools for Excel ile bir çalışma kitabını birden fazla ayrı metin / pdf / csv / xlsx dosyasına bölme
Bazen yukarıdaki işlemin tam tersini yapmanız gerekebilir; yani bir çalışma kitabını ayrı Metin dosyalarına bölmek isteyebilirsiniz. Kutools for Excel’nin Çalışma Kitabını Ayır aracı bu görevi hızlı ve kolay şekilde çözmenize yardımcı olabilir.
Kutools for Excel'i yükledikten sonra Kutools for Excel, lütfen aşağıdaki 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ı Ayırseçeneğine tıklayın (ekran görüntüsüne bakın):
3.Çalışma Kitabını Ayıriletişim kutusunda:
(1.) Bölünmesini istediğiniz çalışma sayfalarını seçin.
(2.)Kayıt biçimini belirt seçeneğini işaretleyin ve ardından ihtiyacınız olan Dosya Türü’nü seçin; örneğin txt, csv, pdf, xlsx veya xls dosya türü biçimlerinden birini seçebilirsiniz.
(3.) Ardından, Böl düğmesine tıklayın ve ardından gelen uyarı kutusunda ayrı dosyaların çıktısının alınacağı bir klasör belirtin.
 |  |  |
4. Ardından Tamam düğmesine tıklayın; böylece seçilen çalışma sayfalarınız bölünecek ve belirttiğiniz klasöre istediğiniz formatta kaydedilecektir.
Kutools for Excel – Excel için 300’den fazla vazgeçilmez araçla donatılmış! İşlerinizi daha hızlı, daha kolay ve çok daha verimli hale getirin.Hemen indirin!
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