second file/Workbook open

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
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:
 
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).
 
Back
Top