Bagaimana cara cepat mengimpor banyak file csv / teks / xml di Excel?
Di Excel, Anda mungkin telah terikat untuk menyimpan buku kerja sebagai file csv, file teks atau file xml, tetapi pernahkah Anda mencoba mengimpor beberapa file csv / teks / xml dari folder ke dalam buku kerja atau lembar kerja? Pada artikel ini, saya memperkenalkan beberapa metode untuk mengimpor secara batch dengan cepat.
Impor beberapa file teks dari folder ke setiap lembar kerja buku kerja dengan VBA
Impor beberapa file csv dari folder ke dalam satu lembar dengan VBA
Impor beberapa file xml dari folder ke dalam satu lembar dengan VBA
Impor atau gabungkan beberapa file xml / csv ke dalam lembaran atau buku kerja dengan Kutools for Excel 
Ekspor setiap lembar sebagai csv / teks / pdf ke folder dengan Kutools for Excel
Impor beberapa file teks dari folder ke setiap lembar kerja buku kerja dengan VBA
Untuk mengimpor file teks dari folder ke buku kerja, Anda dapat menggunakan VBA di bawah ini untuk menanganinya dengan cepat.
1. Aktifkan buku kerja kosong, dan tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempelkan VBA ke file Modul jendela.
VBA: Impor semua file teks dari folder ke dalam buku kerja
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. tekan F5 kunci atau Run untuk menjalankan VBA, dan pilih folder tempat Anda ingin mengimpor file teks dari dalam dialog yang muncul. Lihat tangkapan layar:
4. Dan klik OK, dan setiap file teks di folder yang dipilih telah diimpor ke dalam satu lembar kerja dari buku kerja yang aktif. Lihat tangkapan layar:
Gabungkan beberapa lembar / Buku Kerja dengan mudah menjadi satu lembar atau Buku Kerja
|
| Untuk menggabungkan beberapa lembar atau buku kerja ke dalam satu lembar atau buku kerja mungkin membosankan di Excel, tapi dengan Menggabungkan Fungsi di Kutools for Excel, Anda bisa menggabungkan lusinan lembar / buku kerja menjadi satu lembar atau buku kerja, juga, Anda bisa menggabungkan lembaran menjadi satu dengan beberapa klik saja. Klik untuk uji coba gratis 30 hari berfitur lengkap! |
 |
| Kutools for Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Impor beberapa file csv dari folder ke dalam satu lembar dengan VBA
Untuk mengimpor semua file csv dari folder menjadi satu lembar, Anda dapat menggunakan kode VBA di bawah ini.
1. Aktifkan lembar kerja kosong, dan tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempelkan di bawah VBA ke file Modul jendela.
VBA: Impor file csv dari folder ke dalam satu lembar kerja
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. tekan F5 kunci atau klik Run untuk menjalankan VBA, dan sebuah dialog muncul untuk memilih folder tempat Anda ingin mengimpor semua file csv. Lihat tangkapan layar:
4. klik OK, dan dialog muncul untuk mengingatkan Anda jika menghapus isi lembar kerja aktif sebelum mengimpor, di sini saya klik Yes. Lihat tangkapan layar:
Setelah mengklik Yes, semua file csv di folder yang dipilih diimpor ke sheet saat ini, dan data tempat dari Kolom A ke kanan. Lihat tangkapan layar:
olymp trade indonesiaTip: Jika Anda ingin menempatkan file csv secara horizontal di lembar kerja, Anda dapat menggunakan VBA di bawah ini.
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 
Impor beberapa file xml dari folder ke dalam satu lembar dengan VBA
Jika Anda ingin mengimpor semua file XML dari folder ke dalam satu lembar, Anda dapat menggunakan kode VBA di bawah ini.
1. Pilih lembar kosong yang ingin Anda tempatkan data yang diimpor, dan tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, tempel kode VBA ke file Modul jendela.
VBA: Impor file XML dari folder ke dalam lembar kerja.
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. klik Run tombol atau F5 kunci untuk menjalankan VBA, dan pilih folder di dialog popping, lihat tangkapan layar:
4. klik OK, dan semua file XML di folder yang dipilih diimpor ke lembar aktif.
Impor atau gabungkan beberapa file xml / csv ke dalam lembaran atau buku kerja dengan Kutools for Excel
Jika Anda tidak terbiasa dengan VBA, jangan khawatir, di sini saya perkenalkan alat praktis - Kutools untuk Excel untukmu. Dengan kekuatannya Menggabungkan utilitas, Anda dapat dengan cepat menggabungkan beberapa file xml atau file csv ke dalam satu buku kerja atau satu lembar Excel.
| Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. | ||
Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:（Unduh Gratis Kutools untuk Excel Sekarang!)
1. Excel aktif, dan klik Kutools Ditambah > Menggabungkan. Lihat tangkapan layar ：
2. Dan di langkah 1 dari Gabungkan dialog, pilih satu opsi pemisahan yang Anda butuhkan. Lihat tangkapan layar:
3. klik Selanjutnya untuk pergi ke langkah 2 dari Gabungkanklik Add untuk menambahkan file dari berbagai folder atau file dari satu folder ke Buku catatan daftar, dan juga Anda dapat menentukan lembar yang ingin Anda gabungkan Lembar Kerja daftar bagian kanan. Lihat tangkapan layar:
4. klik Selanjutnya ke satu langkah terakhir dari Menggabungkan, dan Anda dapat menentukan opsi penggabungan.
5. klik Finish, sebuah dialog muncul untuk mengingatkan Anda memilih lokasi untuk menyimpan hasil gabungan yang baru. Lihat tangkapan layar:
6. klik Save. Semua lembar tambahan telah digabungkan menjadi satu lembar baru.
olymp trade indonesiaTip: Dengan Menggabungkan, Anda juga dapat menggabungkan beberapa file File CSV membentuk beberapa folder atau satu folder menjadi satu lembar atau workbook.
Gabungkan Beberapa File XML / CVS menjadi Satu Lembar / Buku Kerja
Ekspor setiap lembar sebagai csv / teks / pdf ke folder dengan Kutools for Excel
Jika Anda ingin mengekspor setiap lembar sebagai file csv / teks / pdf ke folder, Kutools untuk Excel'S Pisahkan Buku Kerja utilitas dapat membantu Anda.
Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:
1. Aktifkan buku kerja yang ingin Anda ekspor lembar kerjanya, dan klik Kutools Ditambah > Buku catatan > Pisahkan Buku Kerja. Lihat tangkapan layar:
2. Dalam Pisahkan Buku Kerja dialog, Anda dapat memeriksa nama lembar yang perlu Anda ekspor, secara default semua lembar dicentang, dan periksa Tentukan format penyimpanan dan pilih format file yang ingin Anda simpan seperti dari daftar drop-down di bawah ini. Lihat tangkapan layar:
3. klik Split dan pilih folder yang akan menyimpan file yang dipisahkan di Jelajahi Folder dialog, lihat tangkapan layar:
4. klik OK, sekarang semua lembar yang dicentang diekspor sebagai format file baru di folder yang dipilih.
Ekspor Setiap Lembar sebagai File XML / CSV / TXT / PDF Tunggal
Artikel Relatif:
- Bagaimana cara mengubah hyperlink menjadi teks biasa di Excel?
- Bagaimana cara mengubah bilangan desimal menjadi bilangan biner / oktal / heksa atau sebaliknya di Excel?
- Bagaimana cara memasukkan nilai tukar langsung di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
