Please Enable JavaScript!
Gon[ Enable JavaScript ]

반응형

엑셀(Excel) VBA – Application.Version 개체로 엑셀 버전과 사용언어 알아보기

 

환경 : Microsoft Excel 2010

 

Application 개체의 속성값으로 다양한 정보를 알아올수가 있습니다. 그중에서 Version 으로 엑셀의 현재 버전과 Application.LanguageSettings 으로 사용언어를 알아 보겠습니다

 

먼저 Application.Version 으로 값을 가져오게 되면 아래 값중 하나가 됩니다. 오른쪽에 있는 값이 Application.Version 이죠.

 

Excel 97 = 8

Excel 2000 = 9

Excel 2002 = 10

Excel 2003 = 11

Excel 2007 = 12

Excel 2010 = 14

Excel 2013 = 15

 

이것을 기반으로 Select Case 문을 이용해서 버전명을 추출하였습니다. 문자열 값이기 때문에 Val() 을 사용해 Double 변경합니다.

 

Function 엑셀버전()

 

    Select Case Val(Application.Version)

    Case Is <= 8

        엑셀버전 = "97 ver"

    Case 9

        엑셀버전 = "2000 ver"

    Case 10

        엑셀버전 = "2002 ver"

    Case 11

        엑셀버전 = "2003 ver"

    Case 12

        엑셀버전 = "2007 ver"

    Case 14

        엑셀버전 = "2010 ver"

    Case 15

        엑셀버전 = "2013 ver"

    Case Else

        엑셀버전 = "#버전오류"

    End Select

   

End Function

 

현재 엑셀에서 사용하는 언어의 정보를 가져오기 위해서 Application.LanguageSettings.LanguageID(msoLanguageIDUI) 로 값을 가져옵니다. 가져온 값에 대해 어떤언어가 사용되었는지 알아보기 위해서 아래 주소로 가시면 됩니다.

http://support.microsoft.com/kb/221435

 

엑셀(Excel) VBA – Application.Version 개체로 엑셀 버전과 사용언어 알아보기

 

Function 사용언어()

 

    Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)

        Case 1031: 사용언어 = "Run code for German"

        Case 1034: 사용언어 = "Run code for Spanish"

        Case 1036: 사용언어 = "Run code for French"

        Case 1043: 사용언어 = "Run code for Dutch"

        Case 1043: 사용언어 = "Run code for Dutch"

        Case 1049: 사용언어 = "Run code for Russian"

        Case 1042: 사용언어 = "Run code for Korea"

        Case Else: 사용언어 = "Run code for English US(default 1033)"

    End Select

 

End Function

 

두개의 함수를 실행한 결과입니다. 당연한 결과지만 엑셀 2010 과 사용언어가 한글이네요

엑셀(Excel) VBA – Application.Version 개체로 엑셀 버전과 사용언어 알아보기

반응형
Posted by 녹두장군

댓글을 달아 주세요