Forum: Programmieren allgemein
by HolgerX,
3. Okt 2016
So, mal deinen Quellcode überarbeitet
procedure TForm1.Button1Click(Sender: TObject);
var
oExcel: OLEVariant;
oWB1: OLEVariant;
oWS1: OLEVariant;
oWS2: OLEVariant;
begin
try
Forum: Programmieren allgemein
by HolgerX,
30. Sep 2016
Hallo,
lass mall das "WBOj" weg..
Excel := CreateOLEObject('Excel.Application'); // Excel-Verbindung öffnen
Excel.Application.Workbooks.Add; // Seite erstellen
Excel.WorkSheets.Name:=Copy(SheetName,1,30); // Arbeitseitenname setzen = max 30 Zeichen
...