Excel'de birden fazla CSV, metin veya XML dosyasını toplu olarak hızlıca içe aktarmak için ne yapmalıyım?
Excel'de bir çalışma kitabını CSV, metin veya XML dosyası olarak kaydetmiş olabilirsiniz; peki ya bir klasördeki birden fazla CSV, metin veya XML dosyasını tek seferde bir çalışma kitabına veya çalışma sayfasına içe aktarmayı denediniz mi? Bu makalede, bu dosyaları hızlı ve toplu şekilde içe aktarmak için bazı pratik yöntemleri sizinle paylaşacağım.
Bir klasördeki birden fazla Metin dosyası'yi VBA ile bir çalışma kitabının ayrı çalışma sayfalarına içe aktarma
Bir klasördeki Metin dosyalarını bir çalışma kitabına içe aktarmak için aşağıdaki VBA kodunu kullanabilirsiniz.
1. Boş bir çalışma kitabını etkinleştirin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayıp VBA kodunu Modül penceresine yapıştırın.
VBA: Bir klasördeki tüm Metin dosyası'leri bir çalışma kitabına içe aktarma
Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Sheets(xCount).Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
End Sub3. F5 tuşuna basın veya Çalıştır düğmesine tıklayarak VBA'yı çalıştırın ve açılan iletişim kutusunda, metin dosyalarını içe aktarmak istediğiniz klasörü seçin. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın; seçilen klasördeki her Metin dosyası, Geçerli Çalışma Kitabı'nın ayrı bir çalışma sayfasına içe aktarılacaktır. Ekran görüntüsüne bakın:
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
Bir klasördeki birden fazla csv dosyasını VBA ile tek bir sayfaya içe aktarma
Bir klasördeki tüm CSV dosyalarını tek bir sayfaya içe aktarmak için aşağıdaki VBA kodunu kullanabilirsiniz.
1. Bir boş çalışma sayfası etkinleştirin ve 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 VBA kodunu yeni Modül penceresine yapıştırın.
VBA: Bir klasördeki csv dosyalarını tek bir çalışma sayfasına içe aktarma
Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
xWb.Close False
xFile = Dir
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub3. F5 tuşuna basın veya Çalıştır düğmesine tıklayarak VBA'yı çalıştırın; ardından tüm CSV dosyalarını içe aktarmak istediğiniz klasörü seçmenizi sağlayan bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın; içe aktarma işleminden önce etkin çalışma sayfasının içeriğinin temizlenip temizlenmeyeceği konusunda sizi uyaran başka bir iletişim kutusu açılacaktır. Burada Evet seçeneğine tıklıyorum. Ekran görüntüsüne bakın:
Evet seçeneğine tıkladıktan sonra, seçilen klasördeki tüm CSV dosyaları Geçerli çalışma sayfasına içe aktarıldı ve veriler A sütunundan başlayarak sağa doğru yerleştirildi. Ekran görüntüsüne bakın:
İpucu: CSV dosyalarını bir çalışma sayfasında yatay olarak yerleştirmek istiyorsanız aşağıdaki VBA kodunu kullanabilirsiniz.
Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
xSht.UsedRange.Clear
xCount = 1
Else
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
End If
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Rows(1).Insert xlShiftDown
Range("A1") = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
xWb.Close False
xFile = Dir
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub 
Bir klasördeki birden fazla xml dosyasını VBA ile tek bir sayfaya içe aktarma
Bir klasördeki tüm XML dosyalarını tek bir sayfaya içe aktarmak istiyorsanız, aşağıdaki VBA kodunu kullanabilirsiniz.
1. İçe aktarılan verileri yerleştirmek istediğiniz boş bir sayfayı seçin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle>Modülseçeneğine tıklayın ve VBA kodunu Modülpenceresine yapıştırın.
VBA: Bir klasördeki XML dosyalarını tek bir çalışma sayfasına içe aktarın.
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "Kutools for Excel"
End Sub3. Çalıştır düğmesine tıklayın veya F5 tuşuna basarak VBA'yı çalıştırın ve açılan iletişim kutusunda “Bir klasör seçin” seçeneğini belirleyin. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın; seçilen klasördeki tüm XML dosyaları Geçerli Çalışma Sayfası'na içe aktarılacaktır.
Birden fazla xml/csv dosyasını Kutools for Excel ile bir sayfaya veya bir çalışma kitabına içe aktarma veya birleştirme
VBA ile tanışık değilseniz endişelenmeyin; size kullanışlı bir araç – Kutools for Excel tanıtacağım. Güçlü Birleştir özelliğini kullanarak birden fazla XML veya CSV dosyasını tek bir çalışma kitabında ya da Excel sayfasında hızlıca birleştirebilirsiniz.
Kutools for Excel'i yükledikten sonra aşağıdaki adımları uygulayın:Kutools for Excel （Kutools for Excel'i Şimdi Ücretsiz İndirin!)
1. Excel'i etkinleştirin ve KUTOOLS PLUS > Birleştir seçeneğine tıklayın. Ekran görüntüsüne bakın：
2. Birleştir iletişim kutusunun 1. adımında, ihtiyacınıza en uygun ayırma seçeneğini belirleyin. Ekran görüntüsüne göz atın:
3. İleri düğmesine tıklayarak Birleştir'in 2. adımına gidin; ardından çeşitli klasörlerden veya tek bir klasördeki dosyalardan dosyaları eklemek için Ekle düğmesine tıklayın ve bunları Çalışma Kitabı listesine ekleyin. Ayrıca sağ bölümdeki Çalışma Sayfası listesinden birleştirmek istediğiniz sayfaları seçebilirsiniz. Ekran görüntüsüne bakın:
4. İleridüğmesine tıklayarak Birleştirişleminin Son Bir adımına gidin ve birleştirme seçeneklerini belirleyebilirsiniz.
5. Son düğmesine tıkladığınızda, yeni birleştirilmiş sonucu kaydetmek için bir konum seçmenizi isteyen bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
6. Kaydet düğmesine tıklayın. Tüm eklenen sayfalar, yeni tek bir sayfada birleştirilmiştir.
İpucu: Birleştir özelliğiyle aynı anda birden fazla klasörden ya da tek bir klasördeki birden fazla CSV dosyasını tek bir sayfaya veya çalışma kitabına birleştirebilirsiniz.
Her sayfayı Kutools for Excel ile csv/metin/pdf olarak bir klasöre dışa aktarma
Her sayfayı CSV/metin/PDF dosyaları biçiminde bir klasöre dışa aktarmak istiyorsanız, Kutools for Excel'nin Çalışma Kitabını Ayır özelliği size yardımcı olabilir.
Kutools for Excel'i ücretsiz olarak indirip yükledikten sonra aşağıdaki adımları uygulayın:ücretsiz indirip yükledikten sonraKutools for Excel
1. Dışa aktarmak istediğiniz çalışma kitabını etkinleştirin ve KUTOOLS PLUS > Çalışma Kitabı > Çalışma Kitabını Ayır seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Çalışma Kitabını Ayır iletişim kutusunda dışa aktarmak istediğiniz sayfaları seçebilirsiniz; varsayılan olarak tüm sayfalar seçilidir. Ayrıca Kayıt biçimini belirt seçeneğini işaretleyip, açılır listeden kaydetmek istediğiniz dosya türünü seçebilirsiniz. Ekran görüntüsüne bakın:
3. Böl düğmesine tıklayın ve bölünmüş dosyaları kaydetmek istediğiniz klasörü Klasör Seç iletişim kutusunda belirtin. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın; artık işaretlenen tüm sayfalar, seçilen klasörde yeni Dosya Türü olarak dışa aktarılmıştır.
İlgili Makaleler:
- Excel'de bir köprüyü düz metne nasıl dönüştürebilirim?
- Excel'de bir ondalık sayıyı ikili, sekizli veya onaltılı sayıya ya da bunların tam tersini nasıl dönüştürebilirim?
- Excel'de canlı döviz kuru nasıl eklenir?
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