Sub get_from_another_book()

    'ファイルを開くダイアログ
    tmp = Application.GetOpenFilename("エクセルブック(*.xls),*.xls")
    If tmp = False Then End

    'targetfileに開いたファイルをセット
    Set targetfile = Application.Workbooks.Open(tmp)

    'ここに処理内容を記述（下行はサンプル）
    vl = targetfile.Worksheets(1).Cells(1, 1).Value
    
    'アラートを出さずに開いたファイルを閉じる
    targetfile.Close SaveChanges:=False

End Sub