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

Як імпортувати кілька текстових файлів на кілька аркушів?

Припустимо, що в папці вашого комп’ютера є кілька текстових файлів, тепер ви хочете імпортувати ці текстові файли до книги Excel і розмістити кожен текстовий файл на окремих робочих аркушах. Копіювання та вставлення кожного текстового файлу на робочий аркуш по черзі витратить багато часу. Тут я можу поговорити про деякі трюки для вирішення цієї проблеми.

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

Розділіть книгу на кілька окремих файлів text / pdf / csv / xlsx за допомогою Kutools для Excel


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

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

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

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

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

Sub CombineTextFiles()
'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 (*.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. Після вставки вищевказаного коду натисніть F5 клавішу для запуску цього коду, і у спливаючому вікні вкажіть папку, яка містить текстові файли, перейдіть до папки, щоб вибрати текстові файли, які потрібно імпортувати на робочі аркуші, див. знімок екрана:

doc імпортувати кілька текстових файлів 1

4. Потім натисніть відкритий , усі вибрані текстові файли були імпортовані до нової книги, і кожен файл, розташований на одному аркуші, окремо.

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


стрілка синя права міхур Розділіть книгу на кілька окремих файлів text / pdf / csv / xlsx за допомогою Kutools для Excel

Іноді вам може знадобитися виконати кілька протилежних операцій із вищезазначеного завдання, тобто вам потрібно розділити книгу на окремі текстові файли. Kutools для ExcelАвтора Роздільна робоча книга утиліта допоможе вам швидко та легко вирішити цю роботу.

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

після установки Kutools для Excel, будь ласка, зробіть наступне :( Безкоштовно завантажте Kutools для Excel зараз! )

1. Активуйте книгу, яку потрібно розділити, на кілька текстових файлів.

2. Клацання підприємство > робочий зошит > Роздільна робоча книга, див. скріншот:

3, в Роздільна робоча книга діалогове вікно:

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

(2.) Перевірте Вкажіть формат збереження, потім виберіть формат файлу, який потрібно зберегти, наприклад, ви можете вибрати TXT, CSV, PDF, XLSX or XLS формат файлу, як вам потрібно.

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

діалогове вікно розділеної книги надбудов 2 надбудови excel виберіть місце

4. Потім натисніть OK , і вибрані вами робочі аркуші будуть розділені та збережені у потрібній папці із необхідним форматом.

надбудови Excel окремі файли

Безкоштовно завантажте Kutools для Excel зараз!


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

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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (9)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Я використовував наступний код, але пробіл не розмежував. Перетворено Tab:=Правда, пробіл:=Правда, але це не спрацювало. Мій формат файлу Txt – ALUMINI16MAYFUT 09 05:2016:10 00 00 106.0000 106.0000 105.2000 Будь-яке рішення?
Цей коментар був мінімізований модератором на сайті
Код "Імпортувати кілька текстових файлів на окремі аркуші з кодом VBA" працює для мене, АЛЕ обрізає дані кожної клітинки на 255 символів. Я думаю, що за замовчуванням це дані клітинки GeneralFormat, але мені потрібно, щоб це був TextFormat. На жаль, я не можу зрозуміти, як налаштувати код, щоб це виправити.
Цей коментар був мінімізований модератором на сайті
Чи можна послідовно відкривати декілька текстових файлів на одному аркуші?
Цей коментар був мінімізований модератором на сайті
Дякую за цей дуже корисний код. Хоча у мене є питання. Що я можу змінити, щоб перетворити тип даних із загального в текстовий, оскільки зараз він імпортує дані лише в загальний формат.
Цей коментар був мінімізований модератором на сайті
Як змінити цей макрос, щоб відображати текстовий файл, збережений як UTF-8 або іншими словами, використовуючи Platform = 65001, дякую
Цей коментар був мінімізований модератором на сайті
Дякую за цей код, він чудово працює. Я хочу об'єднати всі вибрані аркуші в один аркуш, чи це можливо..
Цей коментар був мінімізований модератором на сайті
дякую, декілька текстових файлів для різних робочих аркушів спрацювали!
Цей коментар був мінімізований модератором на сайті
Цей код допоміг мені точно вирішити мою проблему, дякую за код.
Цей коментар був мінімізований модератором на сайті
Що мені потрібно змінити в коді, щоб він не відкривав їх у новій книзі?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця