【Excel】ファイルパス名やコンピュータ情報を取得するExcelVBA

Sub GetPcName()
    'WshNetworkオブジェクトを生成
    Dim WshNetworkObj As Object
    Set WshNetworkObj = CreateObject("WScript.Network")
    
    'コンピュータ名を取得
    Dim comname As String
    comname = WshNetworkObj.ComputerName
    '例：コンピューター名をシート名（MST）の セルＢ４に入れる
    Sheets("MST").Cells(4, 2) = comname    
End Sub

Sub GetUserName()
    'WshNetworkオブジェクトを生成
    Dim WshNetworkObj As Object
    Set WshNetworkObj = CreateObject("WScript.Network")
   
    'ユーザー名を取得
    Dim username As String
    username = WshNetworkObj.UserName
    '例：ユーザー名をシート名（MST）の セルＢ４に入れる
    Sheets("MST").Cells(4, 2) = username          
End Sub

Sub GetFilePassName()
    'ThisWorkbook.FullName 呼び出したExcelシートのファイルパス名を取得する
    Dim wk_nm1 As String, wk_nm2 As String
    wk_nm1 = Trim(ThisWorkbook.FullName)
    'ファイルパス名をシート名（MST）の セルＢ１に入れる
    Sheets("MST").Cells(1, 2) = wk_nm1

    'InStrRev(wk_nm1, "\"))　パス名の文字列を後ろから検索し"\"が出たら、前から"\"までの文字数を返す
    'InStr(wk_nm1, "\"))　パス名の文字列を前から検索し"\"が出たら　前から"\"までの文字数を返す
    wk_nm2 = Right(wk_nm1, Len(wk_nm1) - InStrRev(wk_nm1, "\"))

    'ファイル名をシート名（MST）の セルＢ２に入れる
    'ファイル名でつけた西暦４桁をシート名（MST）の セルＢ３に入れる
    'ファイル名でつけた月２桁をシート名（MST）の セルＣ３に入れる
    'ファイル名でつけた日２桁をシート名（MST）の セルＤ３に入れる
    Sheets("MST").Cells(2, 2) = wk_nm2
    Sheets("MST").Cells(3, 2) = Left(wk_nm2, 4)    '''年
    Sheets("MST").Cells(3, 3) = Mid(wk_nm2, 5, 2)  '''月
    Sheets("MST").Cells(3, 4) = Mid(wk_nm2, 7, 2)  '''日
    
    'ファイル名でつけた場名２文字をシート名（MST）の セルＥ３に入れる
    Dim MyArray As Variant, i As Integer
    MyArray = Array("中山", "東京", "福島", "新潟", "京都", "阪神", "中京", "小倉", "札幌", "函館")
    Sheets("MST").Cells(3, 5) = ""
    For i = 0 To UBound(MyArray)
        If InStrRev(wk_nm2, MyArray(i)) > 0 Then
            Sheets("MST").Cells(3, 5) = MyArray(i)
            Exit For
        End If
    Next
End Sub