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

时间:2016-10-17 08:09:45

标签: excel vba excel-vba

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

下面的代码有效,直到我想将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

1 个答案:

答案 0 :(得分:0)

strFilePath只是一个字符串,而不是工作簿。您可以从.Open方法获取工作簿对象:

Set Wb2 = Workbooks.Open(strFilePath)

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

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

代替