View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Alan Carpenter Alan Carpenter is offline
external usenet poster
 
Posts: 2
Default On opening a file auto open another

?B?S2V2cnls?= wrote in
:

I know this should be the simplest thing but I'm missing something.

When I open the file "accounting.xls" I want it to open the file
"cashups.xls" automatically.

Now... I've looked up VB help and as a result I have typed in
Workbooks.Open "cashups.xls", 0
but it didnt work.

I have presumed it's typed into the window that opens when you right
click on the Excel icon and select "show code" in the main worksheet
tab.


When you see that window, it should (if it has no code) show:

Private Sub Workbook_Open()

End Sub


If you paste your code between those two lines, it should work.


Private Sub Workbook_Open()
Workbooks.Open "cashups.xls"
End Sub

Add the path, e.g.
Workbooks.Open "c:MyFolder\cashups.xls"

There are MANY other options, but this should do what you want.

Add this line before the End Sub to show your original Workbook.

Workbooks("accounting.xls").Activate

Cheers,
Alan Carpenter

The syntax in help is unclear as always, but I don't think it requires
the brackets shown in help. I have tried them anyway, and I get an
error message saying an "=" sign is expected.

I've had a look in this thread and found a more functional method if I
can get it to work, and this is:

Dim wbk As Workbook

On Error Resume Next
Set wbk = Workbooks("Cashups.xls")
On Error GoTo 0

If wbk Is Nothing Then
MsgBox "Opening Cashups.xls now"
Set wbk = Workbooks.Open("C:\MyBook.xls")
End If

I copied and pasted this into the same window, just changing the
example to my own filename and remming out my first attempt, but it
still wouldn't open the other file.

Can someone tell me what I did wrong? Also, is there a way of doing
this so that whichever tab the "accounting.xls" file opens to the
macro will still run?