Импортировать определенные строки из текстового файла в электронную таблицу Excel с помощью VBA

Я пытаюсь настроить макрос, который будет импортировать определенные строки из текстового файла в электронную таблицу Excel. В настоящее время я использую функцию instr для определения определенного слова, а затем прочитайте, сколько букв мне нужно импортировать данные в ячейки.

Причина, по которой я делаю это, связана с тем, что файл имеет более 3500 строк и не имеет разделителей или разделов запятой в любом смысле. Некоторые данные одинаковы, и я сталкиваюсь с проблемами с вышеупомянутой тактикой.

Мне нужна помощь в том, как импортировать только 20 конкретных строк в электронную таблицу (несколько листов будут использоваться, но могут повторно использовать этот код), используя технику, как я упоминал ранее, поэтому я могу решить, где ее чтение.

Благодаря!

Это то, что я использую постоянно. Просто замените местоположение файла на свой текстовый файл, и этот маленький щелчок будет читать его по строкам. Затем вы можете бросить логику на одну строку и решить, что с ней делать. Это хорошее решение, когда вы имеете дело с данными, которые операторы регулярных выражений не могут обрабатывать точно.

Sub LoadSettings() Dim fso As Scripting.FileSystemObject Dim F As File Dim F2 As TextStream Dim TS As TextStream Dim lngCount As Long Set fso = New Scripting.FileSystemObject fileloc = "Whereyourtextfileislocated" Set F = fso.GetFile(fileloc) Set TS = F.OpenAsTextStream(1, -2) S = "" Do RptText = TS.ReadLine if rpttext = whatever criteria, or even if instr(rpttext,"whateveryouwant") >0 then do something with rpttext end if Loop End Sub 
Interesting Posts

Использование шаблона Regex для копирования и переименования листа Excel с помощью VBA

Прокрутка кода для нескольких наборов данных – остановка при обнаружении пустой ячейки

Интеграция Python excel, ошибка #VALUE

Пытаясь использовать VBA для фильтрации моей сводной таблицы на основе значений года и периода в ячейках D2 и E2

Использование vba для автоматизации документа Microsoft Word с данными, импортированными из листа Excel, с использованием переменной для фильтрации того, какие данные фактически вставляются

C #: мой метод сортировки / класс печати не печатает первую запись

Нужна помощь, идущая из формул Excel Array в SQL Join заявления

Любые ссылки / руководства по SQL в EXCEL с Microsoft OLE DB Provider для Jet 4.0?

Загрузка дат из текстового файла в EPPLUS

Excel – подсчет уникальных значений, соответствующих ID, оптимизированных для 100 000+ случаев

Создание нормально распределенного списка случайных чисел между двумя значениями в Excel

Excel Найти, если значение находится в пределах интервала и категории интервалов возврата

Использование INDEX MATCH для поиска абсолютного ближайшего значения

Завершить верхнюю строку office-js

Я получаю исключение нулевой ссылки при попытке проверить, нет ли значения ячейки excel

Давайте будем гением компьютера.