_Excel_BookSaveAs immer mit Fehler

**BugFix**

Hi,
ich nutze selten die Excel-UDF, hier bleibe ich jetzt hängen. Das Workbook läßt sich nicht speichern. Mit $oWorkbook als Parameter sollte das doch funktionieren. Ich bekomme aber immer Fehler, auch bei alternativer Angabe von $oExcel oder $oSheet. Ich verwende Office 2000.

AutoIt

#include <Excel.au3>


Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookNew($oExcel, 1)
Local $oSheet = $oWorkbook.Worksheets(1)


With $oSheet
	For $i = 0 To 5
		.Range("A1").Offset(0, $i).Value = 'SPALTE ' & $i+1
	Next
EndWith


; speichern als


_Excel_BookSaveAs($oWorkbook, @ScriptDir & '\test.xls', Default, True)
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   _Excel_BookSaveAs($oWorkbook) --> #Error: " & @error & @TAB & "#Extended: " & @extended & @LF) ; #Error: 5	#Extended: -2147352567


;~ _Excel_BookSaveAs($oExcel, @ScriptDir & '\test.xls', Default, True)
;~ ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   _Excel_BookSaveAs($oWorkbook) --> #Error: " & @error & @TAB & "#Extended: " & @extended & @LF) ; #Error: 1	#Extended: 0


;~ _Excel_BookSaveAs($oSheet, @ScriptDir & '\test.xls', Default, True)
;~ ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   _Excel_BookSaveAs($oSheet) --> #Error: " & @error & @TAB & "#Extended: " & @extended & @LF) ; #Error: 5	#Extended: 0

Alles anzeigen

**water**

Office 2000 ist schon ziemlich heftig alt. Da habe ich keine Erfahrungen mehr damit. Aber versuche mal, das Excel FileFormat mit anzugeben.

Code

_Excel_BookSaveAs($oWorkbook, @ScriptDir & '\test.xls', $xlExcel8, True)
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   _Excel_BookSaveAs($oWorkbook) --> #Error: " & @error & @TAB & "#Extended: " & @extended & @LF)

**BugFix**

Das ändert nichts.
Ich bleibe dann lieber bei den nativen Objektfunktionen, aber vielleicht läßt sich das ja in die Funktion _Excel_BookSaveAs auch integrieren:

$oExcel.ActiveWorkBook.SaveAs(@ScriptDir & '\test.xls') -- funktioniert fehlerfrei

**water**

Seit Office 2007 ist Excel da viel heikler: "Starting with Excel 2007 you have to provide both the $iFormat parameter and the correct file extension in $sFilePath.
E.g. $iFormat = $xlExcel8 and extension = "xlsx" will return an error."

Da der Support für Excel 2000 im Juni 2004 (Extended support Juli 2009) ausgelaufen ist, macht mMn eine Aktualisierung der Excel UDF für diese Version von Excel keinen Sinn mehr, abgesehen von der vermutlich doch sehr geringen Nachfrage.

**alpines**

Zitat von water

Da der Support für Excel 2000 im Juni 2004 (Extended support Juli 2009) ausgelaufen ist, macht mMn eine Aktualisierung der Excel UDF für diese Version von Excel keinen Sinn mehr, abgesehen von der vermutlich doch sehr geringen Nachfrage.

Die Nachfrage wird in den kommenden Jahren sowieso nicht mehr steigen.
Auch wenn sich die Software (die mittlerweile um die ~17 Jahre auf dem Buckel hat) bewährt hat, so ist es irgendwann an der Zeit diese zu aktualisieren.

Wo kämen wir denn hin, wenn wir uns nur an der Vergangenheit klammern?

**water**

Ich versuche schon, dass meine UDFs mit möglichst vielen Versionen funktionieren. Aber für Versionen die ich selbst nicht testen kann, ist das leider etwas schwierig.
Derzeit stecke ich meine Zeit lieber in neue Versionen (z.B. Office 2016) sobald wir in der Firma umgestellt haben.
Zu Hause läuft ja nur Linux

**BugFix**

Wir machen in der Firma heute dasselbe, wie im Jahr 2000. Insofern wäre es unsinnig Geld für Software auszugeben, wenn die vorhandene allen Anforderungen gerecht wird. Office 2000 wird hier also bestimmt noch 15 Jahre laufen.

**alpines**

Zitat von BugFix

Wir machen in der Firma heute dasselbe, wie im Jahr 2000. Insofern wäre es unsinnig Geld für Software auszugeben, wenn die vorhandene allen Anforderungen gerecht wird. Office 2000 wird hier also bestimmt noch 15 Jahre laufen.

Da habe ich keinerlei Einwände. Wenn die Software ihren Dienst noch tut kann man sie ja auch noch gut weiterverwenden.

**water**

Aus Sicherheitsüberlegungen heraus tut Office 2000 natürlich schon weh. Seit x Jahren keine Patches mehr eingespielt. Da bist ja offen für alle möglichen Arten von Angriffen!
Aber warum auch nicht: Wenn die Firma das aushält, wenn eine Ransomware alle Datein verschlüsselt?

**alpines**

Zitat von water

Aber warum auch nicht: Wenn die Firma das aushält, wenn eine Ransomware alle Datein verschlüsselt?

Da musst du aber abgrenzen was mit Office in der Firma angestellt wird.
Sollten die Dateien nur im Intranet rumwandern ohne das von außen welche dazukommen, dann braucht man den neuen Schnickschnack einfach nicht.

Bei Dateien von außen schaut das ganze wieder anders aus.

**water**

Zitat von alpines

ohne das von außen welche dazukommen

Das ist das Stichwort. Leider sind Mitarbeiter sehr kreativ was z.B. USB Sticks angeht. Bei einer Firma, die noch Office 2000 einsetzt, vermute ich keine Software zur DLP.
Mir als Firmenchef - und letztlich Risikoverantwortlichem - wäre das zu heiss!

**BugFix**

Unser Firmennetz ist ausschliesslich Intranet, insofern können wir da ganz entspannt sein. Es gibt zwei Einzel-PC mit Internetanschluß für Mailverkehr.