Exceldiagram in Autoit einfügen.

Hallo AutoIt.de

Ich wurde von meinem chef beauftragt eine selbstaktualisierende Beamer show machen soll

nun habe ich das problem das in dieser Beamershow sich eine exceltabelle einfinden soll die sich selber alle 5 min aktualiesiert
nun dachte ich mir das es am einfachsten wäre wenn die Diagramme sich als jpg bild exportieren würden.

Also habe ich mich auf die suche gemacht nach einer möglichkeitdafür.
Ich habe zwar ein script für excel gefunden nur blicke ich da nicht wirklich durch.

Ich weis das es möglich ist Daten aus excel mit Autoit zu exportieren nur meine frage ist jetzt ob das auch mit tabellen geht und wenn ja wie.

MFG Raumen837

Danke für erure Antworten.

Ich habe mich mal nach dem excelUDF auseinander gesetzt.

Doch bekomme ich es nicht raus wie ich ein Diagramm was es schon gibt exportieren kann ich finde nur folgenden code doch dort wird das Diagramm erstellt und nicht ausgelesen.

Local $oChart1 = _XLChart_ChartCreate($oExcel, $iWorksheet, $xlStockOHLC, $Graph_position, "", $XValueRange, $DataRange, $DataName) 
_XLChart_ChartExport($oChart1, $iFile, "PNG", False, True)

Gruß raumen837

Ok Danke nun habe ich noch ne frage.

Ich weis wie das Chart heißt "Diagramm 5" wie würde dafür der code dann aussehen.

Da ich jetzt es möglichst umkoplietziert designen möchte da es auch andere Personen verstehen müssen, würde ich ungern erst nach dem Diagramm suchen sondern nur den sozusagen den namen des Diagramms angeben und dann direckt exportieren.

MFG Raumen837

DANKE!

Hast mir schon sehr geholfen.

Nun ich habe versucht bei dir grade die UDF downzuloaden .... habe sie entpackt und dann kommt:

Datei beschädigt

liegt das jetzt am firmen netz oder ist das was anderes.

Tut mir leid leider kein erfolg

