Code vbs
14.04.2005 16:11:05
harald
Habe folgendes geschrieben
existfile_Path = savepath & saveform 'Filepfad zum Überprüfen ob File existiert
Set objFileSys = Wscript.CreateObject("Scripting.FilesystemObject")
If objFileSys.FileExists(existfile_Path) then 'Überprüfen ob File existiert
'********File vorhanden, nur editieren******
Set Exsheet = wscript.CreateObject("Excel.Application") 'Excel Application kreieren
On Error Resume next
Set test = Exsheet.Workbooks.Item("C:\temp\test.xls")
If Err.Number 0 then
wscript.echo " alles nicht geöffnet"
wscript.quit
Exsheet.quit
Else
wscript.echo "geöffnet"
wscript.quit
Exsheet.quit
End If
On Error GoTo 0
Will hier überprüfen ob file geöffnet ist! Wenn nicht geöffnet soll fehler kommen!
Wenn geöffnet dann nicht!
Ich bekomme immer einen Fehler!
Bitte um Hilfe!
mfg
Harald