Excel vba 텍스트 파일의 행 선택

Question

VBA 매크로를 사용하여 큰 텍스트 파일을 Excel 시트에 여는 중입니다. 그러나 필자의 요구 사항은 특정 열 값과 일치하는 Excel 시트에 몇 개의 특정 행을 가져 오는 것입니다. 예를 들어,

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

그래서, 나는 나이 = 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

외부 데이터 가져 오기> 다른 소스의 가져 오기>를 사용하여 데이터를 내보낼 수 있습니다. 여기에서 텍스트 파일을 소스로 설정하는 데 몇 가지 작업을 더해야하지만 한 번 완료하면 연결로 추가 할 수 있습니다. 스프레드 시트에 채우기 전에 필터가 포함됩니다. 여기에 설정하는 방법에 대해 자세히 알아볼 수 있습니다. About using Microsoft Query to retrieve external data