Hallo Zusammen
im ArrayDisplay sie die Daten ersichtlich aber im GuiCreatecombo nicht?,
Bitte um Hilfe
Danke
MC
Spoiler anzeigen
#include<array.au3>
#include<ExcelCOM_UDF.au3>
;#include<Excel.au3>
Opt('MustDeclareVars', 1)
ArrayMuster()
Func ArrayMuster()
Global $aIni, $nMsg, $Exit, $ab, $Offerte, $Rechnung, $Exit
Global $xls, $xlsdir, $app, $zelle, $zeile, $open, $MengenCombo, $Sektionen
Local $aFileName, $aArray1, $oExcel
$aFileName = ("C:\Dokumente und Einstellungen\Administrator\Desktop\Script\Fai\file.xls")
$oExcel = _ExcelBookOpen($aFileName) ;Open book, make it not visible
$oExcel.Visible = 0
$aArray1 = _ExcelReadArray($oExcel, 2, 4, 1300, 1) ;Direction is Vertical
_ArrayDisplay($aArray1, "Vertical")
;Global $MengenCombo[2]
;Global $Sektionen[2] = ["Name", "Firma"]
;MsgBox(1,"", & GUICtrlRead($aArray1))
GUICreate("GUI", 250, 240)
GUICtrlCreateLabel("Firma ", 60, 10)
$aArray1 = GUICtrlCreateCombo("", 60, 30)
GUICtrlCreateLabel("Firma ", 60, 10)
;$MengenCombo[0] = GUICtrlCreateCombo("", 60, 30)
GUICtrlCreateLabel("Name ", 60, 70)
;$MengenCombo[1] = GUICtrlCreateCombo("", 60, 88)
$ab = GUICtrlCreateButton("Abestätigung",70, 130)
$Offerte = GUICtrlCreateButton("Offerte",10, 130)
$Rechnung = GUICtrlCreateButton("Rechnung",160, 130)
$Exit = GUICtrlCreateButton("Exit",60, 200)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]If Not FileExists($aFileName) Then ; Neu zur Überprüfung hinzu
MsgBox(0, "Hinweis:", "XLS-Datei existiert nicht.")
Exit
EndIf
For $i = 0 To UBound($aArray1) - 1
$aIni = IniReadSection($aFileName, $aArray1[$i])
For $j = 1 To $aIni[0][0]
GUICtrlSetData($aArray1[$i], $aIni[$j][1])
Next
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Exit
;MsgBox(1,"Auswahl", GUICtrlRead($MengenCombo[0])&GUICtrlRead($MengenCombo[1])& _
; GUICtrlRead($MengenCombo[2])&GUICtrlRead($MengenCombo[3]))
Exit
Case $Rechnung
Run("C:\Program Files\Microsoft Office\Office12\excel")
Exit
Case $Offerte
;$xls = ShellExecute("C:\temp\Script\OffertenvorlageNEU.xls")
$xlsdir = "C:\temp\Script\OffertenvorlageNEU.xls"
;Excel öffnen
$app = ObjCreate("Excel.application")
$app.Visible = true
$open = $app.Workbooks.Open ($xlsdir)
;in Excel schreiben
$app.Cells(10,4).Value = ""&GUICtrlRead($MengenCombo[0])&""
$app.Cells(11,4).Value = ""&GUICtrlRead($MengenCombo[1])&""
;$app.Cells(12,4).Value = ""&GUICtrlRead($MengenCombo[1])&""
;$app.Cells(10,7).Value = ""&GUICtrlRead($MengenCombo[1])&""
;$app.Cells(10,8).Value = ""&GUICtrlRead($MengenCombo[1])&""
$zelle=6
$zeile=1
$app.Cells($zeile,$zelle).Value = "Zelle6Zeile1"
Exit
EndSwitch
WEnd
EndFunc