Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana dengan cepat mengikat import beberapa csv / text / xml fail dalam Excel?

Di Excel, anda mungkin terikat untuk menyimpan buku kerja sebagai fail csv, fail teks atau fail xml, tetapi pernahkah anda cuba mengimport fail csv / text / xml yang banyak dari folder ke dalam buku kerja atau lembaran kerja? Dalam artikel ini, saya memperkenalkan beberapa kaedah untuk mengimport dengan cepat kumpulan mereka.

Import beberapa fail teks dari folder ke dalam setiap lembaran kerja buku kerja dengan VBA

Import fail csv berganda dari folder ke dalam lembaran tunggal dengan VBA

Import fail xml berganda dari folder ke dalam lembaran tunggal dengan VBA

Import atau menggabungkan beberapa fail xml / csv ke dalam helaian atau buku kerja dengan Kutools untuk Excel idea yang baik3

Eksport setiap helaian sebagai csv / text / pdf ke folder dengan Kutools untuk Excelidea yang baik3


Mudah Menggabungkan beberapa helaian / Buku kerja ke dalam satu helaian tunggal atau buku kerja

Untuk menggabungkan helaian helaian atau buku kerja ke dalam satu helaian atau buku kerja boleh menjadi sangat baik dalam Excel, tetapi dengan Combine fungsi dalam Kutools untuk Excel, anda boleh menggabungkan berpuluh-puluh helaian / buku kerja ke dalam satu helaian atau buku kerja, juga, anda boleh menggabungkan helaian itu menjadi satu dengan beberapa klik sahaja. Klik untuk perbicaraan percuma 60 hari yang lengkap!
menggabungkan lembaran
Kutools untuk Excel: dengan lebih daripada 300 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60.


Untuk mengimport fail teks dari folder ke buku kerja, anda boleh menggunakan VBA di bawah untuk mengendalikannya dengan cepat.

1. Dayakan buku kerja kosong, dan tekan Alt + F11 kunci untuk dibuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. klik Memasukkan > Modul, dan tampal VBA ke Modul tingkap.

VBA: Import semua fail 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 Sub

3. Akhbar F5 kunci atau Main butang untuk menjalankan VBA, dan pilih folder yang anda mahu untuk mengimport fail teks dari dalam dialog yang muncul. Lihat tangkapan skrin:

doc import multiple csv text xml 1

4. Dan klik OK, dan setiap fail teks dalam folder terpilih telah diimport ke dalam satu lembaran kerja buku kerja aktif. Lihat tangkapan skrin:

doc import multiple csv text xml 2doc import multiple csv text xml 3

Untuk mengimport semua fail csv membentuk folder ke dalam satu helaian, anda boleh menggunakan kod VBA di bawah.

1. Dayakan lembaran kerja kosong, dan tekan Alt + F11 kunci untuk dibuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. klik Memasukkan > Modul, dan tampal di bawah VBA ke yang baru Modul tingkap.

VBA: Import fail csv dari folder ke satu lembaran 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 Sub

3. Akhbar F5 kunci atau klik Main butang untuk melaksanakan VBA, dan dialog timbul untuk memilih folder yang anda ingin mengimport semua fail csv dari. Lihat tangkapan skrin:

doc import multiple csv text xml 4

4. klik OK, dan dialog timbul untuk mengingatkan anda jika mengosongkan kandungan lembaran kerja aktif sebelum mengimport, di sini saya mengklik Ya. Lihat tangkapan skrin:

doc import multiple csv text xml 5

Selepas mengklik Ya, semua fail csv dalam folder terpilih diimport ke dalam helaian semasa, dan letakkan data dari Lajur A ke kanan. Lihat tangkapan skrin:

doc import multiple csv text xml 6doc import multiple csv text xml 7

Petua: Jika anda mahu meletakkan fail csv secara mendatar dalam lembaran kerja, anda boleh menggunakan VBA di bawah.

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 

doc import multiple csv text xml 8


Sekiranya anda mahu mengimport semua fail XML dari folder ke dalam satu helaian, anda boleh menggunakan kod VBA di bawah.

1. Pilih satu helaian kosong yang anda mahu letakkan data yang diimport, dan tekan Alt + F11 kunci untuk membolehkannya Microsoft Visual Basic untuk Aplikasi tingkap.

2. klik Memasukkan > Modul, tampal kod VBA ke dalam Modul tingkap.

VBA: Import fail XML dari folder ke dalam lembaran 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 Sub

3. klik Main butang atau F5 kunci untuk menjalankan VBA, dan pilih folder dalam dialog yang muncul, lihat tangkapan skrin:

doc import multiple csv text xml 9

4. klik OK, dan semua fail XML dalam folder terpilih diimport ke dalam helaian aktif.


Jika anda tidak biasa dengan VBA, bimbang, di sini saya memperkenalkan alat berguna - Kutools untuk Excel untuk anda. Dengan kekuatannya Gabungkan utiliti, anda boleh dengan cepat menggabungkan beberapa fail xml atau fail csv ke dalam satu buku kerja atau satu helaian Excel.

Kutools untuk Excel, dengan lebih daripada 300 fungsi yang berguna, menjadikan pekerjaan anda lebih mudah.

