Forum: Programmieren allgemein
by Elvis,
31. Jul 2012
Wenn deine Excel-Version auch kein TopLeftCell hat (welches nutzt du überhaupt?), dann kannst du ähnlich wie in der von mir geposteten Funktion vorgehen um die Zelle links oben :mrgreen: zu finden.function FindCellAtPos(workSheet : OleVariant;
const x,
y : Integer;
const startAtColumn : Integer = 1;
...
Forum: Programmieren allgemein
by Elvis,
30. Jul 2012
Das hier liefert dir die untere, rechte Zelle.
function FindBottomRightCellOfShape(shape, workSheet : OleVariant) : OleVariant;
var
rightColumn,
bottomRow,
currentRange : OleVariant;
right,
bottom,
columnIndex,
rowIndex : Integer;
Forum: Programmieren allgemein
by Elvis,
30. Jul 2012
Da ich hier kein Delphi habe, hab ich's gerade mal schnell mit VBA und dann in LinqPad (C#) probiert:
var appType = Type.GetTypeFromProgID("Excel.Application");
dynamic excelApp = Activator.CreateInstance(appType);
var workBook = excelApp.Workbooks.Open(@"jadajada\Excel-Controls Test.xlsx");
var msoTextBox = 12;
var msOLEControlObject = 19;
var activeSheet = workBook.ActiveSheet;