2D Array & Excel_RangeWrite

Matricus

Grüße!

Großes, kleines Projekt, wie es noch einmal so ist.

Im Moment liebäugle ich damit einen Teil meines Scripts zu optimieren, welches sich mit dem Umsortieren großer Datenmengen in Excel befasst.
Die Daten stammen aus einem dynamischen 2D-Array.

Langsamste Stelle im Script ist aktuell das Schreiben einer gesamten Spalte des 2D-Arrays in die (sich ständig ändernde) Excel-Spalte.

Aktuell schreibt das Skript jede Zeile dieser Spalte manuell in die Datei.
Vereinfachtes Beispiel:

Spoiler anzeigen

[autoit]

#include <Excel.au3>

[/autoit] [autoit][/autoit] [autoit]

$File = @ScriptDir & "\Example.xlsx"

[/autoit] [autoit][/autoit] [autoit]

$oExcel = _Excel_Open(False, False, False, False, True) ; hidden thread
$hExcel = _Excel_BookOpen($oExcel, $File)
$aContent = _Excel_RangeRead($hExcel)

[/autoit] [autoit][/autoit] [autoit]

For $i=0 To UBound($aContent, 1)-1 Step 1
_Excel_RangeWrite($hExcel, Default, $aContent[$i][1], "E" & ($i+1))
Next

[/autoit] [autoit][/autoit] [autoit]

_Excel_BookClose($hExcel)
_Excel_Close($oExcel)

[/autoit]

Bei steigendem row-count dauert das natürlich entsprechend lange.

Gibt es eine Möglichkeit, direkt eine bestimmte Array-Spalte oder -Zeile in eine Excel-Spalte/-Zeile zu schreiben, ohne die einzelnen Felder des Arrays per loop durchzugehen?
Ich dachte daran, vielleicht direkt VBA-Code an das Objekt zu hängen statt die Funktion zu verwenden, aber aus den VBA-Schnipseln innerhalb der RangeWrite-Funktion der UDF werde ich diesbezüglich nicht schlau.

Vielleicht habt's ihr noch einen spontanen Hinweis.

Cheerio,
Matricus

**Schnitzel**

Sieh dir mal Beispiel 4 aus der Hilfe an: https://www.autoitscript.com/autoit3/docs/l…_RangeWrite.htm
Damit sollte es doch egtl funktionieren

**water**

Die Excel UDF schreibt immer den kompletten Array nach Excel. Eine Möglichkeit wäre, die Spalte aus Deinem Array mit Hilfe einer der _Array* Funktionen in einen neuen Array zu kopieren und diesen dann an die _Excel_RangeWrite Funktion zu übergeben.

**water**

Beispiel 4 funktioniert nicht, da immer der selbe Wert in alle Zellen einer Spalte geschrieben wird.

Matricus

Zitat von water

Die Excel UDF schreibt immer den kompletten Array nach Excel. Eine Möglichkeit wäre, die Spalte aus Deinem Array mit Hilfe einer der _Array* Funktionen in einen neuen Array zu kopieren und diesen dann an die _Excel_RangeWrite Funktion zu übergeben.

Guter Einfall, die zu kopierende Spalte einfach in ein neues 1D-Array zu kopieren.
Werde ich bei Gelegenheit mal versuchen, vielen Dank.

Zitat

Sieh dir mal Beispiel 4 aus der Hilfe an: autoitscript.com/autoit3/docs/…ons/_Excel_RangeWrite.htm
Damit sollte es doch egtl funktionieren

Wie bereits von Water erwähnt, funktioniert dies leider nicht so ganz mit mehreren Werten, außer man übergibt ein komplettes Array.

Matricus

Da ich gerade mal ein paar Minuten hatte und den Thread damit auch schließen möchte...
Zur Optimierung wird nun, wie von Water vorgeschlagen, ein 1D-Array aus einer Spalte des 2D-Arrays erstellt und dieses entsprechend geschrieben.

Angepasstes Beispiel:

Spoiler anzeigen

[autoit]

#include <Excel.au3>
; Array Include nicht benötigt, da Teil von Excel.au3

[/autoit] [autoit][/autoit] [autoit]

$iCol = 2 ; zu schreibene Spalte
$eCol = _Excel_ColumnToLetter($iCol+4) & "1" ; Zielspalte in Excel (+4 fürs Beispiel, da sonst überschrieben wird)

[/autoit] [autoit][/autoit] [autoit]

$File = @ScriptDir & "\Example.xlsx"

[/autoit] [autoit][/autoit] [autoit]

$oExcel = _Excel_Open(False, False, False, False, True) ; hidden thread
$hExcel = _Excel_BookOpen($oExcel, $File)
$aContent = _Excel_RangeRead($hExcel)

[/autoit] [autoit][/autoit] [autoit]

$aExtract = _ArrayExtract($aContent, 0, UBound($aContent, 1)-1, $iCol, $iCol) ; Extract Column 3
_Excel_RangeWrite($hExcel, Default, $aExtract, $eCol)

[/autoit] [autoit][/autoit] [autoit]

_Excel_BookClose($hExcel)
_Excel_Close($oExcel)

[/autoit]

Vielen Dank für die Hilfe!

**water**