Excel Werte kopieren und woanders einfügen

Broko

Hallo zusammen,

ich bin mir nicht sicher ob das mit Autoit möglich ist, da ich noch relativ neu in dem Gebiet bin.

Was ich machen möchte:
Aus einer Excel-Liste den ersten Wert einer Spalte auslesen und kopieren, dann in einer anderen Software einfügen. -> Danach soll er eine von mir bereits geschriebenes Script ausführen.
Dann soll er die den nächsten Wert(eine Zeile runterspringen) der gleichen Spalte auslesen und kopieren und wieder in die Software einfügen -> Dann wieder mein Script ausführen.

Das soll dann solange ausgeführt werden, bis kein Wert mit in der Spalte steht.

Funktioniert das? Falls ja wie?

Habe schon von dem Excel include gelesen, womit man dann mehr Funktionen hat.

Freue mich auf eure Hilfe, danke!

gmmg

Hallo,

ja, das geht. Ich würde empfehlen, alle zeilen in ein array zu lesen und dieses dann abzuarbeiten.

Beispiel für ein komplettes auslesen des Excel Sheets.

AutoIt

#include <Array.au3>
#include <Excel.au3>


$path = "d:\Excel.xls"


Local $oExcelapp = _Excel_Open(False)
Local $oExcel = _Excel_BookOpen($oExcelapp, $path)
Local $aArray = _Excel_RangeRead($oExcel,Default,Default)
_Excel_BookClose($oExcel, True)
_Excel_Close($oExcelapp, Default, True)
_ArrayDisplay($aArray)


For $i = 0 to UBound($aArray) -1
	;MsgBox(0,"",$aArray[$i][2])  ; muss angepasst werden, in dem abschnitt kannst du auch die Übergabe realisieren, am besten man erstellt eine Funktion und ruft diese auf. wie folgt.
        _übergabe_an_anderes_Programm()
Next


Func _übergabe_an_anderes_Programm()
     ;hier den quelltext einfügen
Endfunc

Alles anzeigen

Bei fragen einfach mal melden. Im Forum sollte es auch diverse Beispiele geben.

Gruß gmmg

Broko

Hallo gmmg,

vielen Dank für deine rasche Antwort!

Das sieht schonmal super aus, ich probiere es gleich morgen aus und gebe dann eine Rückmeldung ob es geklappt hat!

Gruß Broko

Broko

Halo gmmg,

ich habe den Code gerade ausprobiert und es funktioniert wirklich super und einwandfrei!
Vielen dank dafür schonmal!

Eine Frage hätte ich aber noch, kann ich die For-Schleife so anpassen das ich bei jeder Stelle des Arrays, also jeder Zeile etwas ausführe? Oder kann ich jetzt sowieso einfach jede Stelle im Array nach der For-Schleife noch ansprechen?

Weil ich möchte halt das Wert x in Zeile y kopiert wird und dann im anderen Programm eingefügt wird, danach soll xy ausgeführt werden und dann das gleiche mit dem nächsten Wert aus der Exceltabelle.

Ich hoffe du verstehst worauf ich hinaus will :).

Vielen Dank im Vorraus!

Gruß Broko

gmmg

Anbei nochmal ein Beispiel, wie man dann in eine andere Spalte schreibt.

AutoIt

#include <Array.au3>
#include <Excel.au3>


$path = "d:\excel_test..xls"


Local $oExcelapp = _Excel_Open(False)
Local $oExcel = _Excel_BookOpen($oExcelapp, $path)
Local $aArray = _Excel_RangeRead($oExcel,Default,Default)
_ArrayDisplay($aArray)


For $i = 0 to UBound($aArray) -1
	;MsgBox(0,"",$aArray[$i]) 
	_Excel_RangeWrite($oExcel, $oExcel.Activesheet, $aArray[$i], "B" & $i +1)  ; das +1, weil das scheiben ja in B1 beginnen soll, das Array aber mit 0 beginnt.


Next


_Excel_BookClose($oExcel, True)
_Excel_Close($oExcelapp, Default, True)

Alles anzeigen

gruß gmmg