때로는 형식이 내용을 규정짓기도 합니다

Step 1: 예제 데이터와 질문의 의미

아래와 같은 지역별 매출액 데이터가 있습니다.

이 데이터의 범위(B19:E29)에는 Target이라는 이름이 정의되어 있습니다.

여기서 Sales, Op.Margin, Net Income 항목에 있는 값들은 통화형 서식을 지정해 준 것입니다. 즉 실제값에 '통화형'이라는 옷을 입혀 준 것이지요. 이 데이터를 서식이 그대로 지정되어 있는 상태에서 텍스트 파일로 저장하고 싶으시다는 질문입니다. 어떻게 하면 될까요?

……………(침묵)…………………..

'복사'를 하신 다음 메모장이나 Notepad 등을 열어서 '붙여넣기'를 하시면 됩니다. 아주 간단하지요?

Step 2: 자동화하기 (CopyToNotepad)

그런데 이것도 귀찮으니까 이것을 자동화시켜 보도록 하겠습니다. 아래의 버튼을 눌러 보세요.

수작업으로 했을 때와 동일한 결과를 가져다 주지요? 코드는 아래와 같이 아주 간단합니다.

Sub CopyToNotepad()
    Dim lngX As Long

    [Target].Copy
    lngX = Shell("Notepad.exe", 1)
    Application.Wait Now + TimeValue("0:00:01")
    '''Shell이라는 못보던 것이 하나 나왔군요.
    '''이것은 실행 프로그램을 수행한 다음, 성공적으로 종료되었을 경우에는 프로그램의
    '''작업 ID를 돌려주는 함수입니다.

Shell이라는 못보던 것이 하나 나왔군요. 이것은 실행 프로그램을 수행한 다음, 성공적으로 종료되었을 경우에는 프로그램의 작업 ID를 돌려주는 함수입니다.

Shell 함수의 형식과 windowstyle 인수값은 다음과 같습니다.

Shell(pathname[,windowstyle])

    SendKeys "^v"
    '''SendKeys라는 것도 처음 보시지요? 이것은 키보드에서 입력한 것처럼 실행 창에
    '''키를 입력해 주는 Statement 입니다.
    '''붙여 넣기를 할 때 사용되는 단축키가 Ctrl + V인데 이것을 SendKeys라는 문장을
    '''사용하여 손으로 직접 입력해 준 것과 같은 효과를 얻을 수 있습니다.
    '''이것 이외에도 아래와 같이 여러 가지 키/코드 값이 있으므로 참고하시기 바랍니다.
End Sub

SendKeys라는 것도 처음 보시지요? 이것은 키보드에서 입력한 것처럼 실행 창에 키를 입력해 주는 Statement 입니다. 붙여 넣기를 할 때 사용되는 단축키가 Ctrl + V인데 이것을 SendKeys라는 문장을 사용하여 손으로 직접 입력해 준 것과 같은 효과를 얻을 수 있습니다. 이것 이외에도 아래와 같이 여러 가지 키/코드 값이 있으므로 참고하시기 바랍니다.

마무리

오늘은 여기까지…

정리 — 메모장 붙여넣기 핵심

자주 묻는 질문 (FAQ)

마치며

Shell 함수와 SendKeys 문을 함께 쓰면 외부 프로그램을 실행하고 키 입력까지 자동으로 처리할 수 있습니다.