'Workbooks.Open' doesn't open workbook! (!??)

[Randall00]

Hey everybody,

Am I missing something here, or should this be working:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim strPath As String
    strPath = ThisWorkbook.Path & "\core.xlsb"

Dim wbCORE As Workbook
Set wbCORE = Workbooks.Open(strPath)

End Sub

I'm just trying to get this workbook to open up another workbook--I'm fairly certain I've gotten this to work just fine many many times before. Should this code not open up the "core.xlsb" workbook?? (which definitely does exist, is spelled correctly and is located in the same directory as "ThisWorkbook")?

It seems to ignore the Workbooks.Open statement as though it's not even there. ThisWorkbook's window is not visible, but it doesn't seem to make a difference whether I leave it visible or not.

What could be going on here?

 

[ColinKJ]

Hi Randall00,

Try:

Workbooks.Open(strPath)

Instead of:

Dim wbCORE As Workbook
Set wbCORE = Workbooks.Open(strPath)

 

[kpark91]

Try

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Workbooks.Open(ThisWorkbook.Path & "\core.xlsb")
 
End Sub

- Make sure you've saved the file first and then close to open up core.xlsb.
- Make sure core has the extension of xlsb

 

[Randall00]

Hmm, nope, no good. It is an Option Explicit document. I took that out and tried it anyway, but it doesn't open the workbook like it should. :\

Thanks kpark--I've tried a lot of these variations and continue to yield the same result. But in theory, shouldn't the code I have posted to begin with work perfectly fine?

 

[kpark91]

I don't really trust the VBA anymore :\
I try to declare all the variables I can with more basic datatypes (long, int, string, etc..) or try not using variables at all if not needed.

But yes, the code you've posted should have worked perfectly fine. as it did on mine..

 

[Randall00]

Well that's a relief anyway. At least I'm not losing my mind.

I'll give it a restart or something I guess.