Aktive Zelle ermitteln

autoit_dau

Hallo erst mal!

ich hab mir schon die Finger wuschig gesucht. Wie kann man die aktuelle Zelle aus einem Tabellenblatt ermitteln. Soll heißen.
eine offene Arbeitsmappe
ich bin z.B. In B12

und diesen inhalt soll mir autoit dann verraten mit _ExcelReadCell(ebeneermitteltzeile;ebenermitteltspalte)

ich kanns einfach nicht finden - danke schon mal!

der dau

progandy

So was in die Richtung?
http://msdn.microsoft.com/en-us/library/…fice.11%29.aspx

Da musst du direkt auf das COM-Objekt zugreifen, es gibt keine UDF dafür.

autoit_dau

Danke,
bin aber dau.

Code

#include<Misc.au3>
#Include <Excel.au3>


$sFilePath1 = @ScriptDir & "\mappe.xls"
$oExcel = objCreate("Excel.Application")
$oExcel.Visible = 1
sleep(200)
$oBooks = $oExcel.Workbooks.Open($sFilePath1)
$oSheet = $oBooks.Worksheets("Tabelle1")
$oActive = $oSheet.ActiveCell.Value




msgbox(0,"Zelle:",$oActive)
$oBooks.Close
$oExcel.Quit

Alles anzeigen

folgenden Fehler bekomme ich dann:
==> The requested action with this object has failed.:
$oAvtive = $oSheet.ActiveCell.Value
$oAvtive = $oSheet.ActiveCell^ ERROR
>Exit code: 1 Time: 1.618

Was mache ich schon wieder falsch??

Danke schon mal!

BurakSZ

So wie es aussieht gibt es kein $oAvtive = $oSheet.ActiveCell.Value. Falsches Objektoption (kp wie das heißt) gewählt, es gibt kein Value in dem Objekt. Such mal bei google nach Beispielen und/oder guck dir noch mal die Objektreferenz an.

progandy

Oder es gibt kein $oSheet.ActiveCell. Versuche doch mal $oExcel.ActiveCell.

nuts

edit \ Sorry, natürlich geht das!

Spoiler anzeigen

[autoit]

#include <Excel.au3>
$oExcel = _ExcelBookNew()

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

_ExcelWriteCell($oExcel,'Hallo','A1')
$test=$oExcel.ActiveCell.Column
$test2=$oExcel.ActiveCell.Row
ConsoleWrite(VarGetType($test) & @crlf)
ConsoleWrite('Aktive Cell: '& $test2& ' ' & $test &@crlf)

[/autoit]

Allerdings beide als integer.

autoit_dau

Danke!

Stimmt es lag an : $oExcel.ActiveCell

Code

$sFilePath1 = @ScriptDir & "\mappe.xls" ; Diese Datei sollte bereits existieren und im selben Verzeichnis wie das AutoitSkript  liegen
$oExcel = objCreate("Excel.Application")
$oExcel.Visible = 1
$oBooks = $oExcel.Workbooks.Open($sFilePath1)


HotKeySet("{F8}","_stopIt")			; F8 Beendet Programm
$runner = True
;HotKeySet("{F6}","_nextVar")			; F6 nächste zu ersetzende Variable


_ExcelSheetActivate($oExcel, "Vardirekt")


;WinWaitActive("Microsoft Excel - mappe.xls","")


	$oActiveRow = $oExcel.ActiveCell.Row		;Zeile
	$oActiveCol = $oExcel.ActiveCell.Column		; Spalte
	$oActive = StringLeft($oExcel.ActiveCell.Value, 26)	;Wert 




		MsgBox(0, "Quellfeld	", $oActive)

Alles anzeigen

Danke an alle - ich denke es ist gelöst

progandy

Schön. Ich habe aber noch einen Tipp für dich. Verwende nicht immer o als ersten Buchstaben der Variablen. Dieser Buchstabe soll anzeigen, dass die Variable ein Objekt beinhaltet. Für Ganzahlen solltest du ein i verwenden, für Strigs ein s. Unbekannte Typen werden mit v gekennzeichnet. Dadurch wird der Code übersichtlicher.

[autoit]

$iActiveRow = $oExcel.ActiveCell.Row ;Zeile

$iActiveCol = $oExcel.ActiveCell.Column ; Spalte
$sActiveCol = Chr(64+$iActiveCol) ; So kann die Spalte in den Buchstaben umgewandlet werden

$vActive = StringLeft($oExcel.ActiveCell.Value, 26) ;Wert

[/autoit]

m-obi

Und a für Array und b für Bool.