Option Explicit

'アクティブセルにファイルパスを入力するマクロ
Sub InputFilePath_ActiveCell()
    Dim v As Variant
    v = Application.GetOpenFilename
    If VarType(v) = vbBoolean Then Exit Sub
    ActiveCell.Value = v
End Sub

'アクティブセルから下方向に複数ファイルパスを入力するマクロ
Sub InputFilePath_Down()
    Dim v As Variant
    Dim i As Integer, j As Integer
    v = Application.GetOpenFilename(MultiSelect:=True)
    If VarType(v) = vbBoolean Then Exit Sub
    j = 1 - LBound(v)
    For i = LBound(v) To UBound(v)
        ActiveCell.Cells(i + j, 1).Value = v(i)
    Next
    ActiveCell.Resize(UBound(v) + j, 1).Select
End Sub

'アクティブセルから右方向に複数ファイルパスを入力するマクロ
Sub InputFilePath_ToRight()
    Dim v As Variant
    v = Application.GetOpenFilename(MultiSelect:=True)
    If VarType(v) = vbBoolean Then Exit Sub
    ActiveCell.Resize(1, UBound(v) + LBound(v) - 1).Select
    Selection.Value = v
End Sub

'モジュールシート上でファイルパスを入力するマクロ
Sub InputFilePath_Sendkeys()
    Dim v As Variant
    Dim s As String
    Dim i As Integer
    v = Application.GetOpenFilename
    If VarType(v) = vbBoolean Then Exit Sub
    For i = 1 To Len(v)
        If InStr(1, Mid$(v, i, 1), "{}()[]+^%~", 0) > 0 Then
            s = s & "{" & Mid$(v, i, 1) & "}"
        Else
            s = s & Mid$(v, i, 1)
        End If
    Next
    Application.SendKeys s
End Sub