The following two tabs change content below.




taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪



最新記事 by taka (全て見る)
- 『雑記』最近の私の話~ - 2019年9月26日
- 【動画】自作パソコン構成変更!ケースをNZXT H500に交換しました! - 2019年6月5日
- VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
- 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
- VBA 日付で令和を簡単に判定してみよう - 2019年5月7日
どうも、taka(@takabou63)です(^^)/
今回は【VBAでOSのバージョンを取得する方法】についてご紹介します(^.^)
会社などで複数のパソコンを使用している環境ではOSの混在もあるかと思います。
なのでその時にOSによってシステムの仕様を変更する場面などが出てくるかもしれません。そのようなときに使えるかと思います(^.^)
VBAでOSのバージョンを取得
VBAでOSのバージョン情報を取得するには【Applicationオブジェクト】の【OperatingSystemプロパティ】を使用します。
OperatingSystemプロパティの引数
OperatingSystemプロパティの引数は以下の通りです。
Windowsバージョン | 値 |
---|---|
Windows 10 | Windows (64-bit) NT.00 |
Windows 8:8.1 | 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 |
Windows7の64ビットならWindows (64-bit) NT 6.01が返されます。
Windows10は00が返されるとの事ですが、6.02が返されるなど情報が混在しており何とも言えません。ちなみに私のPC(Windows10(64bit) 自作PC)ではWindows (32-bit) NT10.00が表示されました(;´・ω・)残念ながらWindows10以降では当てにならないかもしれません(;^ω^)
OSのバージョンを取得するサンプルコード
自身のOSのバージョンを取得するコードです(^^)
Sub sample() Dim osname As String osname = Application.OperatingSystem MsgBox "OS名:" & osname End Sub
フォロー・チャンネル登録お願いします
VBA以外についてのブログはこちら↓
https://yb-log.com/■Twitterフォロー
Follow @taka_pc1027■YouTubeチャンネル登録
コメントを残す