Hallo,
ich bitte um Unterstützung.
In dem folgenden Auszug wird über WinList() die aktuell geöffneten Excelfenster ermittelt. Anschließend sollen die Arbeitsblätter dieses Excelfensters ermittelt werden.
In diesem Moment weiß ich den Pfad der Datei nicht um diese über _ExcelBookOpen zu öffnen. Mit _ExcelBookAttach finde ich auch nicht die funktionierende Lösung.
Ziel ist es, dass die Arbeitsblätter der jeweiligen geöffneten Datei ausgelesen werden.
Vorbereitung: verschiedene Exceldateien öffnen
Spoiler anzeigen
#include <Array.au3>
#include <Excel.au3>
Local $var = WinList()
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To $var[0][0]
; Listet nur die sichtbaren Fenster auf, die einen Titel haben
If $var[$i][0] <> "" And IsVisible($var[$i][1]) And StringInStr($var[$i][0],"- Excel") Then
MsgBox(0, "Details", "Titel=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
$oExcel = _ExcelBookAttach($var[$i][0],"Title")
$aArray = _ExcelSheetList($oExcel)
_ArrayDisplay($aArray,"alle sheets")
EndIf
Next
Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>IsVisible
[/autoit]Ist das so verständlich?
Danke und Gruß