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

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

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:

4. Ardından Aç 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.

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'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:

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.

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.