Beiträge von autoit_dau

$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)

#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