Note: The other languages of the website are Google-translated. Back to English

Як об'єднати / імпортувати декілька файлів CSV на кілька аркушів?

Якщо ви хочете імпортувати декілька файлів CSV з папки як окремі аркуші в книзі, як би ви могли впоратися з цією роботою в Excel?

Імпортуйте кілька файлів CSV в окремі аркуші з кодом VBA

Імпортуйте кілька файлів CSV на окремі аркуші за допомогою Kutools для Excel

Розділіть книгу на кілька окремих файлів csv / pdf / txt / excel


Щоб швидко імпортувати декілька файлів csv до книги, такий код VBA може зробити вам послугу, будь-ласка, зробіть наступне:

1. Утримуйте клавішу ALT + F11 клавіші в Excel, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Імпортуйте кілька текстових файлів на окремі аркуші:

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. Потім натисніть F5 для виконання цього коду, і вікно вискочить, перейдіть до певної папки та виберіть файли csv, які ви хочете імпортувати в Excel, див.

doc імпорт csv на аркуш 1

4. А потім клацніть відкритий , вибрані файли csv були імпортовані як окремі аркуші до нової книги.

5. Нарешті, ви можете зберегти нову книгу, як вам потрібно.


Якщо у вас є Kutools для Excel, з його потужним інструментом-Поєднувати, Ви можете швидко об’єднати або імпортувати кілька файлів CSV в один робочий аркуш або кілька відокремлених аркушів, як вам потрібно.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Будь ласка, натисніть Kutools Plus > Поєднувати, див. скріншот:

2. В Об’єднайте робочі аркуші діалогове вікно, виберіть Об’єднайте кілька аркушів із книг в одну книгу, див. скріншот:

doc імпорт csv на аркуш 6

3, в крок 2 майстра натисніть додавати > філе щоб вибрати файли csv, які ви хочете об'єднати, див. знімок екрана:

doc імпорт csv на аркуш 7

4. В вискочив відкритий діалог, виберіть (* .csv) зі спадного списку та вкажіть файли csv, які потрібно об’єднати.

doc імпорт csv на аркуш 8

5. Потім натисніть відкритий і вибрані файли csv були імпортовані в діалогове вікно, див. знімок екрана:

doc імпорт csv на аркуш 9

6, в крок 3, будь ласка, виконайте такі операції:

(1.) Перевірка Перший рядок кожного аркуша (коментарі) від Вставте інформацію про робочий аркуш У цьому розділі вся інформація про файли CSV буде вставлена ​​в комбіновані аркуші як коментарі;

(2.) Ви можете перейменовувати файли csv, як вам потрібно;

(3.) Ви можете пропустити порожні файли CSV під час підрахунку порожнього файлу CSV.

doc імпорт csv на аркуш 10

7. Потім натисніть обробка після завершення комбінування ви можете вказати назву фільтру та місце розташування для вашої нової комбінованої книги. Дивіться знімок екрана:

doc імпорт csv на аркуш 11

8. Потім натисніть зберегти , у спливаючому вікні підказки ви можете відкрити новий файл, клацнувши Так, і закрийте його, натиснувши Немає, див. скріншот:

doc імпорт csv на аркуш 12

9. І тоді ви можете зберегти цей сценарій чи ні, як вам подобається. Дивіться знімок екрана:

doc імпорт csv на аркуш 13

10. Нарешті, вибрані вами файли csv було імпортовано до нової книги з окремим аркушем, див. Знімок екрана:

doc імпорт csv на аркуш 14

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

У певних випадках вам може знадобитися розділити книгу на окремі файли csv, утиліта Kutools for Excel розділеної книги може закінчити цю роботу швидко і легко.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Клацання Kutools Plus > робочий зошит > Роздільна робоча книга, див. скріншот:

2. В Роздільна робоча книга діалогове вікно:

(1.) Перевірте робочі аркуші, які ви хочете розділити;

(2.) І перевірити Вкажіть збереженняформат, потім виберіть формат файлу, який потрібно зберегти;

(3.) Потім натисніть розщеплений і вкажіть папку для розміщення відокремлених файлів.

doc імпорт csv на аркуш 3

3. А потім клацніть OK щоб розпочати розбиття, книга буде розділена на окремі файли csv, які вам потрібні.

doc імпорт csv на аркуш 4

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (6)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Дякую за код для об'єднання файлів. Однак я хочу мати декілька файлів у книзі, з якою я зараз працюю, а не код для створення нової книги. Як мені цього досягти?
Цей коментар був мінімізований модератором на сайті
Дякуємо, що поділилися цим кодом. Це саме те, що я шукав. На жаль, він працює не так добре, як я сподівався. Я отримую повідомлення про помилку щоразу, коли виконується код. ПОМИЛКА: "Ім'я вже зайнято. Спробуйте інше." Примітки: - Я намагаюся об'єднати чотири файли csv. - Усі файли csv мають однакову назву "ім'я_файлу.csv, ім'я_файлу(1).csv тощо..." Код об'єднує перші два файли csv в одну книгу і третій файл у власну книгу. Четвертий файл ніколи не мав шансів через помилку. Якщо у когось є думки щодо того, як вирішити цю проблему, я буду дуже вдячний за ваш відгук. Заздалегідь дякую всім за ваш час. З повагою, Андрій
Цей коментар був мінімізований модератором на сайті
Дякую! Код був дуже корисним
Цей коментар був мінімізований модератором на сайті
Дякую . Дуже зручно
Цей коментар був мінімізований модератором на сайті
Дякую. Код працює добре
Цей коментар був мінімізований модератором на сайті
Привіт, цей макрос vba чудовий, але я хочу, щоб він запускався натисканням кнопки на іншій книзі, як я можу це зробити?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0  Персонажі
Рекомендовані місця