Selepas memasang Kutools untuk Excel, sila lakukan seperti di bawah:(Muat turun Percuma Kutools untuk Excel Sekarang!)

1. Aktif Excel, dan klik Enterprise > Gabungkan. Lihat tangkapan skrin:
doc menggabungkan 1

2. Dan dalam langkah 1 of Combine dialog, pilih satu pilihan pemisahan yang anda perlukan. Lihat tangkapan skrin:
doc menggabungkan 2

3. klik Seterusnya untuk pergi ke langkah 2 daripada Gabungan, Klik Tambah untuk menambah fail dari pelbagai folder atau fail dari satu folder ke Buku kerja senarai, dan juga anda boleh menentukan helaian yang ingin anda gabungkan Lembaran kerja senarai bahagian kanan. Lihat tangkapan skrin:
doc menggabungkan 3

4. klik Seterusnya kepada satu langkah terakhir Gabungkan, dan anda boleh menentukan opsyen.

1) Nyatakan nombor baris tajuk

2) Tentukan jika memasukkan maklumat lembaran kerja

3) Langkau rentang kosong atau tidak

4) Tentukan pilihan tampal
doc menggabungkan 4

5. klik Selesai, dialog timbul untuk mengingatkan anda memilih lokasi untuk menyimpan hasil gabungan yang baru. Lihat tangkapan skrin:
doc menggabungkan 5

6. klik Simpan. Semua helaian tambahan telah dikombinasikan ke dalam satu helaian baru.
doc menggabungkan 6

Petua: dengan Gabungkan, anda juga boleh menggabungkan pelbagai Fail CSV borang berbilang folder atau satu folder ke dalam satu helaian atau buku kerja.


Jika anda ingin mengeksport setiap helaian sebagai fail csv / text / pdf ke folder, Kutools untuk Excel'S Buku Kerja Split Utiliti boleh melakukan kebaikan untuk anda.

selepas memasang percuma Kutools untuk Excel, sila lakukan seperti di bawah:

1. Dayakan buku kerja yang anda ingin eksport lembaran kerja, dan klik Enterprise > Buku kerja > Buku Kerja Split. Lihat tangkapan skrin:

doc import multiple csv text xml 10

2. Di dalam Buku Kerja Split dialog, anda boleh menyemak nama kunci yang anda perlu eksport, secara lalai semua helaian diperiksa, dan periksa Tentukan format simpan dan pilih format fail yang anda mahu simpan dari senarai drop-down di bawah. Lihat tangkapan skrin:

doc import multiple csv text xml 11

3. klik Split dan pilih folder yang untuk menyimpan fail split dalam Semak imbas untuk Folder dialog, lihat tangkapan skrin:

doc import multiple csv text xml 12

4. klik OK, kini semua helaian yang disahkan akan dieksport sebagai format fail baru dalam folder yang dipilih.


cepat menukarkan pelbagai XLSX. fail ke XLS atau PDF. fail sekali dalam masa

Dalam banyak kes, anda mungkin ingin menukar antara XLSX dan XLS, atau menukar buku kerja ke fail PDF, tetapi dalam Excel, anda hanya boleh menukar satu buku kerja sekali sahaja, adakah anda pernah mengira untuk menukar banyak buku kerja pada satu masa? Dengan Kutools untuk Excel's File Format Converter, anda boleh menukar banyak buku kerja dengan cepat ke buku kerja / 97-2003 pdf / 2007 atau buku kerja yang lebih tinggi sekaligus dan menyimpannya dalam folder, pada masa yang sama, laporan yang ditukar dijana! Klik untuk 60 hari percubaan percuma!
doc file converter
Kutools untuk Excel: dengan lebih daripada 300 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60.

Artikel relatif:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Hey · 9 months ago
    It worked! Thanks
  • To post as a guest, your comment is unpublished.
    Amanda · 10 months ago
    Hello, I tried running the code for .xml and it didn't appear to work as I got the message "no files xml". How do fix this?
    • To post as a guest, your comment is unpublished.
      Sunny · 9 months ago
      It will pop a message"no files xml" while your selected folder do not contain the xml files. You can select the right folder which contains xml files in popping dialog after run the code for importing them to the active sheet.
  • To post as a guest, your comment is unpublished.
    see · 1 years ago
    Totally amazing! Tried the open all csv files in one worksheet and it worked beautifully. Thanks so much, really!
  • To post as a guest, your comment is unpublished.
    Chad · 1 years ago
    Mike: "the code for converting from txt files did not work for me."

    I had the same problem.The macro errors out if you have more txt files to open than worksheets in your workbook (default is 3).
    I fixed it by adding the following just before the loop exits so the macro creates a new sheet after the rest
    ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
    • To post as a guest, your comment is unpublished.
      AJ · 9 months ago
      Chad, This perfectly worked for me to import multiple text files. Thank you.

      Do you know if there is a way to pull the file names? I want the text file names copied into each excel sheet tabs.
  • To post as a guest, your comment is unpublished.
    zoi · 1 years ago
    Hi! The code "Import csv files from a folder into one worksheet", works for me! But this code doesn't work for an empty .txt file. Is there any way to keep also the empty files?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Sorry, I do not know why need to import an empty txt.file~Just insert blank rows to seperate the contents.