title image


Smiley Re: Simples Beispiel ...
OK! Habs so als vbs gespeichert.Ich bekomme dann eine Fehlermeldung, in Zeile 5 Zeichen 18 "Anweisungsende erwartet".Woran hängt das ?OPTION EXPLICITSet WSH_Shell = WScript.CreateObject("WScript.Shell")Set DS_Ob = WScript.CreateObject("Scripting.FileSystemObject") Const xlText = -4158 '(&HFFFFEFC2) Dim objExcel As Object Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Open FileName:="D:\Pfad\Datei.xls" objExcel.ActiveWorkbook.SaveAs _ FileName:="D:\Pfad\Datei.txt", _ FileFormat:=xlText, CreateBackup:=False WScript.Quit(1)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: