Datei schliessen
20.11.2021 11:34:14
Thomas
ich starte mit dem Script
intTimeout = 3 'Number of seconds to wait
strMessage = " Ok ich oeffne die Datei"
strTitle = "Ich starte"
Set WshShell = CreateObject("WScript.Shell")
intResult = WshShell.Popup(strMessage, intTimeout, strTitle)
Set WshShell = Nothing
sOrdner = "C:\Users\User\Desktop\neuer test\"' anpassen
sDatei = "testdatei.xlsb"' Dateiname anpassen' Dateiname anpassen
if CreateObject("Scripting.FileSystemObject").FileExists(sOrdner & "~$" & sDatei) Then
msgbox "Achtung die Datei " & sDatei & " ist schon einmal geöffnet worden!"
'sDatei.close ' geht nicht
'wscript.quit
end if
' ab hier zu testzwecken abgeschalten
'Set xlApp = CreateObject("Excel.Application")
'xlApp.windowstate = -4140
'xlApp.Visible = true
'wscript.sleep 100
'Pfadxl = sOrdner & sDatei
'Set objExcelWorkbook = xlApp.workbooks.Open (Pfadxl ,,true)
'wscript.sleep 1000
'Set objExcelWorkbook = Nothing
'wscript.quit
'xlApp.Quit
Nun kommt es hin und wieder vor das die Prüfung, ob die Datei schon geöffnet ist, die Meldung
msgbox "Achtung die Datei " & sDatei & " ist schon einmal geöffnet worden!"
Schreibt. Das funktioniert schon mal wie es soll.
Die Exceldatei ist jedoch nur im Taskmanager zu sehen.
wie bekomme ich die nun schon gestartete Exceldatei zu sehen? Oder wie kann ich diese schließen.
Denn wenn ich das script durchlaufen lasse. Sehe ich zwar die exceldatei, aber im Taskmanager steht diese dann zweimal drin.
Ich denke das es zu dieser Situation kommt, wenn der Anwender viermal anstatt zweimal mit der Moustaste klickt.
Hat Jemand einen Rat für mich?
Ziel mit den Script.
'########################################
Öffne eine bestimmte exceldatei schreibgeschützt.
'###########################################
habt schon mal rechtvielen dank für euer Interesse.
mfg thomas