excel - 参照ボタンを作成して *.xls ファイルを開いて読み取る方法

Question

ほぼ 1 日かけて Google で検索しましたが、探しているものが実際には見つかりません。

Excelシートにボタンを作成しました。このボタンで、ブラウザ ダイアログから .xls ファイルを開くことができます。以下のプログラム コードを見つけることができましたが、新しいワークブックで .xls が開きます。

ボタンと同じシートの特定のセルで .xls ファイルを開く必要があります。たとえば、シート 1 のセル B8 にボタンを配置しました。同じシート1のセルB9で、その下の.xlsファイルを開きたい

もう1つ、ボタンを押して「キャンセル」を押したときに「FALSE」を印刷したくありません。

これが私が見つけたコードです：

Sub Knapp1_Klicka()

    objFile = Application.GetOpenFilename(fileFilter:="All Files (* . *) , * . * ")   

    Set curSheet = ActiveSheet
    Set mWorkbook = Workbooks.Open(objFile)
    curSheet.Activate

    Call someFunction(curSheet, mWorkbook)
End Sub

Sub someFunction(targetSheet, srcWorkbook)

    numSheets = srcWorkbook.Sheets.Count
    For i = 1 To numSheets
        targetSheet.Cells(i, 1) = srcWorkbook.Sheets(i).Name
    Next i
End Sub