|
ok.
Das mit dem remote schließen dachte ich mir fast schon aber braucht man da einen speziellen code für?
Ich hake schon beim einfachen schließen der excel...
wohl wieder überschätzt meine Kenntnisse...
Ich habe jetzt mal das hier probiert, klappt aber hinten und vorne nicht :/
Wäre lieb wenn di mir vielleicht etwas helfen könntest :)
Option Explicit
Sub checkFileOpenViaScriptingRuntime()
Dim fso As Object
Dim sPath As String, sFile As String, sFullPath As String
'
sFile = "MeineExcel.xlsm" ' <--- anpassen
sPath = "MeinPfadDerExcel\" ' <--- anpassen
sFullPath = sPath & "~$" & sFile ' <--- nicht anpassen
'
With CreateObject("Scripting.FileSystemObject")
' MsgBox .FileExists(sFullPath)
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlApp = Nothing
xlApp.Application.Quit
End With
End Sub
|