Hallo
könnte mir einer sagen warum er in zeile 375 das value B nicht schreibt?
Spoiler anzeigen
#include <Excel.au3>
#include <GUIConstantsEx.au3>
#include <Word.au3>
Global $anrede = "Sehr geehrter UPS Kunde,"&@CR&@cr&"Wir haben ein Problem bei der Zustellung Ihrer Sendung "
Global $ini = "a.ini"
Global $get = ClipGet()
Global $txt, $value, $iRow = 1, $ini = 'a.ini'
Global $sPath = @ScriptDir & '\Test1.xls'
Global $oExcel = _ExcelBookOpen($sPath, 0)
Global $reihe = 1
Global $aname, $aadresse, $aplz, $aort, $aland, $Tracking, $value
Global $ename, $estrasse, $eplz, $eort, $eland, $akundennummer, $valueb
;$iRow = 1
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Hyperbrief", 375, 130, 193, 125)
$Button1 = GUICtrlCreateButton("Excel-Datei öffnen", 24, 24, 147, 25, 0)
$Button2 = GUICtrlCreateButton("Brief erstellen", 24, 80, 147, 25, 0)
$Button3 = GUICtrlCreateButton("Ecxel Killer", 192, 80, 147, 25, 0)
$Button4 = GUICtrlCreateButton("Fenstertest", 192, 24, 145, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Button1
ShellExecute($sPath)
case $Button2
_start()
case $Button3
ProcessClose("EXCEL.exe")
Case $Button4
; in arbeit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
While 1
Sleep(100)
WEnd
Func _start()
While True
$value = _ExcelReadCell($oExcel, "A" & $iRow)
$valueb = _ExcelReadCell($oExcel, "B" & $iRow)
If $value = "" Then
ProcessClose("Excel.exe")
ExitLoop
EndIf
$return = _getData($value)
$iRow += 1
WEnd
EndFunc
#cs
------------------------------------------------------------------------------------------------------------------------
Funktionen die in reihe geschaltet werden
Ablauf der einzelenen funktionen
------------------------------------------------------------------------------------------------------------------------
#ce
Func _getData($value)
_Activate()
_open () ;Offnet den ERN und schaltet auf die richtige seite um daten einzu lesen
_getName() ;absender name in die ini schreiben
_getAdresse() ;Absender adresse in die ini schreiben
_getPlz() ;Absender PLZ in die ini schreiben
_getOrt() ;Absender ort in die ini schreiben
_getLand() ;absender land in die ini schreiben
_getTracknr() ;Trackingnummer in die ini schreiben
_getEmpfName() ;Emf name in die ini schreiben
_getEmpfStr() ;Emf Str in die ini schreiben
_getEmpfPlz() ;Emf PLZ in die ini schreiben
_getEmpfOrt() ;emf Ort in die ini schreiben
_getEmpfLand() ;Emf land in die ini schreiben
_getKNr() ;Kundennummer in die ini schreiben
_worderstellen () ;erstellt eine word oder öffnet die vorhandene
_letterteil1() ;Schreibt denn brief
_userletter () ;Benuter wahl
_alsig () ;Schreiben der algemeinen Signatur
_dispatch () ; Disparched den ern uns macht den abschluss
_lettersend ()
EndFunc
Func _open()
_Activate()
MouseClick("LEFT", 390, 402, 1, 0)
send ($value)
Send ("{enter}")
Send ("9")
Send ("{enter}")
Sleep (500)
send ("01")
Send("{ENTER}")
sleep (500)
Send("{F7}")
Sleep (500)
EndFunc
Func _getName ()
MouseClick ("left", 24, 399, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 37}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe1", $get)
EndFunc
Func _getAdresse()
_Activate()
Send("{ENTER}")
MouseClick ("left", 24, 440, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 37}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe2", $get)
EndFunc
Func _getPlz()
_Activate()
MouseClick ("left", 376, 512, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 7}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe3", $get)
EndFunc
Func _getOrt()
_Activate()
MouseClick ("left", 24, 507, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 15}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe4", $get)
EndFunc
Func _getLand()
_Activate()
MouseClick ("left", 553, 508, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 3}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe5", $get)
EndFunc
Func _getTracknr()
_Activate()
MouseClick ("left", 167, 257, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 19}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe6", $get)
EndFunc
Func _getEmpfName()
_Activate()
MouseClick ("left", 663, 399, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 35}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe7", $get)
EndFunc
Func _getEmpfStr()
_Activate()
MouseClick ("left", 663, 434, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 35}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe8", $get)
EndFunc
Func _getEmpfPlz()
_Activate()
MouseClick ("left", 1014, 509, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 7}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe9", $get)
EndFunc
Func _getEmpfOrt()
_Activate()
MouseClick ("left", 663, 507, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 15}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe10", $get)
EndFunc
Func _getEmpfLand()
_Activate()
MouseClick ("left", 1189, 508, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 3}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe11", $get)
EndFunc
Func _getKNr()
_Activate()
MouseClick ("left", 341, 366, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 5}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe12", $get)
EndFunc
Func _letterteil1()
$aname = iniread (@ScriptDir & "\a.ini", "1", "reihe1", "0")
$aadresse = iniread (@ScriptDir & "\a.ini", "1", "reihe2", "0")
$aplz = iniread (@ScriptDir & "\a.ini", "1", "reihe3", "0")
$aort = iniread (@ScriptDir & "\a.ini", "1", "reihe4", "0")
$aland = iniread (@ScriptDir & "\a.ini", "1", "reihe5", "0")
$Tracking = iniread (@ScriptDir & "\a.ini", "1", "reihe6", "0")
$ename = iniread (@ScriptDir & "\a.ini", "1", "reihe7", "0")
$estrasse = iniread (@ScriptDir & "\a.ini", "1", "reihe8", "0")
$eplz = iniread (@ScriptDir & "\a.ini", "1", "reihe9", "0")
$eort = iniread (@ScriptDir & "\a.ini", "1", "reihe10", "0")
$eland = iniread (@ScriptDir & "\a.ini", "1", "reihe11", "0")
$akundennummer = iniread (@ScriptDir & "\a.ini", "1", "reihe12", "0")
Send ("{enter 8}")
Send ($aname)
Send ("{Enter}")
Send ($aadresse)
Send ("{Enter}")
Send ($aort)
Send ("{space 4}")
Send ($aplz)
Send ("{space 4}")
Send ($aland)
Send ("{enter 7}")
Send ($anrede)
Send ($Tracking)
Send ("{space 2}")
Send ("{Enter 3 }")
Send ("An: ")
Send ($ename)
Send ("{Enter}")
Send ("{space 7}")
Send ($estrasse)
Send ("{Enter}")
Send ("{space 7}")
Send ($eort)
Send ("{space 3}")
Send ($eplz)
Send ("{space 3}")
Send ($eland)
Send ("{enter 3}")
EndFunc
func _userletter()
If $valueb = "ger1gxn" Then Send ($Gajan, 0)
If $valueb = "kln1bzh" Then Send ($Barbara, 0)
If $valueb = "ger3gxi" Then Send ($Grace, 0)
If $valueb = "ger9krw" Then Send ($Karena, 0)
If $valueb = "ger6hks" Then Send ($Hilkka, 0)
If $valueb = "ger6rjd" Then Send ($Rolf, 0)
If $valueb = "ger6sts" Then Send ($Stefanie, 0)
If $valueb = "ger1mxk" Then Send ($Malanie, 0)
If $valueb = "kln1azm" Then Send ($Andrea, 0)
If $valueb = "ger0mjs" Then Send ($marcel, 0)
If $valueb = "ger1ttr" Then Send ($Thorsten, 0)
If $valueb = "ger1ook" Then Send ($Oliver, 0)
EndFunc
Func _alsig ()
Send ("{Enter 3}")
Send ($alsig)
Send ("{enter 8}")
EndFunc
Func _worderstellen ()
opt ("WinTitleMatchMode", 2)
If WinExists("marcel") Then
WinActivate ("marcel")
sleep (5000)
Else
Global $oWordApp = _WordCreate("marcel.doc")
opt ("WinTitleMatchMode", 2)
WinActivate ("marcel")
Sleep (1000)
EndIf
EndFunc
Func _Activate()
WinActivate('QWS3270')
WinWaitActive('QWS3270')
EndFunc
Func _dispatch ()
_Activate ()
Send ("{f2}")
Sleep (300)
MouseClick ("left", 375, 549, 1, 0)
Send ($valueb)
Sleep (5000)
Send ("{enter}")
Sleep (5000)
EndFunc
Func _lettersend ()
Send ("{tab 4}")
Sleep (5000)
Send ("send letter to sender")
send ("{enter}")
Send ("{F2 2}")
EndFunc
Währe super. Sitze leider in der firma und wollte das benutzen alle geht bis auf das $valueb
Gruß
Adam