AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
• Registrieren

LineStyle Eigenschaften bei Office 2003

Ein Thema von ErdNussLocke · begonnen am 17. Nov 2008 · letzter Beitrag vom 17. Nov 2008
Antwort Antwort
ErdNussLocke

Registriert seit: 30. Jan 2006
104 Beiträge
 
#1

LineStyle Eigenschaften bei Office 2003

  Alt 17. Nov 2008, 11:51
Hi,

Ich exportiere mittels OLE Daten aus einem Stringgrid nach Excel. Verwendet werden an verschiedenen PCs auch verschiedene
Office Versionen (2003 und 2007).
Zuerst benutzte ich nur eine Tabelle (im Quelltext die zweite), diese funktionierte bestens mit beiden Versionen. Die im Quelltext
erste Tabelle und die Einstellungen für Farbe etc. habe ich nachträglich eingefügt. Seit dem ich das getan habe, kommt bei Excel
2003 folgende Meldung:

"Die LineStyle Eigenschaft des Border Objects kann nicht festgelegt werden"

Auch wenn ich durch Kommentieren die Einstellungen des LineStyle entferne, irgendeine Einstellung kann immer nicht gemacht werden.
Nach den LineStyle Eigenschaften können die ColorObject Eigenschaften nicht getätigt werden. Dies geht immer so weiter, bis
schließlich alles wegkommentiert ist Dann gehts... Nur ohne die gewünschten Einstellungen.
Wie gesagt, mit nur der ersten Tabelle ging es (wenn ich den Text zurück ändere, zum Stand als es funktionierte, geht es trotzdem nicht mehr).
Können irgendwelche Einstellungen in Excel geändert worden sein, die nun Probleme machen?

Habe unter uses ExcelXP und Excel2000 eingestellt.

Der Code:

zusammenfalten · markieren
Delphi-Quellcode:
//erste Tabelle (nur erste Zeile, eingerahmte Überschrift)
XLApp.Range['A1','G1'].Borders[xlDiagonalDown].LineStyle := xlNone;
XLApp.Range['A1','G1'].Borders[xlDiagonalUp].LineStyle := xlNone ;
XLApp.Range['A1','G1'].Borders[xlEdgeLeft].LineStyle := xlContinuous;
XLApp.Range['A1','G1'].Borders[xlEdgeLeft].Weight := xlThin;
XLApp.Range['A1','G1'].Borders[xlEdgeLeft].ColorIndex := xlAutomatic;
XLApp.Range['A1','G1'].Borders[xlEdgeTop].LineStyle := xlContinuous;
XLApp.Range['A1','G1'].Borders[xlEdgeTop].Weight := xlThin;
XLApp.Range['A1','G1'].Borders[xlEdgeTop].ColorIndex := xlAutomatic;
XLApp.Range['A1','G1'].Borders[xlEdgeBottom].LineStyle := xlContinuous;
XLApp.Range['A1','G1'].Borders[xlEdgeBottom].Weight := xlThin;
XLApp.Range['A1','G1'].Borders[xlEdgeBottom].ColorIndex := xlAutomatic;
XLApp.Range['A1','G1'].Borders[xlEdgeRight].LineStyle := xlContinuous;
XLApp.Range['A1','G1'].Borders[xlEdgeRight].Weight := xlThin;
XLApp.Range['A1','G1'].Borders[xlEdgeRight].ColorIndex := xlAutomatic;
XLApp.Range['A1','G1'].Borders[xlInsideVertical].LineStyle := xlContinuous;
XLApp.Range['A1','G1'].Borders[xlInsideVertical].Weight := xlThin;
XLApp.Range['A1','G1'].Borders[xlInsideVertical].ColorIndex := xlAutomatic;
XLApp.Range['A1','G1'].Borders[xlInsideHorizontal].LineStyle := xlContinuous;
XLApp.Range['A1','G1'].Borders[xlInsideHorizontal].Weight := xlThin;
XLApp.Range['A1','G1'].Borders[xlInsideHorizontal].ColorIndex := xlAutomatic;


