Excel vba выбрать строки из текстового файла

Question

Я открываю большой текстовый файл на листе Excel с помощью макроса VBA. Однако мое требование состоит в том, чтобы импортировать только несколько определенных строк в лист excel, который соответствует конкретным значениям столбца. В качестве примера,

Name  Age 
-------------- 
A1  20 
A2  21 
A3  20 
A4  21 
A5  22 
A6  22 

Итак, я хотел бы импортировать с критериями Age = 20 или 21. Однако, я не хочу использовать автофильтр. Я просто хотел, чтобы vba выбирала строки, соответствующие моему фильтру, и отображала их и игнорировала все остальные. Я использовал автофильтр, но он загружает все данные и показывает только интересующие меня строки. код, который я написал

With ActiveSheet.QueryTables.Add(Connection:= _ 
    "TEXT;" + full_path, Destination:=Range(_ 
    "A1")) 
    .Name = file_name 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    .RefreshStyle = xlInsertDeleteCells 
    .SavePassword = False 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .RefreshPeriod = 0 
    .TextFilePromptOnRefresh = False 
    .TextFilePlatform = 437 
    .TextFileStartRow = 1 
    .TextFileParseType = xlDelimited 
    .TextFileTextQualifier = xlTextQualifierDoubleQuote 
    .TextFileConsecutiveDelimiter = False 
    .TextFileTabDelimiter = True 
    .TextFileSemicolonDelimiter = False 
    .TextFileCommaDelimiter = False 
    .TextFileSpaceDelimiter = False 
    .TextFileColumnDataTypes = Array(1) 
    .TextFileTrailingMinusNumbers = True 
    .Refresh BackgroundQuery:=False 
    End With 
    Range("A1").Select 

Можете ли вы помочь?

Answer 1

вы можете экспортировать данные с помощью опции получения внешних данных> из других источников> из запроса microsoft, где вам нужно сделать еще несколько действий для настройки вашего текстового файла в качестве источника, но после его завершения вы можете добавить его как соединение, которое включает фильтры перед заселением в электронную таблицу. вы можете узнать больше о том, как его настроить здесь: About using Microsoft Query to retrieve external data