Excelファイルフルパス取得の関数

Function XLSFileOpen()

On Error GoTo エラー

Dim objXLS As New Excel.Application
Dim varGetFile As Variant

varGetFile = objXLS.GetOpenFilename("Excelファイル (*.xls), *.xls") 'エクセル以外のファイルを選択したいときはここを修正してください
If varGetFile = False Then
End
End If

XLSFileOpen = varGetFile
Set objXLS = Nothing

Exit Function

エラー:

MsgBox Error & vbNewLine & Err.Number & vbNewLine & Err.Description, , "XLSFileOpen"
End

End Function

****************************************************************

こんな感じで使えます

Private Sub BTM_インポートファイル指定_Click()
Me.インポートファイル = XLSFileOpen

End Sub

☆メニュー☆