Hey ,
ich habe folgendes Problem ich habe einen einzelne zelle die ich lese und die ich in einen Editbox reinschreiben müsste.
meine zelle sieht so aus"Alles in einer Zelle":
aaa
bbb
ccc
ddd
aber wenn ich das dan in die editbox reinschreibe sieht es so aus:
aaabbbcccddd
Hier meine Funktion was mache ich falsch oder was könnte ich besser machen?
[autoit]Func _findxls($sFilePath, $sSuchbegriff)
[/autoit][autoit][/autoit][autoit]Local $oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 0
Local $oBook = $oExcel.Workbooks.Open($sFilePath)
Local $oSheet = $oBook.Sheets(1)
Local $Zelle, $Address
$Zelle = $oSheet.UsedRange.Find($sSuchbegriff)
If $Zelle <> '' Then
$Address = $Zelle.Address
$b = $oSheet.Range(StringReplace($Address, '$', '') ).Offset(0, 1).Value
EndIf
GUICtrlSetData($Edit1, $b)
$oExcel.Application.Quit
[/autoit][autoit][/autoit][autoit]EndFunc
[/autoit]