
' ■コンピュータ名取得API
Private Declare Function GetComputerName Lib "KERNEL32.dll" Alias "GetComputerNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long
' ■コンピュータ名取得API
Private Declare PtrSafe Function GetComputerName Lib "KERNEL32.dll" Alias "GetComputerNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long
#If VBA7 Then
    ' VBA7以降で実行されている⇒Excel(Office)のバージョンが2010以降である
    #If Win64 Then
        ' 64ビット版Excel(Office)で実行されている ※①
    #Else
        ' 32ビット版Excel(Office)で実行されている ※②
    #End If
#Else
    ' VBA6以前で実行されている⇒Excel(Office)のバージョンが2007以前である ※③
#End If
#If Win64 Then
#If VBA7 Then