Hm... Habe es nun geändert auf
Code:
EXCEL.ActiveWorkbook.Worksheets['Tabelle1'];
Excel.Cells[2, 1].Value := 'test2';
Excel.range['A2','A2'].value := 'test';
Excel.range['A2','A2'].Select; // Die Zelle A2
Excel.Selection.Borders[xlEdgeLeft].LineStyle := xlDashDot;
Excel.Selection.Borders[xlEdgeLeft].ColorIndex := 5; // blau
Excel.Selection.Borders[xlEdgeLeft].TintAndShade := 0;
Excel.Selection.Borders[xlEdgeLeft].Weight := xlMedium;
Der Text steht in der betreffenden Zelle und sie ist auch markiert genau wie vorher. Jedoch der Rahmen ist immernoch nicht vorhanden.
TExcelApplication hab ich auf meiner Form. Ka aber ohne die gehts ja nicht.
Excel Starten:
Delphi-Quellcode:
try
Excel := GetActiveOleObject('Excel.Application');
except
Excel := CreateOleObject('Excel.Application');
end;
Excel.Visible := True;
da kein Arbeitsblatt existiert:
Excel.Workbooks.Add(xlWBatWorkSheet);
ist ja auch gleich mien aktives.
und zu guter letzt eben die Zelle umranden.