Exceldiagram in Autoit einfügen.

    Sobald Excel Startet und die Datei geladen hat kommt die meldung also Wahrscheinlich ExcelBookOpenEx

    Sieht aus, als ob Du ungültige Verknüpfungen in Deinem Workbook hast. Wenn Du auf "Edit Links ..." klickst, bekomsmt Du die fehlerhaften Verknüpfungen. Kannt Du die korrigieren?

    Leider kann ich das nicht korriegieren da er den Pfad garnicht finden kann. Er versucht einen Datei im Laufwerk e:\ zu finden diese findet aber nur der server auf dem die datei hinterlegt ist.

    MFG Raumen837

    Dann schmeiss die Verknüpfung raus, denn der Fehler wird ja zurecht angezeigt.

    Das könnte ich zwar machen aber er würde eine Stunde später sich eine neue Version vom server ziehen undann ist das problem wieder da.

    Und denn Fehler darf ich nicht in der "HOST" datei bearbeiten

    Dann hast DU ein klassisches "Garbage In - Garbage Out" Problem.
    Eine Möglichkeit wäre noch die Warnungen zu unterdrücken - ob es funktioniert kann ich aber nicht testen.
    Verwende diese Version von _ExcelBookOpenEX:

    [autoit]

    Func _ExcelBookOpenEx($sFilePath, $fVisible = 1, $fReadOnly = False, $sPassword = "", $sWritePassword = "")
    Local $oExcel = ObjCreate("Excel.Application")
    If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
    $oExcel.DisplayAlerts = False ; <== eingefügt
    If Not FileExists($sFilePath) 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($sFilePath, 2, $fReadOnly, Default, $sPassword, $sWritePassword)
    If $sPassword = "" And $sWritePassword <> "" Then .WorkBooks.Open($sFilePath, 2, $fReadOnly, Default, Default, $sWritePassword)
    If $sPassword <> "" And $sWritePassword = "" Then .WorkBooks.Open($sFilePath, 2, $fReadOnly, Default, $sPassword, Default)
    If $sPassword = "" And $sWritePassword = "" Then .WorkBooks.Open($sFilePath, 2, $fReadOnly)
    ; Select the first *visible* worksheet.
    For $i = 1 To .ActiveWorkbook.Sheets.Count
    If .ActiveWorkbook.Sheets($i).Visible = $xlSheetVisible Then
    .ActiveWorkbook.Sheets($i).Select()
    ExitLoop
    EndIf
    Next
    EndWith
    $oExcel.DisplayAlerts = True ; <== eingefügt
    Return $oExcel
    EndFunc ;==>_ExcelBookOpen

    [/autoit]