title image


Smiley Re: Warten bis funktion ausgeführt
Hi,



in diesem Fall brauchst Du aber einen Verweis auf die Excel Object Library, weil ja eine Event-Sink eingerichtet werden muss.





Private WithEvents E As Excel.Application

'

Private Sub E_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, Cancel As Boolean)

'hier der Code der Ausgeführt wird, wenn die Workbook

'geschlossen wird

End Sub

'

Private Sub Form_Load() '<-------- oder sonst wo

Set E = New Excel.Application

Set W1 = E.Workbooks.Open(App.Path & "\FORMULAR.XLS")

Set S1 = W1.Sheets("Feuil2")





End Sub

Programmierst Du noch frei oder wirst Du schon von Microsoft verwaltet ( .NET)?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: