Birden çok metin dosyasını birden çok sayfaya nasıl aktarabilirim?
Diyelim ki, bilgisayarınızın bir klasöründe birden çok metin dosyası var, şimdi bu metin dosyalarını bir Excel çalışma kitabına aktarmak ve her metin dosyasını ayrı çalışma sayfalarına yerleştirmek istiyorsunuz. Her bir metin dosyasını tek tek çalışma sayfasına kopyalayıp yapıştırmak çok zaman kaybedecektir, burada, bu sorunu çözmeniz için bazı püf noktalarından bahsedebilirim.
VBA kodu ile birden fazla metin dosyasını ayrı çalışma sayfalarına aktarın
Kutools for Excel ile bir çalışma kitabını birden çok ayrı metin / pdf / csv / xlsx dosyasına bölün
VBA kodu ile birden fazla metin dosyasını ayrı çalışma sayfalarına aktarın
Aşağıdaki VBA kodu, her bir metin dosyasını bir kerede yeni bir çalışma kitabındaki ayrı sayfalara aktarmanıza yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Basılı tutun ALT + F11 açmak için Excel'deki tuşları Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Birden çok 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, F5 Bu kodu çalıştırmak için anahtar ve açılan pencerede, lütfen metin dosyalarını içeren klasörü belirtin, çalışma sayfalarına aktarmak istediğiniz metin dosyalarını seçmek için klasöre gidin, ekran görüntüsüne bakın:
4. Sonra tıklayın Açılış düğmesini tıkladığınızda, seçilen tüm metin dosyaları yeni bir çalışma kitabına aktarılmıştır ve her dosya ayrı ayrı bir çalışma sayfasında bulunur.
5. Sonunda, yeni çalışma kitabını ihtiyaç duyduğunuz şekilde kaydedebilirsiniz.
Kutools for Excel ile bir çalışma kitabını birden çok ayrı metin / pdf / csv / xlsx dosyasına bölün
Bazen yukarıdaki görevin bazı zıt işlemlerini yapmanız gerekebilir, yani bir çalışma kitabını metin dosyalarını ayırmak için bölmeniz gerekebilir. Kutools for Excel'S Çalışma Kitabını Böl yardımcı program bu işi hızlı ve kolay bir şekilde çözmenize yardımcı olabilir.
Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excellütfen şunları yapın :( Kutools for Excel'i Şimdi Ücretsiz İndirin! )
1. Birden çok metin dosyasına bölmek istediğiniz çalışma kitabını etkinleştirin.
2. tıklayın kuruluş > alıştırma kitabı > Çalışma Kitabını Böl, ekran görüntüsüne bakın:
3. In Çalışma Kitabını Böl iletişim kutusu:
(1.) Bölmek istediğiniz çalışma sayfalarını kontrol edin.
(2.) Kontrol edin Kaydetme formatını belirtin, ardından kaydetmek istediğiniz dosya biçimini seçin, örneğin, şunu seçebilirsiniz: txt, csv, pdf, xlsx or xls dosya formatı ihtiyacınız olduğu gibi.
(3.) Ardından tıklayın Bölünmüş düğmesi, aşağıdaki istem kutusunda ayrı dosyaların çıktısı için bir klasör belirtin.
4. Sonra tıklayın OK düğmesi ve seçtiğiniz çalışma sayfaları bölünecek ve ihtiyaç duyduğunuz formatla istediğiniz klasöre kaydedilecektir.
Kutools for Excel'i Şimdi Ücretsiz İndirin!
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!