浏览excel工作簿并打开,然后在代码中使用工作簿
我需要一个代码来浏览服务器上的工作簿,工作簿需要打开,我需要在我现有的代码中引用此工作簿。
下面的代码工作,直到我想将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
strFilePath
只是一个string,而不是一个工作簿。 您可以从.Open
方法获取工作簿对象:
Set Wb2 = Workbooks.Open(strFilePath)
您的下一行也会导致错误,因为Sheet3
是(我假设)工作簿中的对象,但不是工作簿类的属性。 使用
Wb2.Worksheets("Sheet3").Activate 'or whatever it's named
代替