auf offenes Excel Arbeitsblatt zugreifen

bwald

Hallo,
ich versuche gerade mein Autoit script auf die neue Version Excel UDF umzustellen.
Komme aber mit meiner Unfähigkeit auf keinen grünen Zweig.(trotz Such tools)

gegen ist ein offenes Excel Workbook und will das aktive Arbeitsblatt auslesen
Alt Excel UDF:
Global $oExcel = ObjGet("","Excel.Application")
$ExcelTabelle_Array = _ExcelReadSheetToArray($oExcel)

wie funktionierts mit Excel UDF 3.3.8.1

wie komme ich an das $oWorkbook,$vWorksheet für die Funktion _Excel_RangeRead

_Excel_RangeRead ( $oWorkbook [, $vWorksheet = Default [, $vRange = Default [, $iReturn = 1 [, $bForceFunc = False]]]] )

danke im vorraus

ewald

gmmg

Hier mal ein Beispiel mit einer Excel Datei, die du Öffnen musst.
Könntest deine ja auch

AutoIt

$path = @ScriptDir & "\test.xlsx"
	Local $oExcelapp = _Excel_Open(0,0,1,1,1)
	Local $oExcel = _Excel_BookOpen($oExcelapp, $path)
	If @error = 1 Then
		MsgBox(0, "Error!", "Unable to Create the Excel Object")
		Exit
	ElseIf @error = 2 Then
		MsgBox(0, "Error!", "File does not exist - Shame on you!")
		Exit
	EndIf
	$aArray = _Excel_RangeRead($oExcel,Default,Default)
	_Excel_BookClose($oExcel, True)
	_Excel_Close($oExcelapp, Default, True)
        _ArrayDisplay($aArray, "Array using Default Parameters")




$activeSheet = $oWorkbook.ActiveSheet.Name		; prüfe welches Sheet aktiv


	If $activeSheet <> $id Then $oWorkbook.Sheets($id).Activate	; aktiviere sheet mit accountname, wenn nicht schon aktiv ($id = Sheetname)

Alles anzeigen

gruß gmmg

bwald

@error:
1 - $oWorkbook is not an object or not a workbook object

Ich kenne meine Excel Datei nicht, die heißt immer anders, deshalb will ich ja die "geöffnete" auslesen

**water**

Um Dich an die geöffnete Excel-Datei (Workbook) anzuhängen, verwende _Excel_BookAttach.

gmmg

Wer hat denn diesen Prozess definiert, dass du die Datei nicht kennst ? Wird die Excel automatisch erzeugt und dann in einen Pfad xy abgelegt?
Irgendeiner muss die Datei ja öffnen. Geschiet das aus einem Programm heraus oder von Hand?

wie Water geschrieben hat, so sollte es gehen.

Die Dateien mit Filelist auflisten lassen und nacheinander abarbeiten wäre auch möglich.

Hier noch ein Beispiel zum auslesen eines Existierenden Files.

Code

#include <Excel.au3>


Local $aWorkBooks = _Excel_BookList()
;_ArrayDisplay($aWorkBooks)


$sFileName = $aWorkBooks[0][2] & "\" & $aWorkBooks[0][1]


Local $oExcelDoc = ObjGet($sFileName) ; Get an Excel Object from an existing filename
$aArray = _Excel_RangeRead($oExcelDoc, Default,Default)
_ArrayDisplay($aArray)

Alles anzeigen

Gruß gmmg

bwald

Die Exceldateien haben viele Namen und Pfade, es ist eben so

Lösungsansatz ist und funktioniert auch

$oExcel = ObjGet("","Excel.Application")
$aWorkBooks = _Excel_BookList()
$sWorkbook = $aWorkBooks[0][2] & "\" & $aWorkBooks[0][1] ; wenn nur eine excel offen
$oWorkbook = _Excel_BookAttach($sWorkbook)
_Excel_RangeRead($oWorkbook, Default)

Danke an water

schönen Gruß

bwald

gmmg

na super

Viele Grüße

gmmg