WindowsのPC名を環境変数から取得する
COMPUTERNAME環境変数を読み、PC名を表示します。ネットワークへ送信する処理はありません。
実行前に確認
- Windows向けです。会社の命名規則や個人情報を含む場合があるため、画面やログを外部公開する前に確認してください。
- 公開前にコードと公式仕様を照合していますが、Excel実機での動作は未確認です。コピーしたブックで試してください。
1サンプルコード
Option Explicit
Sub PracticeAdvanced8016()
Dim computerName As String
computerName = Environ$("COMPUTERNAME")
If Len(computerName) = 0 Then computerName = "取得できません"
MsgBox computerName
End Sub図で見る操作の流れ
イメージ図この例の準備と結果を示す模式図です。
準備
練習用ブックの標準モジュールにコードを配置
操作
COMPUTERNAME環境変数を読み、PC名を表示します。ネットワークへ送信する処理はありません。
結果
PC名がメッセージに表示されます。
Windows向けです。会社の命名規則や個人情報を含む場合があるため、画面やログを外部公開する前に確認してください。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
練習用のマクロ有効ブックを開き、Alt＋F11→［挿入］→［標準モジュール］へコードを貼り付けます。
- 2
PracticeAdvanced8016を実行します。
- 3
COMPUTERNAME環境変数を読み、PC名を表示します。ネットワークへ送信する処理はありません。
- 4
PC名がメッセージに表示されます。