//zweite Tabelle (Variabel nach Stringgriddaten) -> RefToCell liefert Eckdaten des SelectRange
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlDiagonalDown].LineStyle := xlNone;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlDiagonalUp].LineStyle := xlNone ;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeLeft].LineStyle := xlContinuous;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeLeft].Weight := xlThin;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeLeft].ColorIndex := xlAutomatic;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeTop].LineStyle := xlContinuous;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeTop].Weight := xlThin;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeTop].ColorIndex := xlAutomatic;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeBottom].LineStyle := xlContinuous;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeBottom].Weight := xlThin;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeBottom].ColorIndex := xlAutomatic;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeRight].LineStyle := xlContinuous;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeRight].Weight := xlThin;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeRight].ColorIndex := xlAutomatic;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideVertical].LineStyle := xlContinuous;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideVertical].Weight := xlThin;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideVertical].ColorIndex := xlAutomatic;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideHorizontal].LineStyle := xlContinuous;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideHorizontal].Weight := xlThin;
XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideHorizontal].ColorIndex := xlAutomatic;
//Fett, Farbe, etc
XLApp.Range['A5','G5'].Font.Bold:=true;
XLApp.Range['A1','G1'].Interior.color:=clGray;
XLApp.Range['A1','G1'].Font.Bold:=true;
XLApp.Range['A1','G1'].Font.size:=13;
XLApp.Range['A1','G1'].rowheight:=25;
XLApp.Range['A5','G5'].rowheight:=25;
XLApp.Range['A5','G5'].Interior.color:=clGray;
XLApp.Range['A5','G5'].HorizontalAlignment := xlHAligncenter;
XLApp.Range['A5','G5'].VerticalAlignment := xlVAligncenter;
XLApp.Range['A1','G1'].HorizontalAlignment := xlHAligncenter;
XLApp.Range['A1','G1'].VerticalAlignment := xlVAligncenter;
XLApp.Range['A1','G1'].MergeCells := true;

Danke schonmal,

MfG
ErdNussLocke


PS: Der komplette Aufruf des Exports (aus der DD):


zusammenfalten · markieren
Delphi-Quellcode:

//Bestimmen des SelectRange für zweite Tabelle
function RefToCell(RowID, ColID: Integer): string;
var
  ACount, APos: Integer;
begin
  ACount := ColID div 26;
  APos := ColID mod 26;
  if APos = 0 then
  begin
    ACount := ACount - 1;
    APos := 26;
  end;

  if ACount = 0 then
     Result := Chr(Ord('A') + ColID - 1) + IntToStr(RowID+4);

  if ACount = 1 then
     Result := 'A' + Chr(Ord('A') + APos - 1) + IntToStr(RowID+4);

  if ACount > 1 then
     Result := Chr(Ord('A') + ACount - 1) + Chr(Ord('A') + APos - 1) +
     IntToStr(RowID+4);
end;

//Bestimmen des SelectRange für Tabellentext
function RefToCell2(RowID, ColID: Integer): string;
var
  ACount, APos: Integer;
begin
  ACount := ColID div 26;
  APos := ColID mod 26;
  if APos = 0 then
  begin
    ACount := ACount - 1;
    APos := 26;
  end;

  if ACount = 0 then
     Result := Chr(Ord('A') + ColID - 1) + IntToStr(RowID);

  if ACount = 1 then
     Result := 'A' + Chr(Ord('A') + APos - 1) + IntToStr(RowID);

  if ACount > 1 then
     Result := Chr(Ord('A') + ACount - 1) + Chr(Ord('A') + APos - 1) +
     IntToStr(RowID);
end;



//StringGrid-Inhalt nach Excel exportieren
function StringGridToExcelSheetV(Grid: TStringGrid; SheetName, FileName: string;
  ShowExcel: Boolean): Boolean;
const
  xlWBATWorksheet = -4167;
var
  SheetCount, SheetColCount, SheetRowCount, BookCount: Integer;
  XLApp, Sheet, Data: OLEVariant; SelRange: OLEVariant;
  I, J, N, M: Integer;
  SaveFileName : string;