[Blockierte Grafik: http://www7.pic-upload.de/11.10.12/uxhhk33x3ue8.png]

Gruß raumen837

Hat geklappt danke

so eine frage habe ich noch.

mir ist grade was aufgefallen immer wenn er Excel startet bei mir dann kommt eine art fehlermeldung
Wo Excel nicht weiterstartet .

Weist du ob man dies überbrücken kann oder ich in excel einstellen kann das die meldung nicht mehr kommt:

[Blockierte Grafik: http://www7.pic-upload.de/11.10.12/w4p3h8p7hrc.png]

Da ich nicht die HOST datei updaten darf bleibt der fehler dauerhaft da sich das programm immer nur eine kopis von der version holt

Der script soll alleine laufen können ohne das ich jedes mal dort auf "Don't Update" klicken kann.

Gruß raumen837

wenn ich es per hand starte kommt der "fehler" nicht

nur wenn ich es aus dem script starte

Der teil mit Excel ist ganz unten:

];Datenbank Writer
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include "source.au3"
#include "vorinstallation.au3"
#include <Excel.au3>
#include <Array.au3>
#include <ExcelChart.au3>
;Angaben für Datenbank
$DBserver = 0
$DBuser = 0
$DBPasswort = 0
$DBDatenbanknew = 0
$DBDatenbankold = 0
;Angaben der Speicherpfade
;Bitte schreibe in "$Pfad + "name des objekts""
$config = "E:\pb\writer\config.txt"
$minitemp = "E:\minitemp"

;wichtig fürs Programm (NICHT ÄNDERN)
$downpfad = 0
$downpfad2 = 0
$label1 = 0
$label2 = 0

vorinstallation()
gui1()
Func gui1()
$GUI1 = GUICreate("Writer ", 450, 300)
GUISetFont(15)
$hButton1 = GUICtrlCreateButton("Start", 10, 10,70,40)
$hButton2 = GUICtrlCreateButton("Close", 90, 10,70,40)
GUICtrlCreateLabel("Status: ",10,60)
GUICtrlCreateLabel("-Derzeitig in Arbeit: ",25,90)
GUICtrlCreateLabel("-Excel: ",25,125)
GUICtrlCreateLabel("-Diagramme: ",25,160)
GUICtrlCreateLabel("-MYSQL: ",25,195)
GUICtrlCreateLabel("Nächste Aktualiesierung in: ",10,230)
$label1 = GUICtrlCreateLabel(" ",90,60)
$label2 = GUICtrlCreateLabel(" ",225,90)
GUISetBkColor(0xFFFFFF)
GUICtrlCreatePic("c:\temp\Eaton.jpg",220,1,214,60)
GUISetState()

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $hButton1
config()
Case $hButton2
ExitLoop
EndSwitch
WEnd
EndFunc
Func config()
Local $file
Local $line = 1
Local $daten
Local $daten2
Local $daten3
Local $speed
GUICtrlSetData($label2,"Config check")

If FileExists($config) Then

Else
FileInstall("config.txt",$config)
MsgBox(0,"ERROR","Es wurde keinen config.txt gefunden. Neue config.txt wurde auf dem Desktop erstellt")
Exit
EndIf

If FileExists($minitemp) Then
FileDelete($minitemp)
EndIf

$file = FileOpen($config,0)
While 2
$daten = FileReadLine($file,$line)
If $daten = "1:" Then
While 1
If $daten2 = "end:1" Then
ExitLoop
EndIf
$line = $line + 1
$daten2 = FileReadLine($file,$line)
If $daten = "end:1" Then
else
FileWriteLine($minitemp,$daten2)
EndIf
Wend
EndIf
If $daten = "2:" Then
$line = $line + 1
$daten3 = FileReadLine($file,$line)
EndIf
$line = $line + 1
If $daten = "end" Then
ExitLoop
EndIf
Wend
$downpfad = $daten3 & "*.*"
$downpfad2 = $daten3
FileClose($file)
FileClose($minitemp)
GUICtrlSetData($label1,"10%")
Sleep(50)
Down()
EndFunc
Func Down()
Local $file
Local $line = 1
Local $daten
GUICtrlSetData($label2,"Source download")

$file = FileOpen($minitemp,0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to minitemp file.")
Exit
EndIf

While 1
$daten = FileReadLine($file,$line)
If $daten = "end:1" Then
ExitLoop
Else
FileCopy($daten, $downpfad)
EndIf
$line = $line + 1

WEnd
GUICtrlSetData($label1,"25%")
FileClose($file)
verarbeitung()
EndFunc
Func _ChartGet($oXLC_Excel, $sName)
If Not IsObj($oXLC_Excel) Then Return SetError(1, 0, 0)
If $sName = "" Then Return SetError(2, 0, 0)
Local $aCharts = _XLChart_ChartsGet($oXLC_Excel, 1, 0)
If @error Then Return SetError(3, @error, 0)
For $i = 1 To $aCharts[0][0]
If $aCharts[$i][2] = $sName Then Return $aCharts[$i][0]
Next
Return SetError(4, 0, 0)
EndFunc ;==>_Chartget

Func verarbeitung()
Local $file
Local $line
Local $daten
Local $zzz = 1
GUICtrlSetData($label2,"Verarbeitung")

If FileExists($downpfad2) Then

Else
MsgBox(0,"ERROR!","Heruntergeladene Dateien konnten nicht gefunden werden.")
EndIf

Local $oExcel = _ExcelBookOpen($downpfad2 & "Productivity.xlsx")
_ExcelSheetActivate($oExcel,"Diagramm")
;-------------------------------------------------------------------------------------------------------------------------------------------
Global $sChartName = "Diagramm 5"
$oChart = _Chartget($oExcel, $sChartName)
If @error Then
MsgBox(16, "Fehler", "Fehler beim Zugriff auf Chart '" & $sChartName & "' aufgetreten. @error = " & @error & ", @extended = " & @extended)
EndIf
If @error Then
MsgBox(16, "Fehler", "Fehler beim Export von Chart '" & $sChartName & "' aufgetreten. @error = " & @error & ", @extended = " & @extended)
EndIf
_XLChart_ChartExport($oChart, $downpfad2 & "Diagramm 5.jpg", "jpg", False, True)
;-------------------------------------------------------------------------------------------------------------------------------------------
$sChartName = "Diagramm 2"
$oChart = _Chartget($oExcel, $sChartName)
If @error Then
MsgBox(16, "Fehler", "Fehler beim Zugriff auf Chart '" & $sChartName & "' aufgetreten. @error = " & @error & ", @extended = " & @extended)
EndIf
If @error Then
MsgBox(16, "Fehler", "Fehler beim Export von Chart '" & $sChartName & "' aufgetreten. @error = " & @error & ", @extended = " & @extended)
EndIf
_XLChart_ChartExport($oChart, $downpfad2 & "Diagramm 2.jpg", "jpg", False, True)
;-------------------------------------------------------------------------------------------------------------------------------------------
GUICtrlSetData($label1,"35%")
_ExcelBookClose($oExcel)
endFunc

Danke hat super geklappt doch wie der geier schon will kommt ein andere error. ....

[Blockierte Grafik: http://www7.pic-upload.de/12.10.12/hdrtreo7642e.png]

...

Sry wenn ich dich grade so in Beschäftigung halte...

Gruß Raumen837