VBAでOSのバージョンを取得する方法

ページコンテンツ

どうも、takaです、今回は【VBAでOSのバージョンを取得する方法】についてご紹介します(^.^)

会社などで複数のパソコンを使用している環境ではOSの混在もあるかと思います。

なのでその時にOSによってシステムの仕様を変更する場面などが出てくるかもしれません。

そのようなときに使えるかと思います(^.^)

OSの情報を取得するには【Applicationオブジェクト】の【OperatingSystemプロパティ】を使用します。

OperatingSystemプロパティの引数は以下の通りです。

Windows7の64ビットならWindows (64-bit) NT 6.01が返されます。

Windows10は00が返されるとの事ですが、6.02が返されるなど情報が混在しており何とも言えません。ちなみに私のPCではWindows (64-bit) NT.00が表示されました(;´･ω･)

自身のOSのバージョンを取得するコードです(^^)

Sub sample()

    Dim osname As String
    osname = Application.OperatingSystem
    MsgBox "OS名：" & osname


End Sub

Sub sample()

Dim osname As String

osname = Application.OperatingSystem

MsgBox "OS名：" & osname

End Sub

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪

Twitterフォロー