Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Cxgrid- Export to Excel
#1
Merhabalar,

ExportGridToExcel ile  excel dökümanı aktarımı yaptıgım bir cxgrid compenentim var. cxGrid1DBTableView1CustomDrawCell eventında bazı kosullara göre renklendirdigim satırlar var.Bunlar export edilince renkler excele yansımıyor.araştırdım cxGrid1DBTableView1CustomDrawCell olayında sadece desıng tıme da gosterım yapılıyor cxgrid bunu hafızada tutmuyor bunun icin  cxGrid1DBTableView1StylesGetContentStyle ile satırları renklendirmek gerekiyormus. Ben çok farklı örnekler denedim yapamadım örnek payalaşabilecek var mıdır?Yada net bir şekilde anlatacabielcek ?  Ek olarak sadece renkler değil format ile yuvarlama yaptıgım Float alanlarda yuvarlanmamıs sekılde excele gidiyor .

şimdiden teşekkür ederim .
Cevapla
#2
(06-04-2020, Saat: 20:47)HuseyinF Adlı Kullanıcıdan Alıntı: Merhabalar,

ExportGridToExcel ile  excel dökümanı aktarımı yaptıgım bir cxgrid compenentim var. cxGrid1DBTableView1CustomDrawCell eventında bazı kosullara göre renklendirdigim satırlar var.Bunlar export edilince renkler excele yansımıyor.araştırdım cxGrid1DBTableView1CustomDrawCell olayında sadece desıng tıme da gosterım yapılıyor cxgrid bunu hafızada tutmuyor bunun icin  cxGrid1DBTableView1StylesGetContentStyle ile satırları renklendirmek gerekiyormus. Ben çok farklı örnekler denedim yapamadım örnek payalaşabilecek var mıdır?Yada net bir şekilde anlatacabielcek ?  Ek olarak sadece renkler değil format ile yuvarlama yaptıgım Float alanlarda yuvarlanmamıs sekılde excele gidiyor .

şimdiden teşekkür ederim .

Merhabalar,

Hangi kod ile export ettiğinizi paylaşırmısınız lütfen.

ExportGridToExcel(SaveDialog1.FileName,cxGrids,True,True,True,'xls',export_form);

Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Cevapla
#3
(06-04-2020, Saat: 20:55)hi_selamlar Adlı Kullanıcıdan Alıntı:
(06-04-2020, Saat: 20:47)HuseyinF Adlı Kullanıcıdan Alıntı: Merhabalar,

ExportGridToExcel ile  excel dökümanı aktarımı yaptıgım bir cxgrid compenentim var. cxGrid1DBTableView1CustomDrawCell eventında bazı kosullara göre renklendirdigim satırlar var.Bunlar export edilince renkler excele yansımıyor.araştırdım cxGrid1DBTableView1CustomDrawCell olayında sadece desıng tıme da gosterım yapılıyor cxgrid bunu hafızada tutmuyor bunun icin  cxGrid1DBTableView1StylesGetContentStyle ile satırları renklendirmek gerekiyormus. Ben çok farklı örnekler denedim yapamadım örnek payalaşabilecek var mıdır?Yada net bir şekilde anlatacabielcek ?  Ek olarak sadece renkler değil format ile yuvarlama yaptıgım Float alanlarda yuvarlanmamıs sekılde excele gidiyor .

şimdiden teşekkür ederim .

Merhabalar,

Hangi kod ile export ettiğinizi paylaşırmısınız lütfen.

ExportGridToExcel(SaveDialog1.FileName,cxGrids,True,True,True,'xls',export_form);

Kolay gelsin.

try
   SaveDialog := TSaveDialog.Create(nil);
   SaveDialog.Title := Title;
   SaveDialog.Filter := 'Excel Dosyasi|*.xls';

   if SaveDialog.Execute then
   begin
     ExportGridToExcel(SaveDialog.FileName,Grid);
     Result := True;
   end
   else
     Result := False;
 finally
   SaveDialog.Free;
 end;

merhaba bu şekilde export ediyorum.Sizin parametreler ile deneyeceğim teşekkürler

