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

or

Bagaimana untuk mengimport beberapa fail teks ke berbilang helaian?

Supaya, terdapat banyak fail teks dalam folder komputer anda, sekarang, anda mahu mengimport fail teks ini ke dalam buku kerja Excel, dan letakkan setiap fail teks ke dalam lembaran kerja berasingan. Menyalin dan menampal setiap fail teks ke lembaran kerja satu demi satu akan menyia-nyiakan banyak masa, di sini, saya boleh bercakap tentang beberapa helah bagi anda untuk menyelesaikan masalah ini.

Import berbilang fail teks untuk memisahkan lembaran kerja dengan kod VBA

Pisah buku kerja untuk berbilang fail teks / pdf / csv / xlsx berasingan dengan Kutools untuk Excel


Menggabungkan / mengimport pelbagai lembar kerja ke dalam satu lembaran kerja atau buku kerja:
Dalam kerja harian anda, untuk menggabungkan pelbagai lembaran kerja atau buku kerja ke dalam satu lembaran kerja atau buku kerja mungkin kerja yang besar dan tajam. Tetapi, jika anda ada Kutools untuk Excel, dengan utiliti yang berkuasa - Gabungkan, anda boleh dengan cepat menggabungkan pelbagai lembaran kerja, buku kerja ke dalam satu lembaran kerja atau buku kerja.
doc menggabungkan pelbagai lembaran kerja

anak panah gelembung kanan biru Import berbilang fail teks untuk memisahkan lembaran kerja dengan kod VBA


Kod VBA berikut boleh membantu anda mengimport setiap fail teks ke dalam helaian berasingan dalam buku kerja sekaligus, sila lakukan seperti berikut:

1. Tahan ALT + F11 kunci dalam Excel untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Import berbilang fail teks untuk memisahkan lembaran kerja:

Sub CombineTextFiles()
'updateby Extendoffice 20151015
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. Selepas menampal kod di atas, tekan F5 kunci untuk menjalankan kod ini, dan dalam tetingkap keluar, tentukan folder yang mengandungi fail teks, pergi ke folder untuk memilih fail teks yang ingin anda import ke lembaran kerja, lihat tangkapan skrin:

doc import multiple text files 1

4. Kemudian klik Dibuka butang, semua fail teks yang dipilih telah diimport ke dalam buku kerja baru dan setiap fail terletak dalam satu lembaran kerja secara individu.

5. Akhirnya, anda boleh menyimpan buku kerja baru yang anda perlukan.


anak panah gelembung kanan biru Pisah buku kerja untuk berbilang fail teks / pdf / csv / xlsx berasingan dengan Kutools untuk Excel

Kadang-kadang, anda mungkin perlu melakukan beberapa operasi bertentangan di atas tugas, iaitu, anda perlu memisahkan buku kerja untuk memisahkan fail teks. Kutools untuk Excel'S Buku Kerja Split Utiliti dapat membantu anda untuk menyelesaikan pekerjaan ini dengan cepat dan mudah.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

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

1. Aktifkan buku kerja yang anda mahu berpecah kepada beberapa fail teks.

2. Klik Enterprise > Buku kerja > Buku Kerja Split, lihat tangkapan skrin:

excel menambah ciri buku kerja tambahan

3. Di dalam Buku Kerja Split kotak dialog:

(1.) Semak lembaran kerja yang anda mahu perpecahan.

(2.) Semak Tentukan format simpan, kemudian pilih format fail yang anda ingin simpan, sebagai contoh, anda boleh memilih txt, csv, pdf, xlsx or xls format fail yang anda perlukan.

(3.) Kemudian klik Split butang, dalam kotak petua berikut menentukan folder untuk mengeluarkan fail berasingan.

excel add-in split kotak dialog buku kerja  2 excel add-in pilih lokasi

4. Kemudian klik OK butang, dan lembaran kerja yang anda pilih akan berpecah dan disimpan ke folder yang anda inginkan dengan format yang anda perlukan.

excel add-in files berasingan

Muat turun Percuma Kutools untuk Excel Sekarang!


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.
    Thuva · 1 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 2 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 2 years ago
    Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
  • To post as a guest, your comment is unpublished.
    G · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?