関数・メソッド

WindowsOSのバージョンを取得する【OperatingSystemプロパティ】【ExcelVBA】

2021.03.19

構文

Object.OperatingSystem

OperatingSystemプロパティはWindowsOSのバージョンを取得します。
取得結果は以下です。

WindowsOS 返り値
Windows 10  Windows (32-bit) NT 10.00
Windows 8.1  Windows (32-bit) NT 6.02
Windows 8  Windows (32-bit) NT 6.02
Windows 7  Windows (32-bit) NT 6.01
Windows Vista  Windows (32-bit) NT 6.00
Windows XP  Windows (32-bit) NT 5.01
Windows 2000  Windows (32-bit) NT 5.00
Windows Me  Windows (32-bit) 4.90
Windows 98  Windows (32-bit) 4.10
Windows 95  Windows (32-bit) 4.00

OperatingSystemプロパティのコードサンプル

Public Sub sample_Version()

    '■Windows10 32bitの場合
    Debug.Print Application.OperatingSystem　　　' Windows (32-bit) NT 10.00
    
End Sub

[/vbnet]

注意点

  • 64bitOSの場合は、 (32-bit) が(64-bit)と表示されます。
    が、この32-bit/64-bitはOSの種類ではなくインストールしたOfficeで判定されます。
    ＝Office32bit版をインストールしたら(32-bit)が返り値です。
  • WindowsOSのVerによってコードを書き替える場合は、#IF Then #Elseディレクティブを使用します。

関連記事

共有のエクセルファイルを誰が開いたか記録する【ExcelVBA】
環境変数の値を取得する【Environ関数】【ExcelVBA】
Excelのバージョンを取得する【Versionプロパティ】【ExcelVBA】

コメント