Merhaba Şöyle çözdüm Sonunda.

Başta cxStyleRepository1 compenenti ekeldim forma ve sağ click edit deyip bir stil oluşturdum. daha sonra gridin 
cxGrid1DBTableView1StylesGetContentStyle eventına aşağıdaki şekilde koşullarıma göre satıra ilgili stili tanımladım excele aktardıgımda renklendirme olayı çözülmüş oldu .

var  
 AColumn,BColumn: TcxCustomGridTableItem;
begin  
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('ColumnName');
BColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Columname2');
if not (VarToStr(ARecord.Values[AColumn.Index]) = VarToStr(ARecord.Values[BColumn.Index])) then
  AStyle := cxStyle1;
end;
Cevapla
#4
(06-04-2020, Saat: 21:00)HuseyinF Adlı Kullanıcıdan Alıntı:
(06-04-2020, Saat: 20:55)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

Hangi kod ile export ettiğinizi paylaşırmısınız lütfen.

ExportGridToExcel(SaveDialog1.FileName,cxGrids,True,True,True,'xls',export_form);

Kolay gelsin.

try
   SaveDialog := TSaveDialog.Create(nil);
   SaveDialog.Title := Title;
   SaveDialog.Filter := 'Excel Dosyasi|*.xls';

   if SaveDialog.Execute then
   begin
     ExportGridToExcel(SaveDialog.FileName,Grid);
     Result := True;
   end
   else
     Result := False;
 finally
   SaveDialog.Free;
 end;

merhaba bu şekilde export ediyorum.Sizin parametreler ile deneyeceğim teşekkürler

Merhaba Şöyle çözdüm Sonunda.

Başta cxStyleRepository1 compenenti ekeldim forma ve sağ click edit deyip bir stil oluşturdum. daha sonra gridin 
cxGrid1DBTableView1StylesGetContentStyle eventına aşağıdaki şekilde koşullarıma göre satıra ilgili stili tanımladım excele aktardıgımda renklendirme olayı çözülmüş oldu .

var  
 AColumn,BColumn: TcxCustomGridTableItem;
begin  
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('ColumnName');
BColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Columname2');
if not (VarToStr(ARecord.Values[AColumn.Index]) = VarToStr(ARecord.Values[BColumn.Index])) then
  AStyle := cxStyle1;
end;

Merhabalar,

Yukarıda ki kod örneğini uygulayıp deneyip sonuç yazarmısınız lütfen.

Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Cevapla
#5
(06-04-2020, Saat: 22:34)hi_selamlar Adlı Kullanıcıdan Alıntı:
(06-04-2020, Saat: 21:00)HuseyinF Adlı Kullanıcıdan Alıntı:
try
   SaveDialog := TSaveDialog.Create(nil);
   SaveDialog.Title := Title;
   SaveDialog.Filter := 'Excel Dosyasi|*.xls';

   if SaveDialog.Execute then
   begin
     ExportGridToExcel(SaveDialog.FileName,Grid);
     Result := True;
   end
   else
     Result := False;
 finally
   SaveDialog.Free;
 end;

merhaba bu şekilde export ediyorum.Sizin parametreler ile deneyeceğim teşekkürler

Merhaba Şöyle çözdüm Sonunda.

Başta cxStyleRepository1 compenenti ekeldim forma ve sağ click edit deyip bir stil oluşturdum. daha sonra gridin 
cxGrid1DBTableView1StylesGetContentStyle eventına aşağıdaki şekilde koşullarıma göre satıra ilgili stili tanımladım excele aktardıgımda renklendirme olayı çözülmüş oldu .

var  
 AColumn,BColumn: TcxCustomGridTableItem;
begin  
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('ColumnName');
BColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Columname2');
if not (VarToStr(ARecord.Values[AColumn.Index]) = VarToStr(ARecord.Values[BColumn.Index])) then
  AStyle := cxStyle1;
end;

Merhabalar,

Yukarıda ki kod örneğini uygulayıp deneyip sonuç yazarmısınız lütfen.

