Hallo an die Profis,
ich kapier es einfach nicht. Beim Aufruf einer Excel Datei aus einem Script heraus bekomme ich folgenden Fehler:
ERROR: 'Return' not allowed from global scope. If Not FileExists($cdefilenameGTW) Then Return SetError(2, 0, 0)
Das Schlimme ist, dass es schon gefunzt hat - 
Hier das ganze Snip für den Aufruf
(wobei $cdefilenameGTW = @MyDocumentsDir & ("\Maileingang_GTW01_ArcorNet_all.xls")
DIM $cdefilenameGTW, $fVisible = 1, $fReadOnly = False, $sPassword = "", $sWritePassword = ""
Local $oExcel = ObjCreate("Excel.Application")
If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
If Not FileExists($cdefilenameGTW) Then Return SetError(2, 0, 0)
If $fVisible > 1 Then $fVisible = 1
If $fVisible < 0 Then $fVisible = 0
If $fReadOnly > 1 Then $fReadOnly = 1
If $fReadOnly < 0 Then $fReadOnly = 0
With $oExcel
.Visible = $fVisible
If $sPassword <> "" And $sWritePassword <> "" Then .WorkBooks.Open($cdefilenameGTW, Default, $fReadOnly, Default, $sPassword, $sWritePassword)
If $sPassword = "" And $sWritePassword <> "" Then .WorkBooks.Open($cdefilenameGTW, Default, $fReadOnly, Default, Default, $sWritePassword)
If $sPassword <> "" And $sWritePassword = "" Then .WorkBooks.Open($cdefilenameGTW, Default, $fReadOnly, Default, $sPassword, Default)
If $sPassword = "" And $sWritePassword = "" Then .WorkBooks.Open($cdefilenameGTW, Default, $fReadOnly)
.ActiveWorkbook.Sheets(1).Select ()
$x = .Run("Import_GTW") ; MacroName, Parameters1, Parameter2, ...
EndWith
Wahrscheinlich ganz einfach - wenn man es weiss ...
D A N K E
Chris
