excelブックを参照して開き、コードでブックを使用

Question

サーバー上のブックを参照するコードが必要です。ブックを開く必要があります。このブックを既存のコードで参照する必要があります。

以下のコードは、コードを使用して開いたブックとしてWb2を設定するまで機能します。

Sub openfile() 

Dim strFilePath As String 
Dim Wb1 As Workbook 
Dim Wb2 As Workbook 

Set Wb1 = ActiveWorkbook 

strFilePath = Application.GetOpenFilename 
If strFilePath = "False" Then Exit Sub 'Pressed cancel 
Workbooks.Open (strFilePath) 

Set Wb2 = strFilePath 
Wb2.Sheet3.Activate 
End Sub 

Answer 1

strFilePathは単なる文字列であり、ブックではありません。 Sheet3は（私は仮定）、ブック内のオブジェクトではなく、ブッククラスのプロパティですので、あなたの次の行があまりにもエラーが発生します

Set Wb2 = Workbooks.Open(strFilePath) 

を：あなたは.Open方法からワークブックオブジェクトを取得することができます。代わりに使用

Wb2.Worksheets("Sheet3").Activate 'or whatever it's named