Excel Vorlage öffnen und Schließen mit VB6

Hallo Zusammen,

hab vollgendes Problem, und zwar habe ich ein Programm mit VB6 erstellt. Aber als letzter teil fehlt mir noch ein automatisiertes öffnen / schließen / drucken eines Excel dokumentes. Frage:

Bei dem Code was ihr im Anschluss seht bleibt bei mir immer excel als Prozess offen, den kann ich zwar von hand abschießen, aber wenn ich den Button dann das zweite mal drücke, sagt mir das Programm " remote Computer/Laufwerk nicht verfügbar".


Private Sub cmdTestExcel_Click()
Dim Excel As Object


Set Excel = CreateObject("excel.Application")

If Excel Is Nothing Then
MsgBox "Fehler beim Öffnen der Vorlage!", 16, "Fehler"
Exit Sub 'Prozedur beenden im Fehlerfall
End If


Excel.Visible = True

'Vorlage oeffnen
Excel.Workbooks.Open "C:\temp\test.xls"


Excel.Range("B14").Value = "'test"
ActiveWorkbook.Close


Excel.Quit


Excel.Application.Quit
End Sub


Nochmal eine frage,
wie kann ich das Excel Dokument automatisch drucken und danach schließen??
Schonmal vielen Dank für eure Hilfe.


Gruß Sani03

Dim ex as new Excel.Application

Dim ex As New Excel.Application
ex.Visible = True
'Vorlage oeffnen  
ex.Workbooks.Open "C:\temp\test.xls"  
ex.ActiveWorkbook.ActiveSheet.Range("B14").Value = "'test"  

'drucken...  
ex.ActiveWorkbook.ActiveSheet.PrintOut Copies:=1, Collate:=True

'"Änderungen-speichern" Dialog unterdrücken  
ex.ActiveWorkbook.Saved = True

'alternativ speichern...  
ex.ActiveWorkbook.Save

ex.ActiveWorkbook.Close
ex.Quit