Windows 7 / 64 mit Excel 2010 error

gu2012

Hi,

ich benutz autoiIT für grosse manuelle Auswertungsscripts.
Gebaut habe ich mir ein script auf einem Win XP 32 rechner mit Office 2003.
Nun habe ich einen neuen Rechner, Win7/64 mit Excel 2010 und bekomme folgenden Fehler beim ausführen meines Scripts:

Code

>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\******\Desktop\Kunden-Statistik neuer Rechner.au3"
C:\Users\*******\Desktop\Kunden-Statistik neuer Rechner.au3 (89) : ==> The requested action with this object has failed.:
$StatExcel.Range("A1:A1").Select
$StatExcel.Range("A1:A1")^ ERROR
>Exit code: 1	Time: 12.680

Mit dem alten Windows XP/Excel 2003 läuft das einwandfrei. Ich habe schon gegoogelt, finde aber nur Threads die ich technisch nicht verstehe.

Gibt es eine simple und einfache Lösung für autoIT Neulinge wie mich ?
Danke im voraus für Hilfe.

**Greenhorn**

Hi,

zeige Code.

Grüße Greenhorn

**water**

Welche Office Version verwendest Du? Die 32 bit oder die 64 bit Version?

gu2012

Office Business 2010, Excel 14.0.6123.5001 (32 bit)

Der Code:

Code

; AutoIt Version: 3.0
; Language: English
; Author: ***********




; Prompt the user to run the script - use a Yes/No prompt (4 - see help file)
Local $answer = MsgBox(4, "AutoIt Test", "Testscript Statistiken INKS. Run?")




; Check the user's answer to the prompt (see the help file for MsgBox return values)
; If "No" was clicked (7) then exit the script
If $answer = 7 Then
MsgBox(0, "Programm beendet", "OK. Bye!")
Exit


EndIf


Opt("WinTitleMatchMode", 2)


;Open excel, create a sheet
$StatExcel = ObjCreate("Excel.Application") ; Create an Excel Object


if @error then
Msgbox (0,"ExcelTest","Error creating the Excel Object. Error code: " & @error)
exit
endif


if not IsObj($StatExcel) then
Msgbox (0,"ExcelTest","I'm sorry, but creation of the Excel object failed.")
exit
endif




$StatExcel.Visible = 1 ; Let the guy show himself


;excel-block1


;JANUAR // Direct Key Input (uncool solutuon so far) to get the JAN/Customer-Data


WinActivate ( "***************************")
WinWaitActive("***************************")
Send("!r")
Send("{DOWN 10}")
Send("{ENTER}")
Sleep(1750)


WinActivate ("CSV - Datei")
WinWaitActive("CSV - Datei")


Send("{TAB}")
Send("11101")
Send("{TAB}")
Send("14000")
Send("{TAB 5}")
Send("2011")
Send("{TAB}")
Send("2012")
Send("{TAB}")
Send("1")
Send("{TAB}")
Send("1")
MouseClick ("left",698,498)
Sleep(250)
ControlClick("", "", 193, "left")


sleep(5000)




WinActivate ("Ausgabe der Daten in eine CSV - Datei")
WinWaitActive ("Ausgabe der Daten in eine CSV - Datei")


WinActivate ("Microsoft Excel")
WinWaitActive("Microsoft Excel")




;change the .csv file to the right format


$StatExcel.Range("A1:A1").Select ; -> HIER ENTSTEHT DER FEHLER
$StatExcel.ActiveCell.EntireColumn.Delete
$StatExcel.ActiveCell.EntireColumn.Delete


.....

Alles anzeigen

x0r

Hi,

setz mal ganz oben in deinem Script das hier ein:

[autoit]

#AutoIt3Wrapper_UseX64=n

[/autoit]

Gruß
x0r

**Greenhorn**

Hi,

ich denke der Fehler ist hier:

[autoit]

;Open excel, create a sheet
$StatExcel = ObjCreate("Excel.Application") ; Create an Excel Object
$StatExcel.Workbooks.Add() ; Create a new Excel Workbook (!!!)

[/autoit]

Getestet mit Win7 64bit, Office 2010 32bit.

Grüße
Greenhorn

x0r

Hi nochmal,

du könntest auch die Excel.au3 verwenden, dort sind die Befehle nicht ganz so komplexer Natur (subjektive Meinung).

Gruß
x0r