Inhald eines DBGrid nach Excel exportieren ?

[omata]

Was soll ich dazu sagen? Bei mir funktioniert das...

Ist den FieldCount > 0?

[Vader]

hallo,

bin dort auch rausgekommen,wo kann ich da nachschauen ob FieldCount > 0 ist ?
mfg vader

[Vader]

hallo,

könnte wer den code propieren ob der bei euch funktioniert !!

Delphi-Quellcode:

procedure DBGridToExcel(DBGrid:TDBGrid; StartSpalte, StartZeile:integer); 
type TSpalten = array[1..256] of string; 

  function CreateSpalten:TSpalten; 
  var i, j, x:integer; 
      abbruch:boolean; 
  begin 
    x:=1; 
    abbruch:=false; 
    j:=0; 
    while (j <= 26) and not abbruch do begin 
      i:=1; 
      while (i <= 26) and not abbruch do begin 
        if j = 0 then 
          Result[x]:=chr(i+64) 
        else 
          Result[x]:=chr(j+64)+chr(i+64); 
        inc(i); 
        inc(x); 
        abbruch:=(x > 256); 
      end; 
      inc(j); 
    end; 
  end; 

var Excel:TExcelApplication; 
    i, Zeile, lcid:integer; 
    Workbook:_Workbook; 
    Sheet, Zelle, Inhalt:Variant; 
    Spalten:TSpalten; 
begin 
  if     assigned(DBGrid) 
     and assigned(DBGrid.DataSource) 
     and assigned(DBGrid.DataSource.DataSet) then 
  begin 
    if DBGrid.DataSource.DataSet.Active then begin 
      Excel:=TExcelApplication.Create(nil); 
      try 
        lcid:=GetUserDefaultLCID; 
        Excel.Connect; 
        Excel.Visible[lcid]:=true; 
        Excel.UserControl:=true; 

        Workbook:=Excel.Workbooks.Add(EmptyParam, lcid); 

        Spalten:=CreateSpalten; 
        Zeile:=StartZeile; 
        for i:=1 to DBGrid.FieldCount do begin 
          Inhalt:=DBGrid.Fields[i-1].DisplayName; 
          Zelle:=Excel.Cells.Range[ 
            Spalten[i+StartSpalte-1]+inttostr(Zeile), 
            Spalten[i+StartSpalte-1]+inttostr(Zeile) 
          ]; 
          Zelle.Value:=Inhalt; 
          Zelle.Font.Bold:=true; 
        end; 

        DBGrid.DataSource.DataSet.First; 
        while not DBGrid.DataSource.DataSet.Eof do begin 
          inc(Zeile); 
          for i:=1 to DBGrid.FieldCount do begin 
            Inhalt:=DBGrid.DataSource.DataSet.FieldByName( 
              DBGrid.Fields[i-1].FieldName 
            ).AsString; 
            Zelle:=Excel.Cells.Range[ 
              Spalten[i+StartSpalte-1]+inttostr(Zeile), 
              Spalten[i+StartSpalte-1]+inttostr(Zeile) 
            ]; 
            Zelle.Value:=Inhalt; 
          end; 
          DBGrid.DataSource.DataSet.Next; 
        end; 

        Sheet:=Workbook.ActiveSheet; 
        Sheet.Columns[ 
          Spalten[StartSpalte]+':'+Spalten[StartSpalte+DBGrid.FieldCount] 
        ].EntireColumn.AutoFit; 

      finally 
        Excel.Disconnect; 
        Excel.free; 
      end; 
    end; 
  end; 
end;

aufruf


DBGridToExcel(DBGrid, 1, 1); mfg vader

[Vader]

hallo,
kann keiner das testen

mfg vader

[Elkos]

Hallo !

DBGridToExcel funktioniert einwandfrei !
Ich hab nur festgestellt, daß in Delphi 5 die Property Range_ und nicht Range heisst.

Danke !

Gruß
Elkos

[Haeger23]

Hallo allerseits,

also bei mir kommt beim Ausführen der Procedure ...

"DBGridToExcel(DBGrid,1,1);"

.... die Fehlermeldung:

---------------------------
Project1
---------------------------
Klasse nicht registriert.
---------------------------
OK
---------------------------

und zwar an der Stelle

Delphi-Quellcode:

.
.
.
Excel.Connect;
.
.
.

Und das obwohl ich die Units (OleServer, ExcelXP und/oder Excel2000) mit in die Uses aufgenommen habe.

Hat jemand eine Idee was ich falsch mache?

[Haeger23]

Ohh mein Gott ... sorry eure Zeit gestohlen zu haben. Ob ich an diesem Rechner wohl mit OO arbeite und somit gar kein MS Excel installiert habe ?!!!

.. sowas ist mir noch nie passiert