이비그치면

개발자의 경우 여러 DB툴(DB Tool)들 예를들어 TOAD, 골든(Golden), 오렌지(orange)등등을
이용하여 DB의 테이블에 있는 데이타들을 직접 ACCESS한다

그러나 업무일선의 사용자들은 데이타이용에 많은 제약을 받는다

원시적으로 화면의 데이타를 다시 수작업으로 입력하거나
약간 개선된 업무환경이라 하더라도 화면의 데이타를 덤프(Dump)하여 내려서
다시 가공하여 쓰거나 개발실(또는 전산실)에 요청하여 데이타를 작성해달라고
요청하는 정도이다

실제로 윗분들에게 보고하는 많은 자료는 엑셀로 데이타를 편집,가공하여
제출하는 일들이 빈번하기 때문에 이는 업무담당자에게 상당한 업무로드가
되고있다

사용자가 약간의 엑셀 VBA지식을 갖고 있다면 아래의 VBA를 이용하여
원하는 업무데이타를 데이타베이스에서 가져와 사용할 수 있고 어떤 경우
이것은 획기적인 업무생산성으로  연결될수도 있다

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

conn.Open "Driver={Microsoft ODBC for Oracle};" & _
"Server=svr_name;" & _      'svr_name에 해당DB의 서버이름으로
"Uid=xxx;" & _                   'xxx에 접속 사용자 ID
"Pwd=yyy;"                       'yyy에 접속 패스워드

Set rng = Selection
For Each c In rng
    Sql = "select  sum(amount)  from abc_tbl " & _
      "where abc_date = '" & c.Cells(1, 2).Value & _
      "' and abc_id = '" & c.Cells(1, 1).Value

    rs.Open Sql, conn

    Set fld1 = rs.Fields(0)
    Do Until rs.EOF
        c.Cells(1, 3).Value = fld1.Value
        rs.MoveNext
    Loop
    rs.Close
   
Next

Set rs = Nothing
conn.Close
Set conn = Nothing

End Sub

파일목록작성1.xlsm

위의 파일을 다운받아 열어서
Sheet2에 가서 보면 아래와 같이 보인다

F2셀에 일련번호를 입력하고 F3셀에 드라이브문자를 입력하고 실행버튼을 누른다
실행하면 위의 일련번호로 이름붙인 쉬트(여기서는 001)가 하나 새로이 생성되고
거기에 외장하드(여기서는 F)에 있는 파일들이 리스팅된다  

엑셀에서 필터를 사용하는 경우가 종종 있다
데이타 건수가 많을 때 필터를 적용하여

1) 데이타의 경우의 수를 확인할 수 있다

2)사용자가 원하는  특정 경우의 데이타만을 뽑아서 보고자 하는 경우 유용하게 
사용할 수 있다


- 필터를 적용하는 방법
   . 데이타가 있는 행의 셀중 임의의 셀 하나를 선택한다
   . 데이타 탭의 필터 아이콘을 누른다
   . 데이타 타이틀에 드롭다운 아이콘이 나타난다
   . 드롭다운아이콘을 눌러 원하는 값을 찾아 적용한다

- 필터를 해제하는방법
   . 데이타 탭의 필터 아이콘을 누른다(토글방식으로 해제와 적용이 번갈아 적용된다) 

이런 필터의 기능을 VBA에서 이용하는 방법을 소개한다

1)  중복데이타제거

Sub RemoveDupes()

Columns(1).EntireColumn.Insert '같은 데이타 제거후 결과를 넣기 위해 Column 추가
Range("B1", Range("B65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("A1"), _
Unique:=True '중복값을 제거하고 결과를 A열에 넣는다
'Columns(2).EntireColumn.Delete '원데이타열을 삭제한다

End Sub

2) 조건충족데이타 추출

Range("E1", "G12").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range(CritRng), _
CopyToRange:=Range("K1", "M1"), _
Unique:=False

End Sub


※※  코드에서  빨간색으로 되어있는 것에 주의  추출조건을 입력하는 범위는
        절대주소이어야 한다
        1행은 데이타의 타이틀과 같이 타이틀이 들어가야한다
        2행부터 추출조건 입력
        같은 라인은 AND, 다른 라인은 OR

앞의 글에 소개드린 프로그램을 혹시 보신분들중에
소스 중간중간 나와있는 이상한 표현들로 어려움을 겪으신 분들을 위해
유틸리티 하나 소개해드릴까 한다

수식(Expression)이 일반숫자, 수의 상징적인 표현(예를 들어 x, y) 그리고 연산기호(+, -등)를 이용하여 숫자해를 구하는 문제를 간결하게 표현하기 위하여 고안된 체계라면

정규식(Regular Expression)은 텍스트(문자열)의 패턴/반복형태를 표현하기 위하여 상징적인 표현(Metacharacter 예를 들어 *, ?, .)과 일반문자들(literal, normal text characters)로
구성되는 텍스트 표현형식이라고 할수있겠다

여기에서 Regular는 정규로 번역이 되어있는데  반복적인 주기를 갖고있는 어떤 규칙을 형용하기 위한 단어이다

텍스트가 어떤 규칙을 가지고 반복될때 이 텍스트를 처리하기 위해서 정규식을 이용하면
아주 간결하게 표현이 가능하고 이 때문에 많은 프로그램언어가 이를 지원하고 있다

그런데 사실 이 정규식은 처음 보게되면 좀 암호같아서 그 의미를 이해하기가 어렵다
그리고 또 정규식을 만들어서 그 결과를 확인해보기 전에는 어덯게 처리될지 짐작이
어려운 경우도 많다

다음에 소개하는 유틸리티 프로그램은 
정규식 작성과 연습, 확인 그리고 오류의 발견및 수정에 아주 유용한 툴이다

Kodos --  http://kodos.sourceforge.net/

아래 화면 실제 사용예다