Public Sub excelein()
 
Set m_excel = New excel.Application
Set m_wb = m_excel.Workbooks.Open("c:\QualityOfficer\Lager.xls")
m_excel.Visible = False  'WIRD Nicht ANGEZEIGT!!!!
 
End Sub  
 
Public Sub excelaus()
 
Set m_excel = excel.Application
ActiveWorkbook.Close SaveChanges:=True
m_excel.Quit
 
End Sub