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 7 1.051 16-10-2020, Saat: 14:54
Son Yorum: m_ekici
  Devexpress CxGrid'de Büyük ve Görsel CheckBox Oluşturmak bydelphi 1 221 22-09-2020, Saat: 20:55
Son Yorum: frmman
  Pdf dosyayı Excel'e aktarmak hbulus 6 414 16-09-2020, Saat: 21:28
Son Yorum: resatarikan
  cxGrid Linux sunucudan resim çekme KarahanMesut 5 789 31-08-2020, Saat: 14:58
Son Yorum: Fesih ARSLAN
  Excel import yapma (Güncelleme) cinarbil 2 508 28-07-2020, Saat: 17:39
Son Yorum: cinarbil



Konuyu Okuyanlar: 1 Ziyaretçi