Mir gelingt es zwar, den Inhalt einer Zelle auszulesen, aber es ist immer die gleiche.
Der Wunsch ist, mit der Maus eine Zelle zu aktivieren und dann den Inhalt verschiedener Zellen in der gleichen Zeile zu kopieren. Diese Inhalte übertrage ich dann automatisch in Thunderbird in den Kalender (Lightning).
Danach wechsle ich mit ALT+TAB wieder zu Excel und suche die nächste gewünschte Zelle, klicke auch dort wieder mit der der Maus.
Da würde ich erwarten, daß jetzt die Adresse der Zelle eine andere ist. Ist sie aber nicht. Was mache ich falsch?
Mein Script:
AutoIt
#include <GuiConstantsEx.au3>
#include <ClipBoard.au3>
#include <WindowsConstants.au3>
#Include <String.au3>
#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>
#include "FF.au3"
Opt("WinTitleMatchMode", 2);1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, "test.xlsx")
If @error Then
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error opening workbook '" & @ScriptDir & "test.xlsx" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oExcel)
Exit
EndIf
; *****************************************************************************
; Read data from a single cell on the active sheet of the specified workbook
; *****************************************************************************
local $zelle = $oExcel.ActiveCell.address
MsgBox(1,"",$zelle)
Local $sResult = _Excel_RangeRead($oWorkbook, Default, $zelle)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Data successfully read." & @CRLF & "Value of cell A1: " & $sResult)
Alles anzeigen