Ana içeriğe atla

Birden çok csv dosyasını birden çok çalışma sayfasına nasıl birleştirir / içe aktarırım?

Bir klasörden birden çok csv dosyasını bir çalışma kitabındaki ayrı çalışma sayfaları olarak içe aktarmak istiyorsanız, bu işi Excel'de nasıl halledebilirsiniz?

Birden çok csv dosyasını VBA kodu ile ayrı çalışma sayfalarına aktarın

Kutools for Excel ile birden çok csv dosyasını ayrı çalışma sayfalarına aktarın

Bir çalışma kitabını birden çok ayrı csv / pdf / txt / excel dosyasına bölme


Birden çok csv dosyasını bir çalışma kitabına hızlı bir şekilde aktarmak için, aşağıdaki VBA kodu size bir iyilik yapabilir, lütfen aşağıdaki işlemleri gerçekleştirin:

1. Basılı tutun ALT + F11 açmak için Excel'deki tuşları Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Birden çok metin dosyasını ayrı çalışma sayfalarına aktarın:

Sub CombineCsvFiles()
'updateby Extendoffice
    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 (*.csv), *.csv", , "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
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    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. Daha sonra tuşuna basın. F5 Bu kodu yürütmek için bir anahtar ve bir pencere açılır, belirli bir klasöre gidin ve Excel'e aktarmak istediğiniz csv dosyalarını seçin, ekran görüntüsüne bakın:

doc csv'yi çalışma sayfası 1'e içe aktar

4. Ve sonra tıklayın Açılış düğmesi, seçilen csv dosyaları yeni bir çalışma kitabında ayrı çalışma sayfaları olarak içe aktarılmıştır.

5. Son olarak, ihtiyaç duyduğunuzda yeni çalışma kitabını kaydedebilirsiniz.


Eğer varsa Kutools for Excel, güçlü aracı ile-Birleştirmek, birden çok csv dosyasını tek bir çalışma sayfasında veya ihtiyaç duyduğunuzda birden çok ayrılmış çalışma sayfasında hızla birleştirebilir veya içe aktarabilirsiniz.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. lütfen tıklayın Kutools Artı > Birleştirmek, ekran görüntüsüne bakın:

2. içinde Çalışma Sayfalarını Birleştirin iletişim kutusu, lütfen seçin Çalışma kitaplarından birden çok çalışma sayfasını tek bir çalışma kitabında birleştirin, ekran görüntüsüne bakın:

doc csv'yi çalışma sayfası 6'e içe aktar

3. In 2. Adım sihirbazın Ekle > fileto birleştirmek istediğiniz csv dosyalarını seçmek için ekran görüntüsüne bakın:

doc csv'yi çalışma sayfası 7'e içe aktar

4. Dışarı fırladı Açılış iletişim kutusunu seçin (* .csv) açılır listeden seçin ve ardından birleştirmek istediğiniz csv dosyalarını belirtin.

doc csv'yi çalışma sayfası 8'e içe aktar

5. Sonra tıklayın Açılış düğmesi ve seçtiğiniz csv dosyalarınız iletişim kutusuna aktarılmıştır, ekran görüntüsüne bakın:

doc csv'yi çalışma sayfası 9'e içe aktar

6. In 3. Adımlütfen aşağıdaki işlemleri yapın:

(1.) Kontrol Her çalışma sayfasının ilk satırı (yorumlar) itibaren Çalışma sayfası bilgilerini ekleyin bölümünde, csv dosyalarının tüm bilgileri yorum olarak birleştirilmiş sayfalara eklenecektir;

(2.) Csv dosyalarını ihtiyaç duyduğunuz şekilde yeniden adlandırabilirsiniz;

(3.) boş bir csv dosyasıyla karşılaştığınızda boş csv dosyalarını atlayabilirsiniz.

doc csv'yi çalışma sayfası 10'e içe aktar

7. Sonra tıklayın Bitiş düğmesini tıklayın ve birleştirmeyi bitirdikten sonra, yeni birleştirilmiş çalışma kitabınız için bir dosya adı ve konumu belirtebilirsiniz. Ekran görüntüsüne bakın:

