[Office VBA] Excel VBA - Registry 데이터 가공하기

[Office VBA] Excel VBA - Registry 데이터 가공하기

 

이번에 소개할 것은 Microsoft Office Excel(이하 마이크로소프트 오피스 엑셀)로 Registry(레지스트리)를 접근하는 방법에 대해서 소개하고자 합니다.

먼저 아래에서 소개하고 있는 레지스트리가 무엇인지 간단하게 소개합니다.

 

---

1. 윈도우에서의 레지스트리

 

 

그림 1-1) Microsoft Windows 7 / 레지스트리

 

위의 내용을 오피스 VBA(이하 MS Office Excel for Visual Basic Application)으로 읽어오는 방법에 대해서 소개하고자 합니다.

아래의 코드처럼 작성하면 읽어들일 수 있습니다.

 

---

2. 구현하기

 

Option Explicit

Sub Reg_Read_Example()

    Dim ShellWinscript As Object
    Dim RegRoot As String
    Dim RegVal As String
   
    RegRoot = "HKEY_CURRENT_USER\Software\Microsoft\Windows"
    Set ShellWinscript = CreateObject("WScript.Shell")
   
    RegVal = "찾을 수 없습니다."
    On Error Resume Next
    RegVal = ShellWinscript.RegRead(RegRoot)
   

On Error Resume Next    
    If RegVal = "찾을 수 없습니다." Then
        MsgBox "키를 찾을 수 없습니다."
    Else
        MsgBox RegVal
    End If

End sub

 

그림 1-2) 슈도코드(Pseudocode)