Kolay gelsin.


daha önce forumda buna benzer bir şey konuşulmuş isterseniz bir inceleyin sadece stil değil formüllerde beraberinde aktarılabildiği yazılmış  , işinize yarayabilir.

https://www.delphican.com/showthread.php?tid=3951
http://www.delphiturkiye.com/forum/viewt...hp?t=31449  (Hücre içinde resim de aktarmanız gerekirse )

Kolay gelsin.
Cevapla
#6
(06-04-2020, Saat: 22:34)hi_selamlar Adlı Kullanıcıdan Alıntı:
(06-04-2020, Saat: 21:00)HuseyinF Adlı Kullanıcıdan Alıntı:
try
   SaveDialog := TSaveDialog.Create(nil);
   SaveDialog.Title := Title;
   SaveDialog.Filter := 'Excel Dosyasi|*.xls';

   if SaveDialog.Execute then
   begin
     ExportGridToExcel(SaveDialog.FileName,Grid);
     Result := True;
   end
   else
     Result := False;
 finally
   SaveDialog.Free;
 end;

merhaba bu şekilde export ediyorum.Sizin parametreler ile deneyeceğim teşekkürler

Merhaba Şöyle çözdüm Sonunda.

Başta cxStyleRepository1 compenenti ekeldim forma ve sağ click edit deyip bir stil oluşturdum. daha sonra gridin 
cxGrid1DBTableView1StylesGetContentStyle eventına aşağıdaki şekilde koşullarıma göre satıra ilgili stili tanımladım excele aktardıgımda renklendirme olayı çözülmüş oldu .

var  
 AColumn,BColumn: TcxCustomGridTableItem;
begin  
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('ColumnName');
BColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Columname2');
if not (VarToStr(ARecord.Values[AColumn.Index]) = VarToStr(ARecord.Values[BColumn.Index])) then
  AStyle := cxStyle1;
end;

Merhabalar,

Yukarıda ki kod örneğini uygulayıp deneyip sonuç yazarmısınız lütfen.

Kolay gelsin.

Merhaba,  Kusura bakmayın geç gördüm yukardaki kod bloğu uyguladıgımda sorunum çözülmüştü.

(07-04-2020, Saat: 10:54)Bay_Y Adlı Kullanıcıdan Alıntı:
(06-04-2020, Saat: 22:34)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

Yukarıda ki kod örneğini uygulayıp deneyip sonuç yazarmısınız lütfen.

Kolay gelsin.


daha önce forumda buna benzer bir şey konuşulmuş isterseniz bir inceleyin sadece stil değil formüllerde beraberinde aktarılabildiği yazılmış  , işinize yarayabilir.

https://www.delphican.com/showthread.php?tid=3951
http://www.delphiturkiye.com/forum/viewt...hp?t=31449  (Hücre içinde resim de aktarmanız gerekirse )

Kolay gelsin.

Forum da arama yaptıgımı hatırlıyorum belkide dogru şekilde rama yapmamısım paylaşım için teşekkürler
Cevapla
#7
Rica ederim kolaylıklar diliyorum. Umarım işinize yarar.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  PDF-WORD-EXCEL Binary olarak kaydetme ve geri okuma hk MugenPower 4 143 28-06-2020, Saat: 21:29
Son Yorum: mrmarman
  DbGrid To Excel & DataSet To Excel yhackup 18 5.676 26-05-2020, Saat: 21:12
Son Yorum: onur balkan
  CXGrid mevcut ayarların kaydedilmesi ve yeniden çağrılması Kovacs 4 359 24-05-2020, Saat: 15:24
Son Yorum: hasangoktas
Question fastreport pdf ve excell export Ekvador 6 668 03-05-2020, Saat: 22:28
Son Yorum: mcuyan
  cxGrid>FindPanel Arama Yapılacak Kolonları Belirleme hi_selamlar 8 1.235 21-03-2020, Saat: 17:38
Son Yorum: baloglurecep



Konuyu Okuyanlar: 1 Ziyaretçi