Hi,
ich werd wahnsinnig. Script öffnet Excel und zeigt Auswertung, bei Mausklick soll sich Excel wieder schließen:
[autoit]#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Misc.au3>
#include <excel.au3>
$oExcel = 0
$gui = GUICreate("Excel Auswertung", 400, 400)
$knopf = GUICtrlCreateButton("Auswertung",200,200)
GUISetState()
while True
$msg = GUIGetMsg()
Select
case $msg = $GUI_EVENT_CLOSE
ExitLoop
case $msg = $knopf
; $excel.Application.DisplayFullScreen = True
$oExcel = ObjCreate("Excel.Application") ; Excel-Objekt erstellen
$oExcel.Application.DisplayAlerts = 0
$oExcel.Visible = 1
$oExcel.SheetsInNewWorkbook = 1 ; Anzahl der gewünschten Sheets beim Erstellen festlegen
Local $oBook = $oExcel.Workbooks.Add ; im Excel-Objekt ein Workbook-Objekt erstellen
Local $oSheet = $oBook.Sheets(1) ; Sheet-Objekt für Sheet 1 erstellen (Name oder Index)
$oSheet.Name = 'Mein Sheet' ; Eigenschft Name ändern
$oChart = $oSheet.ChartObjects.Add(1, 1, 1000, 600).Chart
$oChart.ChartType = 4
for $j = 1 to 2
for $k = 1 to 30
$oExcel.Sheets('Mein Sheet').Cells($k+ 12, 2+ $j*5).Value = Random(20)
next
$oChart.SeriesCollection.NewSeries
$oChart.SeriesCollection($j).Values = "='Mein Sheet'!Z14S" & 2 + $j*5 & ":Z" & 30 + 12 & "S" & 2 + $j*5
$oChart.SeriesCollection($j).Name = "Nummero " & $j
Next ;= > weiter mit For
$oChart.HasTitle = True ; Titel aktivieren
$oChart.ChartTitle.Characters.Text = "Maustaste drücken um Diagramm zu schließen"
do
sleep(10)
until _IsPressed(01)
;$oExcel.Close
$oExcel.Application.Quit()
$oExcel = ""
; If WinExists("Microsoft Excel - Mappe1") Then
; winclose("Microsoft Excel - Mappe1")
; else
;; MsgBox(0, "", "Window exists not")
; EndIf
;_ExcelBookClose($oExcel,0)
EndSelect
WEnd
Funktioniert. Aber wenn ich es öfter mache kommt es irgendwann zum Absturz.
C:\autoit sachen\GUI+\temp.au3 (50) : ==> The requested action with this object has failed.:
$oExcel.Application.Quit()
Manchmal beim 4ten Mal, manchmal erst beim 30ten Mal.
Ich kann keine Gesetzmäßigkeit finden wann es abstürtz.
Betriebssystem Win 7 Excel Version 2003, ich habe versucht 32- und 64 bit kompilieren, macht keinenUnterschied.
Kann mir wer helfen oder zumindest das Problem nachvollziehen?
Ich danke Euch!