» Poradna » Programy

Prosím o radu začátečníkovi (Lamě) v C# - export dat z datagridview do excelu

 |   |  Microsoft Windows 7 Firefox 14.0.1

Zdravím dovré duše v poradně.Prosím o radu..Mám data vyselektované z SQL serveru do tabulky DataGridView (C#) - opominu kompletní kód pro připojení a selectů, to je bez problému.Jde mi o to, aby se mi po stisknutí tlačítka sami označili všechny data (kompletní obsah) v DatagridViewu např. do Clipboardu a automaticky by se tato data přenesla do listu v Excelu (takže spustit excel a vložit obsah Clipboardu). Přikládám kod - který prostě nefunguje...Najde se tu nějaká hodná duše a pomůže mi ho upravit ? Díky moc. Prostě nevím, kde už googlit a youtubovat ...using excel = Microsoft.Office.Interop.Excel;using System.Diagnostics; private void tlac_exportexcel_Click(object sender, EventArgs e) { dataGridView1.SelectAll(); DataObject data = dataGridView1.GetClipboardContent(); Clipboard.SetDataObject(data, true); excel.Application xlapp = new excel.Application(); Process.Start("excel"); excel.Workbook xlworkbook = (excel.Workbook)xlapp.ActiveWorkbook; excel.Worksheet xlworksheet = (excel.Worksheet)xlapp.ActiveSheet; Clipboard.GetDataObject(data);Prosím, vyvarujte se zesměšňovacích komentářů...Každý snad jednou začínal..Děkuji

Odpovědi na otázku

 |   |  Microsoft Windows 7 Firefox 14.0.1

Tak už jsem si poradil, je to sice jiným způsobem, ale třeba to někdy někomu pomůže........using excel = Microsoft.Office.Interop.Excel;using System.IO;private void tlac_exportexcel_Click(object sender, EventArgs e) { Microsoft.Office.Interop.Excel._Application app = new Microsoft.Office.Interop.Excel.Application(); Microsoft.Office.Interop.Excel._Workbook workbook = app.Workbooks.Add(Type.Missing); Microsoft.Office.Interop.Excel._Worksheet worksheet = null; app.Visible = true; worksheet = (excel.Worksheet)workbook.Sheets["List1"]; worksheet = (excel.Worksheet)workbook.ActiveSheet; worksheet.Name = "Není nutné pojmenovat.."; for(int i=1;i<dataGridView1.Columns.Count+1;i++) { worksheet.Cells[1, i] = dataGridView1.Columns[i-1].HeaderText; } for (int i=0; i < dataGridView1.Rows.Count-1 ; i++) { for(int j=0;j<dataGridView1.Columns.Count;j++) { worksheet.Cells[i + 2, j + 1] = dataGridView1.Rows[i].Cells[j].Value.ToString(); } }

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Kompletní kód, Kompletní obsah




Určitě si přečtěte

Apple: naše mapy budou nejlepší na světě. Tajně jsme na nich pracovali několik let

Apple: naše mapy budou nejlepší na světě. Tajně jsme na nich pracovali několik let

** Apple odhalil své plány na zcela nové mapy ** Několik let pracuje na nových mapách, které by měly předběhnout konkurenci ** Objeví se s příchodem iOS 12 pro vybrané státy

Karel Javůrek | 50

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

** Teplotní extrémy dokážou překvapit. Seznamte se s rekordy v Česku i ve světě ** Rekordní hodnoty jsou mnohdy až k neuvěření ** Zjistěte, kdy ke bylo největší horko, zima, déšť či vítr

Karel Kilián | 7

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

** Apple aktualizoval notebooky MacBook Pro, dostaly nový hardware ** Těšit se můžete na nové procesory a větší paměť ** Cena nejvybavenějšího modelu překročí 200 tisíc korun

Martin Miksa | 99

Sex a rozmnožování při mezihvězdné cestě: Kolik lidí je potřeba pro let k Proximě Centauri?

Sex a rozmnožování při mezihvězdné cestě: Kolik lidí je potřeba pro let k Proximě Centauri?

** Vědci spočítali, jak velká by musela být posádka pro vícegenerační let k nejbližší hvězdné soustavě ** Proxima Centauri se nachází 4,3 světelných let od nás ** Za současných technologií bychom k ní letěli 6300 let

Petr Kubala | 53

Šmírovačka kamerami Googlu: Koukněte se, co nového zachytily na Street View

Šmírovačka kamerami Googlu: Koukněte se, co nového zachytily na Street View

Google stále fotí celý svět do své služby Street View. A novodobou zábavou je hledat v mapách Googlu vtipné záběry. Podívejte se na výběr nejlepších!

redakce | 44

Google ADT-2: Miniaturní krabička s Android TV 8.0, kterou si nikdy nekoupíte

Google ADT-2: Miniaturní krabička s Android TV 8.0, kterou si nikdy nekoupíte

** Dlouho se nevědělo, co to přesně má být ** Pak se s krabičkou Google pochlubil na I/O ** Do „Chromecastu“ vtěsnal celý Android TV

Jakub Čížek | 24

Nechcete platit za Total Commander? Těmito bezplatnými programy ho můžete nahradit

Nechcete platit za Total Commander? Těmito bezplatnými programy ho můžete nahradit

** Total Commander je na Windows takřka legendou ** Licence však stojí více než tisíc korun ** Našli jsme pro vás deset alternativ dostupných zdarma

Karel Kilián | 140


Aktuální číslo časopisu Computer

Velký test 18 bezdrátových sluchátek

Vše o přechodu na DVB-T2

Procesory AMD opět porážejí Intel

7 NVMe M.2 SSD v přímém souboji