Hallo Leute,
ich möchte mittels zeitlichem Agenten, Daten in eine bestehende Excel Datei schreiben. Es funktioniert auch ohne Probleme, wenn die Datei aber offen ist, bleibt der Agent beim Speichern der Datei hängen bzw. die Excel Sitzung.
Kann mir jemand sagen wie ich vorm Speichern abfragen kann ob die Excel Datei jemand offen hat.
Domino 9, Office 2010
Hier mein Sub:
Sub schreibdaten(Byval daten As String, reiter As Integer)
Dim xlApp As Variant
Dim xlsheet As Variant
Dim zeile As Integer
Dim spalte As Integer
Dim werte As Variant
Dim lesezeile As Integer
Dim istwert As String
zeile = 1
spalte = 1
lesezeile = 1
werte = Split(daten,"@")
'öffnen Excel
Set xlApp = CreateObject("Excel.Application")
Call xlapp.Workbooks.Open ("\\server\freigabe\test.xlsx" ,3)
Set xlsheet = xlApp.Workbooks(1).Worksheets(reiter)
xlApp.DisplayAlerts = False
'Suchen welches ist die nächste leere Zeile
istwert = Trim(xlsheet.cells(lesezeile,1).value)
While istwert <> ""
lesezeile = lesezeile + 1
istwert = Trim(xlsheet.cells(lesezeile,1).value)
Wend
'setzen Zeiger auf nächste Leere Zeile
zeile = lesezeile
'Schreiben der Daten in die nächste leere Zeile
Forall entry In werte
xlsheet.cells(zeile,spalte).value = entry
spalte = spalte + 1
End Forall
xlsheet.Columns("A:Z").EntireColumn.AutoFit
xlApp.save
xlApp.Workbooks.close
xlApp.quit
End Sub