begin
  //notwendige Sheetanzahl feststellen
  SheetCount := (Grid.ColCount div 256) + 1;
  if Grid.ColCount mod 256 = 0 then
     SheetCount := SheetCount - 1;
  //notwendige Bookanzahl feststellen
  BookCount := (Grid.RowCount div 65536) + 1;
  if Grid.RowCount mod 65536 = 0 then
     BookCount := BookCount - 1;

  //Create Excel-OLE Object
  Result := False;
  XLApp := CreateOleObject('Excel.Application');
  try
    //Excelsheet anzeigen
    if ShowExcel = false then
       XLApp.Visible := False
    else
       XLApp.Visible := True;
    //Workbook hinzufügen
    for M := 1 to BookCount do
    begin
        XLApp.Workbooks.Add(xlWBATWorksheet);
        //Sheets anlegen
        for N := 1 to SheetCount - 1 do
        begin
          XLApp.Worksheets.Add;
        end;
    end;
    //Sheet ColAnzahl feststellen
    if Grid.ColCount <= 256 then
       SheetColCount := Grid.ColCount
    else
       SheetColCount := 256;
    //Sheet RowAnzahl feststellen
    if Grid.RowCount <= 65536 then
       SheetRowCount := Grid.RowCount+9
    else
       SheetRowCount := 65536;

    //Sheets befüllen
    for M := 1 to BookCount do
    begin
        for N := 1 to SheetCount do
        begin
          //Daten aus Grid holen
          Data := VarArrayCreate([1, Grid.RowCount+9, 1, SheetColCount], varVariant);
          for I := 0 to SheetColCount - 1 do
            for J := 0 to SheetRowCount -9 do
              if ((I+256*(N-1)) <= Grid.ColCount) and ((J+65536*(M-1)) <= Grid.RowCount) then
                Data[J + 5, I + 1] := Grid.Cells[I+256*(N-1), J+65536*(M-1)];
                Data[1,1] := KF.ueber;
                Data[3,1] := form1.EKFStand.text;
                Data[sheetrowcount-3,1]:='Ferien: Ostern: '+KF.ostern+'; Sommer: '+KF.sommer;
                Data[sheetrowcount-2,1]:='Herbst: '+KF.herbst+'; Weihnachten: '+KF.weihnachten;
                Data[sheetrowcount,1]:='Sonstiges: '+KF.sonstiges;

          XLApp.Worksheets[N].Select;
          XLApp.Workbooks[M].Worksheets[N].Name := SheetName + IntToStr(N);
          //Zellen als String Formatieren
          SelRange := XLApp.Workbooks[M].Worksheets[N].Range[RefToCell2(1, 1), RefToCell2(SheetRowCount, SheetColCount)];
          SelRange.Select;

          XLApp.Selection.NumberFormat := '@';

          XLApp.Workbooks[M].Worksheets[N].Range['A1'].Select;

          XLApp.Range['A1','G1'].Borders[xlDiagonalDown].LineStyle := xlNone;
          XLApp.Range['A1','G1'].Borders[xlDiagonalUp].LineStyle := xlNone ;
          XLApp.Range['A1','G1'].Borders[xlEdgeLeft].LineStyle := xlContinuous;
          XLApp.Range['A1','G1'].Borders[xlEdgeLeft].Weight := xlThin;
          XLApp.Range['A1','G1'].Borders[xlEdgeLeft].ColorIndex := xlAutomatic;
          XLApp.Range['A1','G1'].Borders[xlEdgeTop].LineStyle := xlContinuous;
          XLApp.Range['A1','G1'].Borders[xlEdgeTop].Weight := xlThin;
          XLApp.Range['A1','G1'].Borders[xlEdgeTop].ColorIndex := xlAutomatic;
          XLApp.Range['A1','G1'].Borders[xlEdgeBottom].LineStyle := xlContinuous;
          XLApp.Range['A1','G1'].Borders[xlEdgeBottom].Weight := xlThin;
          XLApp.Range['A1','G1'].Borders[xlEdgeBottom].ColorIndex := xlAutomatic;
          XLApp.Range['A1','G1'].Borders[xlEdgeRight].LineStyle := xlContinuous;
          XLApp.Range['A1','G1'].Borders[xlEdgeRight].Weight := xlThin;
          XLApp.Range['A1','G1'].Borders[xlEdgeRight].ColorIndex := xlAutomatic;
          XLApp.Range['A1','G1'].Borders[xlInsideVertical].LineStyle := xlContinuous;
          XLApp.Range['A1','G1'].Borders[xlInsideVertical].Weight := xlThin;
          XLApp.Range['A1','G1'].Borders[xlInsideVertical].ColorIndex := xlAutomatic;
          XLApp.Range['A1','G1'].Borders[xlInsideHorizontal].LineStyle := xlContinuous;
          XLApp.Range['A1','G1'].Borders[xlInsideHorizontal].Weight := xlThin;
          XLApp.Range['A1','G1'].Borders[xlInsideHorizontal].ColorIndex := xlAutomatic;


          sheetrowcount:=sheetrowcount-9;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlDiagonalDown].LineStyle := xlNone;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlDiagonalUp].LineStyle := xlNone ;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeLeft].LineStyle := xlContinuous;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeLeft].Weight := xlThin;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeLeft].ColorIndex := xlAutomatic;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeTop].LineStyle := xlContinuous;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeTop].Weight := xlThin;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeTop].ColorIndex := xlAutomatic;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeBottom].LineStyle := xlContinuous;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeBottom].Weight := xlThin;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeBottom].ColorIndex := xlAutomatic;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeRight].LineStyle := xlContinuous;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeRight].Weight := xlThin;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlEdgeRight].ColorIndex := xlAutomatic;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideVertical].LineStyle := xlContinuous;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideVertical].Weight := xlThin;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideVertical].ColorIndex := xlAutomatic;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideHorizontal].LineStyle := xlContinuous;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideHorizontal].Weight := xlThin;
          XLApp.Range[RefToCell(1, 1), RefToCell(SheetRowCount,SheetColCount)].Borders[xlInsideHorizontal].ColorIndex := xlAutomatic;
          XLApp.Range['A5','G5'].Font.Bold:=true;
          XLApp.Range['A1','G1'].Interior.color:=clGray;
          XLApp.Range['A1','G1'].Font.Bold:=true;
          XLApp.Range['A1','G1'].Font.size:=13;
          XLApp.Range['A1','G1'].rowheight:=25;
          XLApp.Range['A5','G5'].rowheight:=25;
          XLApp.Range['A5','G5'].Interior.color:=clGray;
          XLApp.Range['A5','G5'].HorizontalAlignment := xlHAligncenter;
          XLApp.Range['A5','G5'].VerticalAlignment := xlVAligncenter;
          XLApp.Range['A1','G1'].HorizontalAlignment := xlHAligncenter;
          XLApp.Range['A1','G1'].VerticalAlignment := xlVAligncenter;
          XLApp.Range['A1','G1'].MergeCells := true;
          sheetrowcount:=sheetrowcount+9;

          //Daten dem Excelsheet übergeben
          Sheet := XLApp.Workbooks[M].WorkSheets[N];
          Sheet.Range[RefToCell2(1, 1), RefToCell2(SheetRowCount,SheetColCount)].Value := Data;
          sheetrowcount:=sheetrowcount-9;
          SelRange := XLApp.Workbooks[M].Worksheets[N].Range[RefToCell(1, 1), RefToCell(SheetRowCount, SheetColCount)];
          sheetrowcount:=sheetrowcount+9;
          SelRange.Select;
          XLApp.Selection.Columns.AutoFit;
        end;
    end;
    //Save Excel Worksheet
    try
      for M := 1 to BookCount do
      begin
          SaveFileName :=Copy(FileName,1,Pos('.',FileName)-1) +
          Copy(FileName,Pos('.',FileName),
          Length(FileName)-Pos('.',FileName)+1);
          if fileexists(pfadV+Form1.EVeExportrdy.text+'.xls')=true
           then deletefile(pfadV+Form1.EVeExportrdy.text+'.xls');
          XLApp.Workbooks[M].SaveAs(SaveFileName);
      end;
      Result := True;
    except
      // Error?
    end;
  finally
    //Excel beenden
      XLApp.DisplayAlerts := False;
      XLApp.Quit;
      XLAPP := Unassigned;
      Sheet := Unassigned;
  end;
