안녕하세요 오랫만에 방문하여 질문을 드리네요.

잘 계시죠?? ^^

문의드립니다~ _DB에서 원하는 목록만 불러오기(고급필터)

2010.03.22 10:55:05

위의 질문이 제가 드릴 내용과 똑같은 질문이네요.

잘 보았구요. 저도 이미 비슷하게 작성을 하였는데 한가지 문제가 있어요.

필터를 통해 원하는 데이터를 DB로 부터 가져오려고 작성을 하였는데 필터 조건에 따라 필터된 데이터가 없는 경우가 있습니다.

이럴 경우 아별님의 코드는 에러가 나고 저는 필터가 풀려서 필터링 안된 데이터가 조회되고 있습니다.

해결책이 무엇일까요?

고견을 부탁드립니다.

엑셀대단해 배상.

------------------------------

참고로 제가 작성한 일부 코드입니다.

' ### 테이블명과 쿼리 문자열을 주면 그 테이블 시트에서 조건에 따라 각 컬럼을 필터링하여 그 결과를 배열에 전체 Row를 저장하는 기능(Function)

Function Data_Query(ByVal tbl_Name As String, ByVal Query_Str As String)

    Dim MyObj As Variant

    Dim m As Integer

    Dim TRng As Range

    ' ## Query String을 Parsing하여 Col과 조건문자열의 갯수를 파악하여 QueryParsing을 ReDim하고

    ' ## Col과 조건문자열을 각각 QueryParsing 배열에 저장한다.

    ' ## Query 문 예제 : "[A]=[B],[C]=[D]" 조건문자열에는 문자면 ''로 묶고 숫자면 그대로 숫자를 입력한다. = 은 안 넣어도 무방함

    ' ## Query 문자열 내에 " 가 있으면 ' 로 변경. 조건 문자열로 묶을 경우 " 는 중복이 일어나기 때문임

    Query_Str = WorksheetFunction.Substitute(Query_Str, Chr(34), "'")

    QueryParsing = Parse_Str(Query_Str) '// 조건문을 파싱하는 Function

    ' ## 지정한 테이블 시트의 Data 영역과 Col 영역을 설정

    Set AllRng = Worksheets(tbl_Name).UsedRange

    Set ColRng = Worksheets(tbl_Name).Range(Worksheets(tbl_Name).Cells(1, 1), Worksheets(tbl_Name).Cells(1, AllRng.Columns.Count))

    AllRng.AutoFilter

    For n = 1 To AllRng.Columns.Count               '// AllRng의 헤더영역을 반복하고 파싱한 배열을 반복해서

        For m = 1 To UBound(QueryParsing, 1)        '// 컬럼명이 일치하고 조건문이 비어있지 않을 경우 필터링을 설정하는 기능

            If QueryParsing(m, 1) = AllRng.Cells(1, n) And QueryParsing(m, 2) <> "" Then

                AllRng.AutoFilter Field:=n, Criteria1:=QueryParsing(m, 2)

            End If

        Next

    Next

    Set DataRng = AllRng.Offset(1).Resize(AllRng.Rows.Count - 1)            '// 헤더 로우를 제외시킴

    Worksheets("Temp_Save").UsedRange.Clear

    Set TRng = Worksheets("Temp_Save").Cells(1, 1).End(3)(1)                 '// Temp_Save 시트에 DataRng의 데이터를 저장할 임시 영역을 설정함

    DataRng.Copy TRng                                                       '// DataRng의 데이터를 임시영역인 TRng로 이동 (즉, Temp_Save 시트에 쓰기가 됨)

    Set DataRng = Worksheets("Temp_Save").Range("A1").CurrentRegion          '// Temp_Save 시트에 스여진 데이터를 다시 DataRng로 읽어들임

'## 여기도 문제인데요 필터링한 범위를 바로 리턴하면 필터링된 데이터가 풀려서 전 데이터 범위가 넘어가는 현상이 발생하여 어쩔 수 없이 임시저장시트(Worksheets("Temp_Save"))를 지정하여 한번 스기를 한 후에 다시 그 영역을 설정하여 리턴하고 있습니다. ==> 뭔가 잘못한 부분이 있는 것 같아요.

' ## 그리고 이 경우 위에 말한 것 처럼 필터링한 데이터가 없는 경우 (조건 자체가 그런 것임)에는 필터링 안된 전 데이터가 리턴된답니다.

    AllRng.AutoFilter                                                       '// Autofiltering을 해제 (토글방식)

    Data_Query = DataRng

End Function