Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как импортировать текстовые файлы в Excel в виде отдельных листов с оригинальными именами в Excel?

Вы когда-нибудь пытались импортировать текстовые файлы в Excel в виде отдельных листов с оригинальными именами файлов в Excel? В этой статье я представляю код VBA для быстрого импорта текстовых файлов из одной папки в Excel с именами.
doc импортировать текст в качестве исходного имени 1

Импорт текстовых файлов в Excel с именами

Быстрое разделение нескольких листов на отдельную книгу в Excel

В Microsoft Excel вы можете сохранить или разделить рабочий лист из одной книги в виде нового файла Excel, скопировав и вставив этот рабочий лист в новую книгу. Это кажется затруднительным, если вы хотите разделить каждый лист / лист большой книги как отдельные файлы Excel, txt, csv, pdf. Но с Kutools for ExcelАвтора Сплит-книга утилита, вы можете быстро справиться с этим. Нажмите для бесплатной пробной версии 60!
doc split workbook 1
Kutools for Excel: с более чем 200 удобными надстройками Excel, без ограничений в 60-дни.

Импорт текстовых файлов в Excel с именами

1. Включите Excel, нажмите Alt + F11 для включения Microsoft Visual Basic для приложений окна, затем нажмите Вставить > модуль.
doc импортировать текст в качестве исходного имени 2

2. Скопируйте и вставьте код ниже модуль скрипты.

VBA: импортировать текстовые файлы с именами

Sub LoadPipeDelimitedFiles () 'UpdatebyExtendoffice20181010 Dim xStrPath As String Dim xFileDialog как FileDialog Dim xFile As String Dim xCount As Long Dim xWS как рабочий лист при ошибке GoTo ErrHandler Set xFileDialog = Application.FileDialog (msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "Выбрать папка [Kutools for Excel] «Если xFileDialog.Show = -1 Затем xStrPath = xFileDialog.SelectedItems (1) End If If xStrPath =" "Затем выйдите из Sub Application.ScreenUpdating = False xFile = Dir (xStrPath &" \ *. txt ") В то время как xFile <>" "xCount = xCount + 1 Устанавливает xWS = Таблицы (xCount) xWS.Select xWS.Name =" TEXT "& Left (xFile, Len (xFile) - 4) С 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 = Правда .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. Нажмите F5 для запуска кода, затем выберите папку, содержащую текстовые файлы, которые вы хотите импортировать в Excel, в Выберите папку Диалог.
doc импортировать текст в качестве исходного имени 3

4. Нажмите OK, текстовые файлы в папке были импортированы в Excel как один лист с их собственными именами.


Просмотр вкладок и редактирование нескольких документов Word / книг Excel как Firefox, Chrome, Internet Исследуйте 10!

Возможно, вам знакомо просматривать несколько веб-страниц в Firefox / Chrome / IE и переключаться между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word или книги Excel в одном окне Word или окне Excel и легко переключаться между ними, нажимая их вкладки.
Нажмите для бесплатной пробной версии Office Tab!

Просмотр нескольких документов Word в одном окне как Firefox

Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
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.

Be the first to comment.