end;

//Aufruf
procedure TForm1.BVeExportrdyClick(Sender: TObject);
begin
   stringgrid6.RowCount:=stringgrid6.rowcount-1;
   StringGridToExcelSheetV(StringGrid6, 'Stringgrid Print', pfadV+EVeExportrdy.text+'.xls',True);
   stringgrid6.RowCount:=stringgrid6.rowcount+1;
end;
  Mit Zitat antworten Zitat
invalid_operation
(Gast)

n/a Beiträge
 
#2

Re: LineStyle Eigenschaften bei Office 2003

  Alt 17. Nov 2008, 12:04
[ot] Warte gerade auf eine Antwort in einem anderen Thread [/ot]

[ot] Wenn bei Würg oder Ekel was nicht klappt: zuerst nach Tippfehlern suchen!!! [/ot]

.,:; und führende oder anhängende Leerzeichen sorgen bei MS oft für Ärger. HTH
  Mit Zitat antworten Zitat
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.858 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: LineStyle Eigenschaften bei Office 2003

  Alt 17. Nov 2008, 16:57
Hallo ErdNussLocke,

Zitat von ErdNussLocke:
Habe unter uses ExcelXP und Excel2000 eingestellt.
Was soll das bringen?

Da die Funktionen und Prozeduren den gleichen Namen haben, werden nur die von Excel 2000 berücksichtigt.

Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat
Antwort Antwort

« Vorheriges Thema | Nächstes Thema »
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht
Linear-Darstellung Linear-Darstellung

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus
Gehe zu:

• Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz