Solved: Simple error message

[pedrovarela]

I got a new computer with a new Excel configuration. I'm writting a macro that includes the following simple line:

Set wBook = Workbooks("FilePlan.xls")

and I receive a "Subscript out of range" error (wBook is Empty). I have checked that he file exists and it is in the same directory as the file executing the Macro.

I suspect, there's a Security option preventing me from accessing other files. Any hint? Thanks!!

[Kenneth Hobs]

That would ok IF it was already open.

You can add the path by ThisWorkBook.Path. e.g.
Sub Test()
Dim wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "\ken.xls")
MsgBox ActiveWorkbook.Name
TestWhenWBIsOpenAlready
End Sub


Sub TestWhenWBIsOpenAlready()
Dim wb2 As Workbook
Set wb2 = Workbooks("ken.xls")
MsgBox wb2.Name
End Sub

[lucas]

Dim wBook As Workbook
Set wBook = Workbooks.Open(ActiveWorkbook.Path & "\" & "FilePlan.xls")

[lucas]

Ken got here before I refreshed......

[pedrovarela]

Sorry, I thought it worked but not. I don't want to open that Workbook. I just want to access some date on a sheet of a specifique Workbook. How can I access it with a command? I tthought

Workbooks("name").Sheets("Name"). Select shoudl work.


Any hint?

[Kenneth Hobs]

That is a whole other question.

Is the goal to Select a cell in the other workbook or get the value?

There are 2 methods to get a value, (1) with the workbook closed and (2) with the workbook open.


If the goal is to get a value using method (1), then see: http://www.vbaexpress.com/forum/showthread.php?t=24015

[GTO]

ACK! Sorry Ken; slow fingers...