Excel VBA String型に入ったフルパスをWorkbook型ブック名に変換したい

Question

Excel2013 VBA についての質問です。
手探りで進めている状態ですので、稚拙な質問かもしれませんがよろしくお願い致します。

Book1で
1:ダイアログボックスでBook2を開き、開いたBook2のフルパスをString型変数へ代入
2:フルパスからBook名を抽出し、Workbook型変数に代入
3:Book2に対しBook1上から操作を行う（2で用意した変数を使用する）

としたいのですが、2の段階で躓いております。

Dim OpenFileName As String
Dim List As Workbook

OpenFileName = Application.GetOpenFilename _
        (FileFilter:="Excelファイル,*.xls*")

If OpenFileName <> "False" Then
    Workbooks.Open OpenFileName
    Else
        Exit Sub
End If

Set List = Dir(OpenFileName)

とすると、型が一致しない旨のエラーが出てしまいます。
Wookbook型にフルパスは入れられないということでこの方法を取りたかったのですが、
解決策や良い方法は無いでしょうか？

Answer 1

Openの戻り値でブックのオブジェクトを受け取りましょう。

Set List = Workbooks.Open OpenFileName

Comments

[Shizuku_Miyako]

ありがとうございます。

```
Set List = Workbooks.Open(OpenFileName)
```

としたところ目的が果たせました。ttyp03さん、ありがとうございます。
長時間調べて解決できなかったので大変助かりました！

戻り値への知識や括弧がなぜ必要か等、まだ理解し切れていない部分も出てきましたが、
少しづつ咀嚼していけるよう頑張ります。

[ttyp03]

あ、失礼。
括弧必要でしたね。