delphi db to xls
- p55p
- Začátečník

- Registrován: 14. srp 2004
delphi db to xls
Mohol by mi niekto poslat bud zdrojak alebo odkaz na source, vystupu z dbGrid do Excelu.
Dik
Dik
Sempron 2300+@2043MHz (9,5*215), Titan D5TB, foxconn VIA KT600, DDR400 512 GoodRam FSB:RAM 1:1, VGA R9200 128-bit 128MB 250/200@306/230, HDD Hitachi 80GB, DVD TEAC DV-516E, DVD-RW LG 4160 A303, SB Live! 5.1, TV Tuner JetWay BT878, 3DMark2001SE 8309
- Dony
- Středně pokročilý

- Registrován: 29. říj 2003
- Bydliště: okr. Mělník
- pavel.minarik
- Středně pokročilý

- Registrován: 03. čer 2003
- Bydliště: Brno
- Kontaktovat uživatele:
samozřejmě, že to jdeDony píše:asi nejjednodušší je použít excel jako objekt a ten programově ovládat (nevím, jestli to v delphi jde, ale vzhledem k tomu, že ve VB a Jave ano, tak urcite taky...)
var Excel1: TExcel;
Excel1.Connect;
Caption:=Excel1.GetCell(1,1);
Excel1.Disconnect;
debilní příklad, ale dělá to tohle, napojím se na excel, načtu buňku 1,1, zobrazím v titulku okna
Pavel Minarik @ Dell Latitude 7300 (bohužel moc topí, nedoporučuju)
- p55p
- Začátečník

- Registrován: 14. srp 2004
Vdaka pani moderatori.
No potreboval by som vedet este jednu vec, neviem ako spravim z Excelu Delphi komponent?
No potreboval by som vedet este jednu vec, neviem ako spravim z Excelu Delphi komponent?
Sempron 2300+@2043MHz (9,5*215), Titan D5TB, foxconn VIA KT600, DDR400 512 GoodRam FSB:RAM 1:1, VGA R9200 128-bit 128MB 250/200@306/230, HDD Hitachi 80GB, DVD TEAC DV-516E, DVD-RW LG 4160 A303, SB Live! 5.1, TV Tuner JetWay BT878, 3DMark2001SE 8309
- pavel.minarik
- Středně pokročilý

- Registrován: 03. čer 2003
- Bydliště: Brno
- Kontaktovat uživatele:
- p55p
- Začátečník

- Registrován: 14. srp 2004
Mam Delphi 7 a v Servers som nasiel nieco ako ExcelQueryTable (a este asi dva dalsie Excel komponenty). Skusim si s tym poradid terez sam a ak mi to nepojde, tak sa este ozvem. Esteraz vdaka.pavel.minarik píše:no v Delphi prof nebo enterprise neco podobnyho najdes na paletce Servers, akorát su debil, kod co jsem ti napsal se vztahuje ke speciální komponentě, která není přímou součástí Delphi, na požádání pošlu mailem
Sempron 2300+@2043MHz (9,5*215), Titan D5TB, foxconn VIA KT600, DDR400 512 GoodRam FSB:RAM 1:1, VGA R9200 128-bit 128MB 250/200@306/230, HDD Hitachi 80GB, DVD TEAC DV-516E, DVD-RW LG 4160 A303, SB Live! 5.1, TV Tuner JetWay BT878, 3DMark2001SE 8309
- Dony
- Středně pokročilý

- Registrován: 29. říj 2003
- Bydliště: okr. Mělník
ve VB se to dela takhle...
dobre se s tim pracuje tak, ze to, co chces aby udelal excel nejdriv naprogramujes jako makro a pak kod preneses do programu (ve VB je nutne jen prepsat nazvy objektu ("WorkBooks.Open(sourcetable)" -> "objXL.WorkBooks.Open(sourcetable)" ), v pascalu budes muset prebusit i syntaxi
Kód: Vybrat vše
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Visible = TRUE
objXL.WorkBooks.Open(sourcetable)
prom=objxl.cells(row,column)
objxl.application.quit
Avatar tancuje, nechce se mu na záchod... - p55p
- Začátečník

- Registrován: 14. srp 2004
bohuzial mi VB zatial nic nehovori
ten kod sice viem precitat, ale zatial by som chcel doriest Delphi
Mohli by ste mi poradit ktory z komponentov by som mal pouzit:
ExcelWorksheet1, ExcelApplication1, ExcelQueryTable1, ExcelChart1, ExcelWorkbook1, ExcelOLEObject1. Viem ze mozem Help-ovat, ale ked mi niekto poradi usetrim kopu casu
ten kod sice viem precitat, ale zatial by som chcel doriest Delphi
Mohli by ste mi poradit ktory z komponentov by som mal pouzit:
ExcelWorksheet1, ExcelApplication1, ExcelQueryTable1, ExcelChart1, ExcelWorkbook1, ExcelOLEObject1. Viem ze mozem Help-ovat, ale ked mi niekto poradi usetrim kopu casu
Sempron 2300+@2043MHz (9,5*215), Titan D5TB, foxconn VIA KT600, DDR400 512 GoodRam FSB:RAM 1:1, VGA R9200 128-bit 128MB 250/200@306/230, HDD Hitachi 80GB, DVD TEAC DV-516E, DVD-RW LG 4160 A303, SB Live! 5.1, TV Tuner JetWay BT878, 3DMark2001SE 8309