Ja ich schon wieder...
ich wollt mal frage ob mir jemand mit einen Tip oder Beispiel bei meinem Problem auf die Sprünge helfen könnte.
Was ich grad machen möchte ist folgendes. Es gibt eine Exceldatei die ich Zeilenweise auslesen möchte
mit $aArray = _ExcelReadArray($oExcel, 2, 1, 31)
und dazu parallel eine weiter Varialble auslesen möchte in der die Spaltennamen aus der SQL DB stehen
$aArray1 = StringSplit( "WONUMMER, WOTYP, TELPLUSAUFTRAG, ORDER....
um letztlich in der Datenbank dann anhand zB des SQL Spaltennamens WONUMMER den ersten eintrag aus der Exceltabelle
zuzuordnen.
Ich hab schon viel rumprobiert.... aber ich merke immer wieder ich habs wohl noch nicht begriffen.
hier erstmal mein letzter Versuch:
Spoiler anzeigen
#include <Excel.au3>
#include <array.au3>
_Excel_File_Read("EuF_090423.xls")
[/autoit] [autoit][/autoit] [autoit]Func _Excel_File_Read($input_File_Name)
Local $sFilePath1 = @ScriptDir & "\" & $input_File_Name;This file should already exist
Local $r=1
Local $aArray1 = StringSplit( "WONUMMER, WOTYP, TELPLUSAUFTRAG, ORDERENTRY, TERMIN, TIMESLOT, TECHNIKER ,KDNR, VORNAME, NACHNAME, PLZ, ORT, STRASSE, HSNR, HSNRZUSATZ, RFNRPRIVAT ,UNITYRFNR, SONSTIGERFNR, WEOBJEKT, HSKOMMENTAR, FIBERNOTE, CLINE, ADRESSEUP ,L4AUSBAUTYP, L4AUSBAUDATUM , L4NETZSTRUKTUR, SCREAMBLEDID, INSTHARDWARE, F2KOMMENTAR, AKTIVEHSI", ",")
Local $oExcel = _ExcelBookOpen($sFilePath1, 0)
Local ;Direction is Horizontal
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim $sArrayString = _ArrayToString( $aArray,";", 0, 31 )
Local $aArray=StringSplit($sArrayString,";")
For $i=1 To $aArray[0]
For $r=1 To $aArray1[0]
MsgBox(0,"","Der Excelwert: " & $aArray[$i] & " und der SQL Wert: " & $aArray1[$r] )
next
Next
_ExcelBookClose($oExcel) ; And finally we close out
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]Dann hab ich es nochmal nochmal so probiert was meinen wunsch schon entsprach blos zum schluß kommt ein Fehler.
==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
hier wäre dann noch dieses Script.
Spoiler anzeigen
#include <Excel.au3>
#include <array.au3>
_Excel_File_Read("EuF_090423.xls")
[/autoit] [autoit][/autoit] [autoit]Func _Excel_File_Read($input_File_Name)
[/autoit] [autoit][/autoit] [autoit]Local $sFilePath1 = @ScriptDir & "\" & $input_File_Name;This file should already exist
[/autoit] [autoit][/autoit] [autoit]Local $r=1
Local $aArray1 = StringSplit( "WONUMMER, WOTYP, TELPLUSAUFTRAG, ORDERENTRY, TERMIN, TIMESLOT, TECHNIKER ,KDNR, VORNAME, NACHNAME, PLZ, ORT, STRASSE, HSNR, HSNRZUSATZ, RFNRPRIVAT ,UNITYRFNR, SONSTIGERFNR, WEOBJEKT, HSKOMMENTAR, FIBERNOTE, CLINE, ADRESSEUP ,L4AUSBAUTYP, L4AUSBAUDATUM , L4NETZSTRUKTUR, SCREAMBLEDID, INSTHARDWARE, F2KOMMENTAR, AKTIVEHSI", ",")
Local $oExcel = _ExcelBookOpen($sFilePath1, 0)
Local $aArray = _ExcelReadArray($oExcel, 4, 1, 31) ;Direction is Horizontal
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim $sArrayString = _ArrayToString( $aArray,";", 0, 31 )
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Local $aArray=StringSplit($sArrayString,";")
;Local $aArray1=StringSplit($sArrayString1,"")
For $i=1 To $aArray[0]
MsgBox(0,"","Der Excelwert: " & $aArray[$i] & " und der SQL Wert: " & $aArray1[$r] )
$r+=1
Next
_ExcelBookClose($oExcel) ; And finally we close out
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]Wäre nett wen mir jemand wieder auf den Weg helfen würde.
Gruß Jan