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
  Cxgrid Konumunu Dinamik olarak Değiştirmek endmuh 4 445 09-12-2023, Saat: 17:49
Son Yorum: endmuh
  Delphi Sürekli Adı Değişen Excel Dosyasından Veri Çekme bünyamin68 2 548 05-10-2023, Saat: 12:50
Son Yorum: mcuyan
  Excel Aktarım OZCANK 2 413 21-08-2023, Saat: 12:57
Son Yorum: frmman
  Delphi 7 Excel'e Veri Aktarma mahone 6 1.040 02-05-2023, Saat: 08:34
Son Yorum: COMMANDX
  Cxgrid runtime oluşan sütünların format ve toplam alma ve query currensy true yapm hk diseqc 3 884 10-04-2023, Saat: 12:53
Son Yorum: diseqc



Konuyu Okuyanlar: 1 Ziyaretçi