浏览excel工作簿并打开，然后在代码中使用工作簿

【问题标题】：Browse excel workbook and open, then use workbook in code浏览excel工作簿并打开，然后在代码中使用工作簿
【发布时间】：2017-09-18 01:16:08
【问题描述】：

我需要一个代码来浏览服务器上的工作簿，该工作簿需要打开，并且我需要在我现有的代码中引用该工作簿。

在我想将 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

【问题讨论】：

标签： vba excel

【解决方案1】：

strFilePath 只是一个字符串，而不是工作簿。您可以通过.Open 方法获取工作簿对象：

Set Wb2 = Workbooks.Open(strFilePath)

您的下一行也会导致错误，因为Sheet3 是（我假设）您的工作簿中的一个对象，但不是工作簿类的属性。使用

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

改为

【讨论】：