Open existing workbook
 

Hi all experts,
I have a set (3) of workbooks that open from a shortcut on the desktop. When
the workbooks are open I want to give the user the possibility to open an
already existing workbook to replace one of the open workbooks (the one on
the button to open an existing book) and leave the 2 other workbooks that
are already open. So the user needs to see a windows file list to choose
from, select a file and than the macro should run further.
I have no idea on how to start on this.
Thanks for any valued help.
Daniel

Open existing workbook
 

hi,
here is a way to call the open dialog box.

Application.Dialogs(xlDialogOpen).Show

You can work it into your code.
reguards.
-----Original Message-----
Hi all experts,
I have a set (3) of workbooks that open from a shortcut
on the desktop. When
the workbooks are open I want to give the user the
possibility to open an
already existing workbook to replace one of the open
workbooks (the one on
the button to open an existing book) and leave the 2
other workbooks that
are already open. So the user needs to see a windows file
list to choose
from, select a file and than the macro should run further.
I have no idea on how to start on this.
Thanks for any valued help.
Daniel


.

Open existing workbook
 

Not real clear on your situation, but to show the file Open dialog

Dim fName as Variant
chDrive "C"
chDir "C:\MyFolder"
fName = Application.GetOpenFileName()
if fName < False then
workbooks.open fName
End if

The dialog returns the name and path of the file chosen - it doesn't open
it. So you have to open it with workbooks.Open.

--
Regards,
Tom Ogilvy



"Daniel Van Eygen" wrote in message
i.nl...
Hi all experts,
I have a set (3) of workbooks that open from a shortcut on the desktop.
When
the workbooks are open I want to give the user the possibility to open an
already existing workbook to replace one of the open workbooks (the one on
the button to open an existing book) and leave the 2 other workbooks that
are already open. So the user needs to see a windows file list to choose
from, select a file and than the macro should run further.
I have no idea on how to start on this.
Thanks for any valued help.
Daniel

Open existing workbook
 

Thanks Frank,
I did some experimenting and came up with this code:

Private Sub CommandButton18_Click()
ChDir "c:\Dunrail\Projects"
Workbooks.Open Application.GetOpenFilename
ChDir "c:\Dunrail"
End Sub

This works fine as long as I select a file. If I hit "cancel" instead I get
an error. How can I trap the error in order to avoid the error message?

Daniel.

"Frank Stone" wrote in message
...
hi,
here is a way to call the open dialog box.

Application.Dialogs(xlDialogOpen).Show

You can work it into your code.
reguards.
-----Original Message-----
Hi all experts,
I have a set (3) of workbooks that open from a shortcut
on the desktop. When
the workbooks are open I want to give the user the
possibility to open an
already existing workbook to replace one of the open
workbooks (the one on
the button to open an existing book) and leave the 2
other workbooks that
are already open. So the user needs to see a windows file
list to choose
from, select a file and than the macro should run further.
I have no idea on how to start on this.
Thanks for any valued help.
Daniel


.

Open existing workbook
 

See my response for an example.

--
Regards,
Tom Ogilvy

"Daniel Van Eygen" wrote in message
i.nl...
Thanks Frank,
I did some experimenting and came up with this code:

Private Sub CommandButton18_Click()
ChDir "c:\Dunrail\Projects"
Workbooks.Open Application.GetOpenFilename
ChDir "c:\Dunrail"
End Sub

This works fine as long as I select a file. If I hit "cancel" instead I
get
an error. How can I trap the error in order to avoid the error message?

Daniel.

"Frank Stone" wrote in message
...
hi,
here is a way to call the open dialog box.

Application.Dialogs(xlDialogOpen).Show

You can work it into your code.
reguards.
-----Original Message-----
Hi all experts,
I have a set (3) of workbooks that open from a shortcut
on the desktop. When
the workbooks are open I want to give the user the
possibility to open an
already existing workbook to replace one of the open
workbooks (the one on
the button to open an existing book) and leave the 2
other workbooks that
are already open. So the user needs to see a windows file
list to choose
from, select a file and than the macro should run further.
I have no idea on how to start on this.
Thanks for any valued help.
Daniel


.