' ■コンピュータ名取得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