Hallo arbeite gerade daran eine exportierte Excel Liste auf eigene Ansprüche zu verbessern, leider hänge ich an 2 entscheidenen Punkten.
Also ich arbeite mit 3 Tabellen. Die erste ist ein Export aus unserem Helpdesk, die zweite ist die NEUE und die 3 gibt nur Informationen über bestimmte Beschreibungen.
Es soll im Grunde die erste Tabelle ausgelesen werden, in der 3 nachgeschaut ob der Eintrag vorhanden ist und dementsprechend den Eintrag in der neuen Tabelle in 2 neue Spalten aufgliedern.
Problem 1: Es kann vorkommen das in der 3 Tabelle kein entsprechender Wert existiert und das Programm dann eine Ausnahmebehandlung durchführen soll (ist mir bisher nicht gelungen)
Problem 2: Das Datumsformat in der 1 Tabelle wird in der 2 nicht berücksichtigt und es kommt einfach nur eine elendig lange Zahl.
Hier mal der bisherige Code (bißchen unübersichtlich sorry)
[autoit]#include <Excel.au3>
#include<Array.au3>
$sFilePath = "C:\SC_Export\SC_Export"
$oExcel = _ExcelBookOpen($sFilePath)
$description = _ExcelBookOpen("C:\SC_Export\test.xls")
$new = _ExcelBookNew()
$eingabe = string("")
;Gucken wieviele Tickets in SC Export existieren
$atickets = string("Zellen zählen")
$zticket = 1
while $atickets <> ""
$atickets = _ExcelReadCell($oExcel,$zticket,1)
$zticket = $zticket + 1
WEnd
;gucken wieviele Descriptions vorhanden sind
$adescription = string("Zellen zählen")
$zdescription = 1
while $adescription <> ""
$adescription = _ExcelReadCell($description,$zdescription,1)
$zdescription = $zdescription + 1
WEnd
msgbox(0,"$zticket",$zticket)
msgbox (0,"$zdescription",$zdescription)
For $zeile = 1 To $zticket
for $spalte = 1 to 25
$zelle = _ExcelReadCell($oExcel,$zeile,$spalte)
#region 2 Spalten einfügen für Desription Split
if $spalte = 6 Then
$spalte = $spalte + 2
endif
_excelwritecell($new,$zelle,$zeile,$spalte)
#endregion
;Splitten der Brief Description
if $spalte = 8 and $zeile > 1 then
$i = 1
$e = string(" ")
$t = int(0)
for $i = 1 to $zdescription
$e = _ExcelReadCell($description,$i,1)
$t = StringCompare($zelle,$e)
if $t = 0 then
$e1 = _ExcelReadCell($description,$i,2)
$e2 = _ExcelReadCell($description,$i,3)
_ExcelWriteCell($new,$e1,$zeile,6)
_ExcelWriteCell($new,$e2,$zeile,7)
endif
Next
endif
Next
Next
Wenn man mit dem Excel- (oder auch Word-) Objekt umgehen kann, ist es einfacher die direkten Befehle zu verwenden. Du siehst diese nur nicht, weil sie innerhalb der UDF-Funktionen ablaufen. (Einfach mal das Excel-Include öffnen und die einzelnen Funktionen anschauen).