浏览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只是一个字符串，而不是工作簿。您可以从.Open方法获取工作簿对象：

Set Wb2 = Workbooks.Open(strFilePath) 

你的下一行将会导致错误太多，因为Sheet3是（我认为）在您的工作簿的对象，但不是工作簿类的属性。使用

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

代替