INVESTOX-Forum

Hallo,

ich habe eine Excel Datei als Datenbasis. Sobald die Datei abgelegt wird, greift mein Skript.
Das Skript wird aktiv, wenn eine bestimmte Datei abgelegt wird. Daraufhin werden verschiedene Makro´s ausgeführt und die Ausgangsdatei gelöscht.
Dabei besteht das Problem, dass entweder ein Excelprozess oder die komplette Excel Anwendung nicht beendet wird.

Ich brauche dringend Hilfe mit meinem Skript.

Dim datei
Dim dateix
Dim workbook
Dim FSO
Dim wb
Dim XL
Dim FSs
Dim Verzeichnis
Dim testFile, objFSO

Do

Set objFSO = CreateObject("Scripting.FileSystemObject")
testFile = "10.x.x/searchresult.xlsx"

If (objFSO.FileExists(testFile)) Then
datenholen()
daten()
loschen()

Else

Wscript.Sleep 60000 'alle 60Sekunden

End If

loop


' Daten holen bereinigen senden löschen
sub datenholen()
Set fso = CreateObject("Scripting.FileSystemObject")
set datei = WScript.CreateObject("Excel.Application")
set workbook = datei.Workbooks.Open("10.x.xschritt1.xlsm")
datei.run "Tabelle2.auf_nullsetzen"
datei.run "Tabelle2.bereich_kopieren"
datei.run "Tabelle2.Umlaute"
end sub
sub daten()
Set fso = CreateObject("Scripting.FileSystemObject")

set datei = WScript.CreateObject("Excel.Application")
set workbook = datei.Workbooks.Open("10.X.x.schritt1.xlsm")
datei.run "Tabelle2.neu"
datei.run "Tabelle3.XLS_nach_TXT_Export"
set fso = Nothing
datei.Quit

end sub

sub loschen()
Set fso = CreateObject("Scripting.FileSystemObject")
''VBS zum löschen der Datei searchresult.xlsx nach dem alles fertig ist
Dim WshShell, test
Set WshShell = WScript.CreateObject("wscript.shell")
On Error Resume Next
test = fso.datecreated
fso.deleteFile ("10.X.xsearchresult.xlsx")
end sub


Gruß Zwehn