Excel'de birden çok csv / text / xml dosyasını hızlı bir şekilde toplu olarak nasıl içe aktarabilirim?
Excel'de, bir çalışma kitabını csv dosyası, metin dosyası veya xml dosyası olarak kaydetmeyi bağlamış olabilirsiniz, ancak daha önce bir klasörden birden çok csv / text / xml dosyasını bir çalışma kitabına veya çalışma sayfasına aktarmayı denediniz mi? Bu makalede, bunları hızlı bir şekilde toplu olarak içe aktarmak için bazı yöntemler tanıtıyorum.
VBA ile bir klasörden birden çok csv dosyasını tek bir sayfaya aktarın
VBA ile bir klasörden birden çok xml dosyasını tek bir sayfaya aktarın
Kutools for Excel ile birden çok xml / csv dosyasını bir sayfaya veya çalışma kitabına içe aktarın veya birleştirin
Kutools for Excel ile her sayfayı csv / text / pdf olarak bir klasöre aktarın
Bir klasördeki birden çok metin dosyasını VBA ile bir çalışma kitabının her çalışma sayfasına aktarın
Metin dosyalarını bir klasörden bir çalışma kitabına aktarmak için, hızlı bir şekilde işlemek için aşağıdaki VBA'yı kullanabilirsiniz.
1. Boş bir çalışma kitabını etkinleştirin ve Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve VBA'yı modül pencere.
VBA: Tüm metin dosyalarını bir klasörden bir çalışma kitabına aktarın
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 Sub
3. Basın F5 anahtar veya koşmak VBA'yı çalıştırmak için düğmesine basın ve açılan iletişim kutusundan metin dosyalarını içe aktarmak istediğiniz klasörü seçin. Ekran görüntüsüne bakın:
4. Ve tıklayın OKve seçili klasördeki her metin dosyası etkin çalışma kitabının bir çalışma sayfasına aktarılmıştır. Ekran görüntüsüne bakın:
Birden çok sayfayı / Çalışma kitabını tek bir sayfaya veya Çalışma Kitabına kolayca birleştirin
|
Çoklu sayfaları veya çalışma kitaplarını tek bir sayfaya veya çalışma kitabına birleştirmek, Excel'de baştan sona olabilir, ancak Birleştirmek Kutools for Excel'de işlev, düzinelerce sayfayı / çalışma kitabını bir sayfaya veya çalışma kitabına birleştirebilir, ayrıca sayfaları yalnızca birkaç tıklamayla tek tek birleştirebilirsiniz. Tam özellikli 30 günlük ücretsiz deneme için tıklayın! |
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz olarak deneyin. |
VBA ile bir klasörden birden çok csv dosyasını tek bir sayfaya aktarın
Tüm csv dosyalarını bir klasörden tek bir sayfaya aktarmak için aşağıdaki VBA kodunu kullanabilirsiniz.
1. Boş bir çalışma sayfasını etkinleştirin ve Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve VBA'nın altına yeni modül pencere.
VBA: Bir klasörden csv dosyalarını tek bir çalışma sayfasına aktarın
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 Sub
3. Basın F5 anahtar veya tıklama koşmak düğmesi VBA'yı yürütmek için ve tüm csv dosyalarını içe aktarmak istediğiniz klasörü seçmek için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OKve içe aktarmadan önce aktif çalışma sayfasının içeriğini temizleyip temizlemediğinizi size hatırlatmak için bir iletişim kutusu açılır, buraya tıklıyorum Evet. Ekran görüntüsüne bakın:
tıkladıktan sonra Evetseçili klasördeki tüm csv dosyaları geçerli sayfaya aktarılır ve verileri Sütun A'dan sağa yerleştirir. Ekran görüntüsüne bakın:
Bahşiş: Csv dosyalarını bir çalışma sayfasına yatay olarak yerleştirmek istiyorsanız, aşağıdaki VBA'yı 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
VBA ile bir klasörden birden çok xml dosyasını tek bir sayfaya aktarın
Tüm XML dosyalarını bir klasörden tek bir sayfaya aktarmak istiyorsanız, aşağıdaki VBA kodunu kullanabilirsiniz.
1. İçe aktarılan verileri yerleştirmek istediğiniz boş bir sayfa seçin ve Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül, VBA kodunu şuraya yapıştırın: modül pencere.
VBA: XML dosyalarını bir klasörden çalışma sayfasına 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 Sub
3. tık koşmak düğmesi veya F5 VBA'yı çalıştırmak için anahtar ve açılan iletişim kutusunda bir klasör seçin, ekran görüntüsüne bakın:
4. tık OKve seçilen klasördeki tüm XML dosyaları etkin sayfaya aktarılır.
Kutools for Excel ile birden çok xml / csv dosyasını bir sayfaya veya çalışma kitabına içe aktarın veya birleştirin
VBA'ya aşina değilseniz, endişelenmeyin, burada kullanışlı bir araç sunuyorum - Kutools for Excel senin için. Güçlü Birleştirmek yardımcı programda, birden çok xml dosyasını veya csv dosyasını bir çalışma kitabında veya bir Excel sayfasında hızla birleştirebilirsiniz.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. | ||
Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın:(Şimdi Excel için Kutools'u Ücretsiz İndirin!)
1. Excel'i etkinleştirin ve tıklayın Kutools Artı > Birleştirmek. Ekran görüntüsüne bakın :
2. Ve Birleştirmenin 1. adımı iletişim kutusunda ihtiyacınız olan bir ayırma seçeneği seçin. Ekran görüntüsüne bakın:
3. tık Sonraki gitmek için Birleştirmenin 2. adımıtık Ekle çeşitli klasörlerden veya dosyalardan bir klasörden dosya eklemek için alıştırma kitabı listesinden birleştirmek istediğiniz sayfaları da belirtebilirsiniz. Çalışma Sayfası sağ bölüm listesi. Ekran görüntüsüne bakın:
4. tık Sonraki son bir adımına Birleştirmekve birleştirme seçeneklerini belirtebilirsiniz.
5. tık Bitiş, yeni birleştirilmiş sonucu kaydetmek için bir konum seçmenizi hatırlatan bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
6. tık İndirim. Tüm ek sayfalar yeni bir tek sayfada birleştirildi.
Bahşiş: İle Birleştirmek, ayrıca birden çok CSV dosyaları tek bir sayfaya veya çalışma kitabına birden çok klasör veya bir klasör oluşturun.
Birden Çok XML / CVS Dosyasını Tek Sayfada / Çalışma Kitabında Birleştirin
Kutools for Excel ile her sayfayı csv / text / pdf olarak bir klasöre aktarın
Her sayfayı csv / text / pdf dosyası olarak bir klasöre aktarmak istiyorsanız, Kutools for Excel'S Çalışma Kitabını Böl yardımcı program sizin için bir iyilik yapabilir.
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. Çalışma sayfalarını dışa aktarmak istediğiniz çalışma kitabını etkinleştirin ve Kutools Artı > alıştırma kitabı > Çalışma Kitabını Böl. Ekran görüntüsüne bakın:
2. içinde Çalışma Kitabını Böl iletişim kutusu, dışa aktarmanız gereken sayfa adlarını kontrol edebilirsiniz, varsayılan olarak tüm sayfalar kontrol edilir ve Kaydetme formatını belirtin ve aşağıdaki açılır listeden kaydetmek istediğiniz dosya formatını seçin. Ekran görüntüsüne bakın:
3. tık Bölünmüş ve bölünmüş dosyaların kaydedileceği bir klasör seçin. Klasöre Göz At iletişim kutusu, ekran görüntüsüne bakın:
4. tık OK, şimdi tüm işaretli sayfalar seçilen klasörde yeni dosya formatı olarak dışa aktarılır.
Her Sayfayı Tek XML / CSV / TXT / PDF Dosyası olarak Dışa Aktar
İlgili Makaleler:
- Excel'de köprüyü düz metne dönüştürmek nasıl?
- Ondalık sayıyı ikili / sekizlik / onaltılık sayıya veya tersi Excel'de nasıl dönüştürebilirim?
- Excel'de canlı döviz kuru nasıl eklenir?
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!