ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Workbooks.Open doesn't open file in ThisWorkbook (https://www.excelbanter.com/excel-programming/297650-workbooks-open-doesnt-open-file-thisworkbook.html)

Tomu

Workbooks.Open doesn't open file in ThisWorkbook
 
I'm attempting to open a 2nd workbook from a command button on the
1st. The 2nd file, in turn, is to open a companion file (File3.xls).
Problem is that "File2" won't open "File3". To test to see if this
code segment was even being executed on startup I placed a MsgBox in
it. The MsgBox always comes up.
However, if I open "File2" directly from Excel everything works OK.

To summarize the results in each case, the sequence is:
Case A: 1) From with Excel, Open File1; 2) Click CommandButton1,
which opens "File2"; 3) MsgBox comes up, but File3 never opens.
Case B: 1) From within Excel, Open File2; 2) MsgBox comes up AND
File3 opens.
What gives?

CODE IN FIRST FILE:
Private Sub CommandButton1_Click()
Workbooks.Open FileName:="C:File2.xls", updatelinks:=True
End Sub

CODE IN 2ND FILE (ThisWorkbook):
Private Sub Workbook_Open()
Workbooks.Open FileName:="C:File3.xls"
' I also tried the following command:
' Application.Workbooks.Open "C:\File3.xls"
prompt = "This works"
dummy = MsgBox(prompt, vbOKOnly, "Test")
End Sub


All times are GMT +1. The time now is 06:30 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com