- ©«¤l
- 172
- ¥DÃD
- 39
- ºëµØ
- 20
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- Microsoft Windows XP
- ³nÅ骩¥»
- Microsoft Office 2003
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-3-19
|
[¤À¨É] ¨ú±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 |
|