Birden çok sütunu Excel'deki tek tek metin dosyalarına nasıl aktarabilirim?
Normalde, Farklı Kaydet işlevini kullanarak bir çalışma sayfasını Excel'deki txt dosyasına hızlı ve kolay bir şekilde aktarabilirsiniz. Ancak, her sütun verilerini bir Excel çalışma sayfasından ayrı ayrı metin dosyasına kaydetmeyi hiç denediniz mi? Bu yazımda bu işi en kısa sürede nasıl çözeceğimi anlatacağım.
VBA kodu ile birden çok sütunu ayrı metin dosyalarına aktarın
Kutools for Excel ile birden çok çalışma sayfasını ayrı metin / pdf / csv dosyalarına aktarın
VBA kodu ile birden çok sütunu ayrı metin dosyalarına aktarın
Aşağıdaki VBA kodu, her sütun verisini Excel'de ayrı ayrı metin dosyasına kaydetmenize yardımcı olabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki makroyu modül Pencere.
VBA kodu: Birden çok sütunu ayrı metin dosyalarına aktarın:
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
3. Kodu yapıştırdıktan sonra lütfen F5 bu kodu çalıştırmak için anahtar ve bir Browser iletişim kutusu açılır, ardından dışa aktarılan metin dosyalarınızı koymak için bir klasör seçin, ekran görüntüsüne bakın:
4. Sonra tıklayın OK düğmesi ve aktif çalışma sayfasındaki her sütun verisi ayrı ayrı metin dosyasına aktarılmıştır, ekran görüntüsüne bakın:
Kutools for Excel ile birden çok çalışma sayfasını ayrı metin / pdf / csv dosyalarına aktarın
Birden çok çalışma sayfasını tek tek metin, pdf veya csv dosyalarına aktarmanız gerekirse, Kutools for Excel'S Çalışma Kitabını Böl özelliği size bir iyilik yapabilir.
Kurduktan sonra Excel için Kutools, lütfen aşağıdaki adımları uygulayın:
1. tıklayın Kutools Artı > alıştırma kitabı > Çalışma Kitabını Böl, ekran görüntüsüne bakın:
2. In Çalışma Kitabını Böl iletişim kutusunda, txt, pdf, csv dosyaları olarak kaydetmek istediğiniz çalışma sayfalarını işaretleyin ve ardından Kayıt türü seçeneğini seçin, ardından kaydetmek istediğiniz dosya türünü seçin ve ardından Bölünmüş düğmesi, görüntülenen Klasöre Göz At iletişim kutusu, dışa aktarılan dosyaları koymak için bir klasör seçin, ekran görüntüsüne bakın:
3. Sonra tıklayın OK düğmesi ve seçtiğiniz çalışma sayfaları ihtiyacınız olan belirli dosya biçimine aktarılmıştır, ekran görüntüsüne bakın:
Kutools for Excel'i şimdi ücretsiz olarak indirip deneme için tıklayın!
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!