Hi

I use this in a command button to open another excel file:
Dim FName As Variant
Dim sStr As String
sStr = "h:\city breaks\priser\usa\ordrer"
ChDrive sStr
ChDir sStr
FName = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
If FName < False Then

Workbooks.Open FName


End If

Its working but when i close the file i have open with the botton its also
close the first woorbook i have open. All workbooks have this in the start:

Private Sub Workbook_open()
copy
Application.Visible = False
GetData_Example1
priser.Show ' show my form
Application.DisplayAlerts = False
Application.Quit
End Sub

So my question is, is there not another way to open the second file?
Maybe with filesystemobject ??

Best regards
alvin

Remove application.Quit from your code and you won't close excel. No way of
opening a workbook is going to avoid the fact that your code closes excel
and all open workbooks.

--
Regards,
Tom Ogilvy

"Alvin Hansen" wrote in message
...
Hi

I use this in a command button to open another excel file:
Dim FName As Variant
Dim sStr As String
sStr = "h:\city breaks\priser\usa\ordrer"
ChDrive sStr
ChDir sStr
FName = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
If FName < False Then

Workbooks.Open FName


End If

Its working but when i close the file i have open with the botton its also
close the first woorbook i have open. All workbooks have this in the
start:

Private Sub Workbook_open()
copy
Application.Visible = False
GetData_Example1
priser.Show ' show my form
Application.DisplayAlerts = False
Application.Quit
End Sub

So my question is, is there not another way to open the second file?
Maybe with filesystemobject ??

Best regards
alvin

Okay
But can't i so remove the close icon in the form?
then i can make a butoon to close

alvin


"Tom Ogilvy" skrev:

Remove application.Quit from your code and you won't close excel. No way of
opening a workbook is going to avoid the fact that your code closes excel
and all open workbooks.

--
Regards,
Tom Ogilvy

"Alvin Hansen" wrote in message
...
Hi

I use this in a command button to open another excel file:
Dim FName As Variant
Dim sStr As String
sStr = "h:\city breaks\priser\usa\ordrer"
ChDrive sStr
ChDir sStr
FName = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
If FName < False Then

Workbooks.Open FName


End If

Its working but when i close the file i have open with the botton its also
close the first woorbook i have open. All workbooks have this in the
start:

Private Sub Workbook_open()
copy
Application.Visible = False
GetData_Example1
priser.Show ' show my form
Application.DisplayAlerts = False
Application.Quit
End Sub

So my question is, is there not another way to open the second file?
Maybe with filesystemobject ??

Best regards
alvin

Look in help at the QueryClose event.

It would be easier to handle the close and direct the user to your button
than try to remove it from the userform (which can be done with the windows
API).

--
Regards,
Tom Ogilvy

"Alvin Hansen" wrote in message
...
Okay
But can't i so remove the close icon in the form?
then i can make a butoon to close

alvin


"Tom Ogilvy" skrev:

Remove application.Quit from your code and you won't close excel. No
way of
opening a workbook is going to avoid the fact that your code closes
excel
and all open workbooks.

--
Regards,
Tom Ogilvy

"Alvin Hansen" wrote in message
...
Hi

I use this in a command button to open another excel file:
Dim FName As Variant
Dim sStr As String
sStr = "h:\city breaks\priser\usa\ordrer"
ChDrive sStr
ChDir sStr
FName = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
If FName < False Then

Workbooks.Open FName


End If

Its working but when i close the file i have open with the botton its
also
close the first woorbook i have open. All workbooks have this in the
start:

Private Sub Workbook_open()
copy
Application.Visible = False
GetData_Example1
priser.Show ' show my form
Application.DisplayAlerts = False
Application.Quit
End Sub

So my question is, is there not another way to open the second file?
Maybe with filesystemobject ??

Best regards
alvin