ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] ¨ú±oExcel¬ÛÃö¸ê°T(ª©¥»¡B°O¾ÐÅé...)

[¤À¨É] ¨ú±oExcel¬ÛÃö¸ê°T(ª©¥»¡B°O¾ÐÅé...)

Sub Excel_Get_info()
    'Excel ª©¥»(¥N¸¹)
    Select Case Application.VERSION
        Case "5.0": MsgBox "Excel 5.0"
        Case "7.0": MsgBox "Excel 95"
        Case "8.0": MsgBox "Excel 97"
        Case "9.0": MsgBox "Excel 2000"
        Case "10.0": MsgBox "Excel 2002"
        Case "11.0": MsgBox "Excel 2003"
        Case "12.0": MsgBox "Excel 2007"
    End Select
   
    '¨ú±o¬¡­¶Ã¯ªº§Î¦¡ (¥HExcel2000¬°¨Ò)
    Select Case ThisWorkbook.FileFormat
        Case XlFileFormat.xlExcel5
            MsgBox "³o­Ó¬¡­¶Ã¯¬O: Excel95¬¡­¶Ã¯"
        Case XlFileFormat.xlExcel7
            MsgBox "³o­Ó¬¡­¶Ã¯¬O: Excel97¬¡­¶Ã¯"
        Case XlFileFormat.xlWorkbookNormal
            MsgBox "³o­Ó¬¡­¶Ã¯¬O: Excel2000¬¡­¶Ã¯"
        Case Else
            MsgBox "³o­Ó¬¡­¶Ã¯¬O: Excel95/97/2000¥H¥~¬¡­¶Ã¯"
    End Select
   
    'Excel°O¾ÐÅé
    MsgBox "Microsoft Excel ³Ñ¾l°O¾ÐÅé¼Æ¶q" & Application.MemoryFree '(³æ¦ì¬°bytes)
    MsgBox "Microsoft Excel Á`¥i¥Î°O¾ÐÅé¼Æ¶q" & Application.MemoryTotal '(³æ¦ì¬°bytes)
End Sub

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD