Hallo zusammen,
ich habe eine Frage zu _Excel_RangeRead.
Ich exportiere Daten nach Excel, bearbeite sie und importiere wieder zurück, um die Daten anschließen in einer Textdatei zu ersetzen.
Beim Import aus Excel ist am Ende immer eine leere Zeile drin, welche stört, da der Array mit Semikolon zu Text gewandelt wird.
Die Leere Zeile auch drin, wenn ich einfach Export und gleich wieder import drücke, ohne die Exceldatei bearbeitet zu haben.
Weiß jemand warum?
AutoIt
Func _ExcelImport()
Global $aWorkBooks = _Excel_BookList()
If $aWorkBooks[0][1] = '' Then
MsgBox(1, 'Error', 'No Excel open')
Return
EndIf
MsgBox(1, 'Excelimport', 'Do you want to import the current excelsheet and overwrite the CN file?' & @CRLF & $aWorkBooks[0][2] & '\' & $aWorkBooks[0][1])
Local $aExcelImport
$oExcel = _Excel_Open()
$oWorkbook = _Excel_BookAttach($aWorkBooks[0][2] & '\' & $aWorkBooks[0][1])
$aExcelImport = _Excel_RangeRead($oWorkbook, $oWorkbook.Activesheet, Default, 1);<<<<<<<<<<<<<<<<<<<<<<<<<
$sExcelImport = $aExcelImport[1][0]
_SearchString($sExcelImport)
$aExtract = $aExcelImport
_ArrayDisplay($aExtract)
$aExtractOld = _ArrayExtract($ar, $extendAnfang, $extend - 1)
;~ _ArrayDisplay($aExtractOld)
Local $sNewOp = _ArrayToString($aExtract, ';', 1)
Local $sOldOp = _ArrayToString($aExtractOld, @CRLF, 1)
;~ _Replace($sOldOp, $sNewOp)
MsgBox(0, 'Import complete', 'Data has been updated.')
EndFunc ;==>_ExcelImport
Alles anzeigen
VG
horphi