doc csv'yi çalışma sayfası 11'e içe aktar

8. Sonra tıklayın İndirim düğmesi, açılır istem kutusunda, yeni dosyayı açabilirsiniz Evetve tıklayarak kapatın Yok hayır, ekran görüntüsüne bakın:

doc csv'yi çalışma sayfası 12'e içe aktar

9. Ve sonra bu senaryoyu istediğiniz gibi kaydedebilir veya kaydedemezsiniz. Ekran görüntüsüne bakın:

doc csv'yi çalışma sayfası 13'e içe aktar

10. Sonunda, seçtiğiniz csv dosyalarınız ayrı çalışma sayfası içeren yeni bir çalışma kitabına aktarıldı, ekran görüntüsüne bakın:

doc csv'yi çalışma sayfası 14'e içe aktar

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!


Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

Belirli bir durumda, bir çalışma kitabını ayrı csv dosyalarına bölmek isteyebilirsiniz, Kutools for Excel'in Bölünmüş Çalışma Kitabı yardımcı programı bu işi hızlı ve kolay bir şekilde bitirebilir.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. tıklayın 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:

(1.) Bölmek istediğiniz çalışma sayfalarını kontrol edin;

(2.) Ve kontrol edin Kaydetmeyi belirtinbiçim, ardından kaydetmek istediğiniz dosya biçimini seçin;

(3.) Ardından tıklayın Bölünmüş düğmesini tıklayın ve ayrılmış dosyaları koymak için bir klasör belirtin.

doc csv'yi çalışma sayfası 3'e içe aktar

3. Ve sonra tıklayın OK bölmeye başlamak için çalışma kitabı ihtiyacınız olan ayrı csv dosyalarına bölünecektir.

doc csv'yi çalışma sayfası 4'e içe aktar

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!


Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

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...

Açıklama


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi!
I've been using this code to combine evaluation forms into one excel sheet. However, it reads the dates in the US format of MM/DD/YYYY instead of the European format which I use, which is DD/MM/YYYY. The results is a column that looks like this:

11-4-2021 17:13
22/10/2021 09:41:32 (This is october 22nd, but it's not recognized)
7-12-2022 14:55 (This is mistakenly read as December 7th, when it should be July 12th.)
27/10/2021 16:53:19
29/10/2021 09:44:26
11-1-2021 11:36
11-2-2021 14:11
17/08/2022 16:46:06
11-1-2021 10:49
8-10-2022 12:19
22/10/2021 14:54:58
17/11/2021 13:48:54
26/10/2021 20:13:37
22/10/2021 16:26:13

How can I prevent this from happening? I saw a comment on another post that suggested putting 'Local=True' somewhere, but I've not been able to figure out where to put that so that the CSV files load correctly. Any help is appreciated!
This comment was minimized by the moderator on the site
Hello this vba macro is great, but i want it to be launched by a button click on another workbook, how can i do that ?
This comment was minimized by the moderator on the site
Thank you. The code works well
This comment was minimized by the moderator on the site
Thank you . Very handy
This comment was minimized by the moderator on the site
Thank you! The code was very useful
This comment was minimized by the moderator on the site
Thank you for sharing this code. It is exactly what I was looking for. Sadly it is not working as well as I hoped it would. I am receiving an error message every time the code is run. ERROR: "The name is already taken. Try a different one." Notes: - I am trying to combine four csv files - All of the csv files have the same name "file_name.csv, file_name(1).csv, etc..." The code combines the first two csv files into one workbook and the the third file into its own workbook. The fourth file never had a chance because of the error. If anyone has some thoughts as how to go about fixing this issue I would greatly appreciate your feedback. Thank you all in advanced for you time. Best regards, Andrew
This comment was minimized by the moderator on the site
Thank you for the code on combining files. I however want to have the multiple files in the workbook I am currently working with, not for the code to create a new workbook. How do I go about achieving that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations