Delphi 2010 Professional & Excel 2007 TypeLibrary Probleme

[Cyberaxx]

Danke, ich werds mal ausprobieren.

Ich brauche es nicht für sehr umfangreiche dinge, zumindest bis jetzt...

Es soll einfach eine Preisliste aus MySQL ans Excel übergeben werden, natürlich mit ein paar Formatierungen, Hintergrundfarbe, Textfarbe, Zellen -höhe/-breite. Vielleicht auch mal eine kleine Formel düe übergeben wird.

Das ganze ist ein Test, ob das mit Delphi und ein wenig Automatisierung besser klappt als es zu Fuß zu machen. Hierbei dürfen die Breite des Dokumentes nicht überschritten werden und die Länge ebenfalls nicht Dann muss eine neue "Seite" her.

Gruß
Daniel

[madtom]

Hallo,

ich habe selbst einmal für ein Projekt den Report mit Word erstellt inklusive Kopf und Fußzeile, Seitenzahlen etc.
Falls Du einen Ansatz brauchst, wie dies oder das mit Delphi zu lösen ist, nutze in Word die Macrofunktion, zeichne die Arbeitschritte auf, die Du normalerweise in Word machen würdest und den von Word erzeugten VBA Code kannst Du zu großen Teilen (mit kleinen Delphi spezifischen Änderungen) in Dein Projekt übernehmen.

Gruß

Thomas

[Cyberaxx]

Hallo

Ich habs nun am Laufen. Durch mehrere Seiten habe ich nun auch einiges abgedeckt in einer kleinen Demo App.
Was aber noch Fehlt sind Methoden um den Zellenrahmen zu entfernen, Rahmenteile definieren und in dem Quelltext den ich bisher habe, kann ich auch nur rahmenstärke von 1-4 setzen aber in Excel ansich gibts ja noch mehr, mit Punkten z.B. natürich noch die Methoden wie Rahmenfarbe.

Wo kann ich die Doku finden, was alles möglich ist und welche Werte ich einsetzen muss?

z.B. sowas:

Delphi-Quellcode:

  // SheetType
  xlChart = -4109;
  xlWorksheet = -4167;
  // WBATemplate
  xlWBATWorksheet = -4167;
  xlWBATChart = -4109;
  // Page Setup
  xlPortrait = 1;
  xlLandscape = 2;
  xlPaperA4 = 9;
  // Format Cells
  xlBottom = -4107;
  xlLeft = -4131;
  xlRight = -4152;
  xlTop = -4160;
  // Text Alignment
  xlHAlignCenter = -4108;
  xlVAlignCenter = -4108;
  // Cell Borders
  xlThick = 4;
  xlThin = 2;

[Chemiker]

Hallo Cyberaxx,

die Doku ist die Hilfe von VBA in Excel, wie madtom schon geschrieben hat, kommt man am besten zum Ziel, wenn man sich einen Macro aufzeichnet und diesen dann in Delphi nachbildet.

Delphi-Quellcode:

olevEXCEL.range['A2','A2'].Select; // Die Zelle A2 
  olevEXCEL.Selection.Borders[xlEdgeLeft].LineStyle := xlDashDot;
  olevEXCEL.Selection.Borders[xlEdgeLeft].ColorIndex := 5; // blau
  olevEXCEL.Selection.Borders[xlEdgeLeft].TintAndShade := 0;
  olevEXCEL.Selection.Borders[xlEdgeLeft].Weight := xlMedium;

Damit wird die Zelle A2 markiert und auf der linken Seite mit einem blauen Rahmen versehen.

Bis bald Chemiker

[Cyberaxx]

Hallo

Weder das eine noch das andere mag mein Excel 2007

Die Zelle A2 wird zwar selektiert aber es kommt kein Rahmen.

Wenn ich den Makro Recorder benutze sieht es genau so aus. Egal was ich nutze es taucht nicht in Excel auf.

Code:

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThin
    End With

Delphi-Quellcode:

  Excel.Range['A1:L3'].Select;
  Excel.Selection.Borders[xlDiagonalDown].LineStyle := xlNone;
  Excel.Selection.Borders[xlDiagonalUp].LineStyle := xlNone;
  Excel.Selection.Borders[xlEdgeLeft].LineStyle := xlNone;

  Excel.Selection.Borders[xlEdgeTop].LineStyle := xlContinuous;
  Excel.Selection.Borders[xlEdgeTop].Color := -16777024;
  Excel.Selection.Borders[xlEdgeTop].TintAndShade := 0;
  Excel.Selection.Borders[xlEdgeTop].Weight := xlThin;

Hier passiert ebenfalls nichts weiter als der Range selekt.

// http://www.swissdelphicenter.ch/de/showcode.php?id=156

Das hier hingegen funktioniert ohne Probleme es deckt nur leider nicht alles ab was ich benötige.
Wo steckt hier nur der Fehler?

[Chemiker]

Hallo Cyberaxx,

als bei mir funktioniert Dein Quellcode. Vielleicht ist das Worksheet nicht aktiviert.

Delphi-Quellcode:

olevEXCEL.ActiveWorkbook.Worksheets['Tabelle1'];
olevEXCEL.range['A2','B2'].Select;
...
...

Bis bald Chemiker

[Cyberaxx]

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.