Excel Export part 2

[Tim Henford]

Danke für deinen Hilfe, hab es jetzt gefunden:

weiter oben hatte ich anstatt "adLongVarWChar" adVarWChar und das lässt scheinbar nur 255 Zeichen zu.

Delphi-Quellcode:

  with DBGrid.Columns do begin
    for i:= 0 to Count-1 do
      if items[i].Visible then begin
        col:= nil;
        col:= CoColumn.Create;
        with col do begin
          Set_Name(Items[i].Title.Caption);

          ft:= DBGrid.DataSource.DataSet.Fields[i].DataType;
          sft:= GetEnumName(TypeInfo(TFieldType), Integer(ft));
          if sft='ftAutoInc' then Typ:= adInteger
          else Typ:= adLongVarWChar;

          Set_Type_(Typ); // adVarWChar
        end;
        // add column to table
        tbl.Columns.Append(col, adVarWChar, 20);
      end;
  end;