Tweet
Ich möchte gerne bei meiner Exceltabelle, die ich per Delpi-programm erstellen lasse einen Seitenumbruch einfügen.
Ich nutze Delphi 7 und Excel XP.
Ich nutze Delphi 7 und Excel XP.
-
-
GEnau dasselbe Problem hab ich auch. Ich benutze OLE.
Irgendwie nimmt er OLEOBJEKT.Selection.HPageBreaks.add nicht
Was muss ich da noch ergänzen -
okay, erste Klippe umschifft, allerdings setzt er mir nun auch vertikale Pagebreaks, wie lösche ich die denn wieder ?
mit
OLEOBJEKT.workbooks[wb].sheets[sh].VPageBreaks.item[x].delete gehts nicht.
Wenn x = 0 ist sagt er der Itemindex ist falsch wenn x > 0 ist dann gibts ein OLE Fehler. aber der Itemcount gibt mir 4 zurück, also es sich Vpagebreaks vorhanden. Ich bekomme echt bald die Krise :Comment
-
Hallo Jonas,
das gleiche Problem mit dem Seitenumbruch habe ich auch. Du scheinst einen Lösungsansatz zu haben, wie man einen Umbruch einfügt?
Wie lautet er?
Danke! RolandComment
-
Hallo Jonas,
habe Seitenumbruch nicht mit OLE sondern wie folgt zustande bekommen:
uses
..., Excel97;
Type
...
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
...
procedure TfrmExcelLesen.Button1Click(Sender: TObject);
begin
FLCID := GetUserDefaultLCID;
ExcelApplication1.Connect;
ExcelApplication1.Visible[FLCID] := False;
ExcelApplication1.UserControl := True;
end;
procedure TfrmExcelLesen.Button2Click(Sender: TObject);
begin
ExcelApplication1.Workbooks.Open(cXLS_FileName, False, False,
EmptyParam,'',False,False,EmptyParam,
EmptyParam,false,false,EmptyParam,false,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveW orkBook);
FSheetCount := ExcelWorkbook1.Worksheets.Count;
ShowMessage(Format('Es wurden %d Worksheets im Workbook gefunden.',
[FSheetCount]));
end;
procedure TfrmExcelLesen.Button13Click(Sender: TObject);
var
aRange : ExcelRange;
begin
ExcelWorksheet1.ConnectTo(
ExcelWorkbook1.Sheets.Item[1] as _Worksheet);
ExcelWorksheet1.Activate;
aRange := ExcelWorksheet1.Range['A7','B7'];
ExcelWorksheet1.HPageBreaks.Add(arange);
end;
Ich weiß nicht, ob Dir das weiter hilft. Viel Glück.
Servus
DieteComment
-
Hallo Dieter,<br>auch Du verwendest OLE. Du bedienst Dich hier jedoch der frühen BindinComment
Comment