コンピュータ名の取得 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサードリンク



ExcelシートのVBAコード

Option Explicit

'コンピュータ名を取得する
Private Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'コンピュータ名を取得する
Function ExGetComputerName() As String
    Dim Buf As String
    Dim lRet As Long
    Dim ln As Long
    
    '空文字列の作成
    Buf = Space$(255)
    lRet = GetComputerName(Buf, 255)
    'Null位置を調べる
    ln = InStr(1, Buf, vbNullChar)
    If ln <> 0 Then
        'NULLからの取り出し
        ExGetComputerName = Left(Buf, ln - 1)
    Else
        ExGetComputerName = Buf
    End If
End Function

Private Sub CommandButton1_Click()
    CommandButton1.Caption = ExGetComputerName
End Sub

Excel Tipsメニューへ

スポンサードリンク





■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved