返回列表下一主題上一主題發帖

[分享] 取得Excel相關資訊(版本、記憶體...)

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-5-3 20:42 | 只看該作者

[分享] 取得Excel相關資訊(版本、記憶體...)

Sub Excel_Get_info()
'Excel 版本(代號)
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

'取得活頁簿的形式 (以Excel2000為例)
Select Case ThisWorkbook.FileFormat
      Case XlFileFormat.xlExcel5
         MsgBox "這個活頁簿是: Excel95活頁簿"
      Case XlFileFormat.xlExcel7
         MsgBox "這個活頁簿是: Excel97活頁簿"
      Case XlFileFormat.xlWorkbookNormal
         MsgBox "這個活頁簿是: Excel2000活頁簿"
      Case Else
         MsgBox "這個活頁簿是: Excel95/97/2000以外活頁簿"
End Select

'Excel記憶體
MsgBox "Microsoft Excel 剩餘記憶體數量" & Application.MemoryFree '(單位為bytes)
MsgBox "Microsoft Excel 總可用記憶體數量" & Application.MemoryTotal '(單位為bytes)
End Sub

樓主熱帖

靜思自在 : 盡多少本份，就得多少本事。

返回列表下一主題上一主題