ﾕｰｻﾞのﾌｧｲﾙ指定

Dim TargetFilePath As Variant
    
'「ﾌｧｲﾙを開く」ﾀﾞｲｱﾛｸﾞの表示

'ﾊﾟｽ名を取得するだけでﾌｧｲﾙは開かれない
TargetFilePath = Application.GetOpenFilename _
               ("ﾌｧｲﾙﾌｨﾙﾀ文字列, ﾜｲﾙﾄﾞｶｰﾄﾞ")

'Ex.

'TargetFilePath = Application.GetOpenFilename _

'("Excelﾌｧｲﾙ (*.xl*;*.xlsx;*.xlsm),*.xl*;*.xlsx;*.xlsm")
   
If TargetFilePath <> False Then
    '「ﾌｧｲﾙを開く」ﾀﾞｲｱﾛｸﾞでｷｬﾝｾﾙした場合は

    '「False」が返される。

 

    '-ﾌｧｲﾙ名が指定された場合の処理（開くなど）

 

End if