Liest Informationen in eine Zelle der aktiven Excel-Datei des festgelegten Excel-Objekts.
#include <Excel.au3>
_ExcelReadCell($oExcel, $sRangeOrRow [, $iColumn = 1])
| $oExcel | Ein Excel Objekt welches durch einen vorherigen Aufruf von _ExcelBookOpen() oder _ExcelBookNew() geöffnet wurde |
| $sRangeOrRow | Entweder ein A1 Bereich oder eine Integer Zeilennummer um es im Format R1C1 zu lesen |
| $iColumn | [optional] Die Spalte von der gelesen werden soll, falls das Format R1C1 verwendet wird (Standard = 1) |
| Erfolg: | Die Daten von der festgelegten Zelle |
| Fehler: | 0 und setzt @error |
| @error: | 0 - Kein Fehler |
| 1 - festgelegtes Objekt existiert nicht | |
| 2 - Parameter außerhalb des Bereichs | |
| @extended: | 0 - Zeile außerhalb des Bereichs |
| 1 - Spalte außerhalb des Bereichs |
; ***************************************************************
; Beispiel 1 - Schreibt in eine Zelle, liest die Zelle dann aus und zeigt den Wert an, dann wird gespeichert und die Datei geschlossen.
; *****************************************************************
#include <Excel.au3>
Local $oExcel = _ExcelBookNew() ; Erzeugt eine neue Mappe, macht sie sichtbar
_ExcelWriteCell($oExcel, "AutoIt", 1, 1) ; Schreibt in die Zelle [1,1]
Local $sCellValue = _ExcelReadCell($oExcel, 1, 1)
MsgBox(0, "", "Der Zellwert ist: " & @CRLF & $sCellValue, 2) ; Anzeige max. 2 Sekunden
MsgBox(0, "Beenden...", "Drücke OK, um die Datei zu speichern und Excel zu beenden.")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; Nun wird die Datei in das Temp-Verzeichnis gespeichert. Falls notwendig werden existierende Dateien überschrieben.
_ExcelBookClose($oExcel) ; Und zum Schluss schließen wir die Datei.
; ***************************************************************
; Beispiel 2 - Schreibt in einen Zellbereich unter Verwendung einer Schleife, liest die Zellen dann aus, zeigt diese an, dann wird gespeichert und die Datei geschlossen.
; *****************************************************************
#include <Excel.au3>
$oExcel = _ExcelBookNew() ; Erzeugt eine neue Mappe, macht sie sichtbar
For $i = 1 To 5 ; Schleife 1
_ExcelWriteCell($oExcel, $i, $i, 1) ; Schreibt in die Zelle [$i,1]
Next
For $i = 1 To 5 ; Schleife 2
$sCellValue = _ExcelReadCell($oExcel, $i, 1) ; Zelle [$i,1] auslesen
MsgBox(0, "", "Der Zellwert ist: " & @CRLF & $sCellValue, 2) ; Anzeige max. 2 Sekunden
Next
MsgBox(0, "Beenden...", "Drücke OK, um die Datei zu speichern und Excel zu beenden.")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; Nun wird die Datei in das Temp-Verzeichnis gespeichert. Falls notwendig werden existierende Dateien überschrieben.
_ExcelBookClose($oExcel) ; Und zum Schluss schließen wir die Datei.