Rtf String naar Excel cel

[majornono]

Ik ben bezig om een export te maken van data naar excel. Een van de gegevens in een rtf tekst die oorspronkelijk door een RichTextBox wordt onderhouden.
Nu wil ik deze tekst in Excel hebben, met behoud van opmaak.
Alle mogelijke oplossingen die ik tot nu toe heb gevonden zorgen ervoor dat de rtf codes in de cell geplakt worden ipv geinterpreteerd.

Op simpel form met een RichTextbox en een button kom ik tot nu toe tot dit:

code:

        private void button1_Click(object sender, EventArgs e)
        {
            Excel.Application excel = new Excel.Application();
            Excel.Workbook workbook = (Excel.Workbook)excel.Workbooks.Add(Missing.Value);
            Excel.Worksheet sheet = (Excel.Worksheet)workbook.ActiveSheet;

            excel.Visible = true;

            sheet.Cells[1, 1] = " Test van rtf in de volgende cell:";
            Excel.Range range = (Excel.Range)sheet.Application.get_Range("A2", Missing.Value);

            range.Value2 = richTextBox1.Rtf;
        }

Heeft iemand dit al eerder gedaan? Enig idee of mogelijk is wat ik wil? Het mag de meest quick-and-dirty manier zijn die er is, de klant krijgt uiteindelijk alleen de excel, niet de code

[Bolukan]

*laten we het modden aan de modderaars over?*

[ Voor 83% gewijzigd door MueR op 28-08-2010 23:27 ]

[pedorus]

Als ik even google lijkt de snelste oplossing via het clipboard te gaan, en dat is hier geen probleem als quick-and-dirty is toegestaan. Al geprobeerd?

[ Voor 10% gewijzigd door pedorus op 28-08-2010 23:35 ]

[majornono]

Dat heb ik geprobeerd. Ook daar heb ik geen geluk: de rtf codes worden geplakt in de cel die ik aangeef.

worksheet.Cells[1,2] = RichTextBox1.Rtf geeft de rtf codes
worksheet.Cells[1,2] = RichTextBox1.Text geeft de kale tekst.

Ook via het creeeren van een range in het werkblad en vervolgens de inhoud plakken geeft de rtf codes in de cel.

[pedorus]

Mm, dat bedoelde ik niet, maar bij nader inzien kent Excel het RTF-clipboard formaat niet. Word wel, dus iets als het volgende werkt:

C#:

            var word = new Word.Application();
            object missing = Missing.Value;
            var wd = word.Documents.Add(ref missing, ref missing, 
                ref missing, ref missing);
            var excel = new Excel.Application();
            var workbook = excel.Workbooks.Add(Missing.Value);
            var sheet = (Excel.Worksheet) workbook.Sheets[1];
            Clipboard.SetText(richTextBox1.Rtf, TextDataFormat.Rtf);
            word.Selection.Paste();
            word.Selection.WholeStory();
            word.Selection.Copy();
            sheet.Paste(Missing.Value, Missing.Value);
            word.Visible = true;
            excel.Visible = true;
            excel.UserControl = true;

(Ja, nogal vies)

[majornono]

Ik had de optie om via het ClipBoard te kopieren ook al geprobeerd, maar nog niet via Word.

Lelijk, inderdaad. Maar het werkt. Bedankt!