title image


Smiley Wenn das Excel-Objekt nicht erstellt werden kann, ist es "nothing" und...
dieses kann wieder verwertet werden:



Option Explicit



Private Sub Command1_Click()



Dim e As Object



On Error GoTo Fehler



Set e = CreateObject("Excel.application")



If e Is Nothing Then

MsgBox "Sorry, das Excel-Objekt konnte nicht erstellt werden!"

Exit Sub

End If



'machwasmitdeinemobjekt



Set e = Nothing



Exit Sub



Fehler:



MsgBox "Es trat ein Fehler auf!"



End Sub



Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: